$ /nix/store/vzx1mi9c0xfadmsm9dhd83d005cb1qs9-coreutils-9.8/bin/timeout --kill-after=15s 7200s /nix/store/99b1z08awpxj8b6mzggn59gp1shljnff-nix-2.34.5/bin/nix --extra-experimental-features nix-command --extra-experimental-features flakes --log-format internal-json build --no-link git+https://github.com/NorfairKing/sydtest?ref=remove-case-and-action-operators&rev=bcd07f26815703a2324799860ff0db824ea194b1#checks.x86_64-linux.mutation-opt-env-conf --print-build-logs
warning: ignoring the client-specified setting 'netrc-file', because it is a restricted setting and you are not a trusted user
warning: ignoring the client-specified setting 'post-build-hook', because it is a restricted setting and you are not a trusted user
warning: ignoring untrusted substituter 'https://sydtest.cachix.org', you are not a trusted user.
Run `man nix.conf` for more information on the `substituters` configuration option.
warning: ignoring untrusted substituter 'https://cache.staging.nix-ci.com', you are not a trusted user.
Run `man nix.conf` for more information on the `substituters` configuration option.
warning: ignoring the client-specified setting 'trusted-public-keys', because it is a restricted setting and you are not a trusted user
warning: ignoring untrusted flake configuration setting 'extra-substituters'.
Pass '--accept-flake-config' to trust it
warning: ignoring untrusted flake configuration setting 'extra-trusted-public-keys'.
Pass '--accept-flake-config' to trust it
warning: ignoring the client-specified setting 'netrc-file', because it is a restricted setting and you are not a trusted user
warning: ignoring the client-specified setting 'post-build-hook', because it is a restricted setting and you are not a trusted user
warning: ignoring untrusted substituter 'https://sydtest.cachix.org', you are not a trusted user.
Run `man nix.conf` for more information on the `substituters` configuration option.
warning: ignoring untrusted substituter 'https://cache.staging.nix-ci.com', you are not a trusted user.
Run `man nix.conf` for more information on the `substituters` configuration option.
warning: ignoring the client-specified setting 'trusted-public-keys', because it is a restricted setting and you are not a trusted user
error (ignored): SQLite database '/var/cache/private/nix-ci-worker/eval-cache-v6/cd4609de13e7bea1dfefeba4ac89a59b3e5e6fac340dc6d97ae224e0670538a5.sqlite' is busy

Building sydtest-mutation-plugin-source
[sydtest-mutation-plugin-source] Phase: setupCompilerEnvironmentPhase
[sydtest-mutation-plugin-source] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[sydtest-mutation-plugin-source] Phase: unpackPhase
[sydtest-mutation-plugin-source] unpacking source archive /nix/store/0xk05k2k17lb85z9gp5q852si9kj7afh-sydtest-mutation-plugin
[sydtest-mutation-plugin-source] source root is sydtest-mutation-plugin
[sydtest-mutation-plugin-source] Phase: patchPhase
[sydtest-mutation-plugin-source] Phase: compileBuildDriverPhase
[sydtest-mutation-plugin-source] setupCompileFlags: -package-db=/build/tmp.5nxTFX9DLd/setup-package.conf.d -threaded
[sydtest-mutation-plugin-source] [1 of 2] Compiling Main             ( /nix/store/4mdp8nhyfddh7bllbi7xszz7k9955n79-Setup.hs, /build/tmp.5nxTFX9DLd/Main.o )
[sydtest-mutation-plugin-source] [2 of 2] Linking Setup
[sydtest-mutation-plugin-source] Phase: updateAutotoolsGnuConfigScriptsPhase
[sydtest-mutation-plugin-source] Phase: configurePhase
[sydtest-mutation-plugin-source] configureFlags: --verbose --prefix=/nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/share/doc/sydtest-mutation-plugin-0.0.0.0 --with-gcc=gcc --package-db=/build/tmp.5nxTFX9DLd/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Wunused-packages --ghc-options=-Werror --ghc-options=-Wno-deprecations --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[sydtest-mutation-plugin-source] Using Parsec parser
[sydtest-mutation-plugin-source] Configuring sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin-source] Dependency base >=4.7 && <5: using base-4.20.2.0
[sydtest-mutation-plugin-source] Dependency bytestring: using bytestring-0.12.2.0
[sydtest-mutation-plugin-source] Dependency directory: using directory-1.3.8.5
[sydtest-mutation-plugin-source] Dependency filepath: using filepath-1.5.4.0
[sydtest-mutation-plugin-source] Dependency ghc: using ghc-9.10.3
[sydtest-mutation-plugin-source] Dependency ghc-boot: using ghc-boot-9.10.3
[sydtest-mutation-plugin-source] Dependency mtl: using mtl-2.3.1
[sydtest-mutation-plugin-source] Dependency path: using path-0.9.6
[sydtest-mutation-plugin-source] Dependency path-io: using path-io-1.8.2
[sydtest-mutation-plugin-source] Dependency sydtest-mutation-runtime: using sydtest-mutation-runtime-0.0.0.0
[sydtest-mutation-plugin-source] Dependency template-haskell: using template-haskell-2.22.0.0
[sydtest-mutation-plugin-source] Dependency text: using text-2.1.3
[sydtest-mutation-plugin-source] Source component graph: component lib
[sydtest-mutation-plugin-source] Configured component graph:
[sydtest-mutation-plugin-source]     component sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin-source]         include base-4.20.2.0-64da
[sydtest-mutation-plugin-source]         include bytestring-0.12.2.0-262e
[sydtest-mutation-plugin-source]         include directory-1.3.8.5-c84a
[sydtest-mutation-plugin-source]         include filepath-1.5.4.0-e600
[sydtest-mutation-plugin-source]         include ghc-9.10.3-05f6
[sydtest-mutation-plugin-source]         include ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin-source]         include mtl-2.3.1-b4af
[sydtest-mutation-plugin-source]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin-source]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin-source]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin-source]         include template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin-source]         include text-2.1.3-c691
[sydtest-mutation-plugin-source] Linked component graph:
[sydtest-mutation-plugin-source]     unit sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin-source]         include base-4.20.2.0-64da
[sydtest-mutation-plugin-source]         include bytestring-0.12.2.0-262e
[sydtest-mutation-plugin-source]         include directory-1.3.8.5-c84a
[sydtest-mutation-plugin-source]         include filepath-1.5.4.0-e600
[sydtest-mutation-plugin-source]         include ghc-9.10.3-05f6
[sydtest-mutation-plugin-source]         include ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin-source]         include mtl-2.3.1-b4af
[sydtest-mutation-plugin-source]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin-source]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin-source]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin-source]         include template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin-source]         include text-2.1.3-c691
[sydtest-mutation-plugin-source]         Test.Syd.Mutation.Plugin=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin,Test.Syd.Mutation.Plugin.Instrument=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Instrument,Test.Syd.Mutation.Plugin.Operator.Arith=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Arith,Test.Syd.Mutation.Plugin.Operator.BoolLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.BoolLit,Test.Syd.Mutation.Plugin.Operator.Cmp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Cmp,Test.Syd.Mutation.Plugin.Operator.CondFlip=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.CondFlip,Test.Syd.Mutation.Plugin.Operator.ConstBool=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.ConstBool,Test.Syd.Mutation.Plugin.Operator.IntLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.IntLit,Test.Syd.Mutation.Plugin.Operator.ListLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.ListLit,Test.Syd.Mutation.Plugin.Operator.LogicOp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.LogicOp,Test.Syd.Mutation.Plugin.Operator.MaybeOp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.MaybeOp,Test.Syd.Mutation.Plugin.Operator.Negate=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Negate,Test.Syd.Mutation.Plugin.Operator.RemoveAction=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.RemoveAction,Test.Syd.Mutation.Plugin.Operator.RemoveCase=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.RemoveCase,Test.Syd.Mutation.Plugin.Operator.Util=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Util,Test.Syd.Mutation.Plugin.Operators=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operators,Test.Syd.Mutation.Plugin.Operators.TH=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operators.TH,Test.Syd.Mutation.Plugin.Runtime=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Runtime
[sydtest-mutation-plugin-source] Ready component graph:
[sydtest-mutation-plugin-source]     definite sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin-source]         depends base-4.20.2.0-64da
[sydtest-mutation-plugin-source]         depends bytestring-0.12.2.0-262e
[sydtest-mutation-plugin-source]         depends directory-1.3.8.5-c84a
[sydtest-mutation-plugin-source]         depends filepath-1.5.4.0-e600
[sydtest-mutation-plugin-source]         depends ghc-9.10.3-05f6
[sydtest-mutation-plugin-source]         depends ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin-source]         depends mtl-2.3.1-b4af
[sydtest-mutation-plugin-source]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin-source]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin-source]         depends sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin-source]         depends template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin-source]         depends text-2.1.3-c691
[sydtest-mutation-plugin-source] Using Cabal-3.12.1.0 compiled by ghc-9.10
[sydtest-mutation-plugin-source] Using compiler: ghc-9.10.3
[sydtest-mutation-plugin-source] Using install prefix:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0
[sydtest-mutation-plugin-source] Executables installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/bin
[sydtest-mutation-plugin-source] Libraries installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin-source] Dynamic Libraries installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[sydtest-mutation-plugin-source] Private executables installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/libexec/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin-source] Data files installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/share/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin-source] Documentation installed in: /share/doc/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin-source] Configuration files installed in:
[sydtest-mutation-plugin-source] /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/etc
[sydtest-mutation-plugin-source] No alex found
[sydtest-mutation-plugin-source] Using ar found on system at:
[sydtest-mutation-plugin-source] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[sydtest-mutation-plugin-source] No c2hs found
[sydtest-mutation-plugin-source] No cpphs found
[sydtest-mutation-plugin-source] No doctest found
[sydtest-mutation-plugin-source] Using gcc version 14.3.0 given by user at:
[sydtest-mutation-plugin-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[sydtest-mutation-plugin-source] Using ghc version 9.10.3 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[sydtest-mutation-plugin-source] Using ghc-pkg version 9.10.3 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[sydtest-mutation-plugin-source] No ghcjs found
[sydtest-mutation-plugin-source] No ghcjs-pkg found
[sydtest-mutation-plugin-source] No greencard found
[sydtest-mutation-plugin-source] Using haddock version 2.31.1 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[sydtest-mutation-plugin-source] No happy found
[sydtest-mutation-plugin-source] Using haskell-suite found on system at: haskell-suite-dummy-location
[sydtest-mutation-plugin-source] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[sydtest-mutation-plugin-source] No hmake found
[sydtest-mutation-plugin-source] Using hpc version 0.69 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[sydtest-mutation-plugin-source] Using hsc2hs version 0.68.10 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[sydtest-mutation-plugin-source] Using hscolour version 1.25 found on system at:
[sydtest-mutation-plugin-source] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[sydtest-mutation-plugin-source] No jhc found
[sydtest-mutation-plugin-source] Using ld found on system at:
[sydtest-mutation-plugin-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[sydtest-mutation-plugin-source] No pkg-config found
[sydtest-mutation-plugin-source] Using runghc version 9.10.3 found on system at:
[sydtest-mutation-plugin-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[sydtest-mutation-plugin-source] Using strip version 2.44 found on system at:
[sydtest-mutation-plugin-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[sydtest-mutation-plugin-source] Using tar found on system at:
[sydtest-mutation-plugin-source] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[sydtest-mutation-plugin-source] No uhc found
[sydtest-mutation-plugin-source] Phase: buildPhase
[sydtest-mutation-plugin-source] Distribution quality errors:
[sydtest-mutation-plugin-source] [no-syn-desc] No 'synopsis' or 'description' field.
[sydtest-mutation-plugin-source] Distribution quality warnings:
[sydtest-mutation-plugin-source] [no-license-file] A 'license-file' is not specified.
[sydtest-mutation-plugin-source] [missing-upper-bounds] On library, these packages miss upper bounds:
[sydtest-mutation-plugin-source] - bytestring
[sydtest-mutation-plugin-source] - directory
[sydtest-mutation-plugin-source] - filepath
[sydtest-mutation-plugin-source] - ghc
[sydtest-mutation-plugin-source] - ghc-boot
[sydtest-mutation-plugin-source] - mtl
[sydtest-mutation-plugin-source] - path
[sydtest-mutation-plugin-source] - path-io
[sydtest-mutation-plugin-source] - sydtest-mutation-runtime
[sydtest-mutation-plugin-source] - template-haskell
[sydtest-mutation-plugin-source] - text
[sydtest-mutation-plugin-source] Please add them. There is more information at https://pvp.haskell.org/
[sydtest-mutation-plugin-source] Note: the public hackage server would reject this package.
[sydtest-mutation-plugin-source] Building source dist for sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin-source] Source tarball created: dist/sydtest-mutation-plugin-0.0.0.0.tar.gz
[sydtest-mutation-plugin-source] Phase: checkPhase
[sydtest-mutation-plugin-source] Phase: haddockPhase
[sydtest-mutation-plugin-source] Phase: installPhase
[sydtest-mutation-plugin-source] Phase: fixupPhase
Progress: 1 of 12 built
Building sydtest-mutation-plugin
[sydtest-mutation-plugin] Phase: setupCompilerEnvironmentPhase
[sydtest-mutation-plugin] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[sydtest-mutation-plugin] Phase: unpackPhase
[sydtest-mutation-plugin] unpacking source archive /nix/store/jvl6s3fb687c79ry6nc4xnsj6g9a7a8c-sydtest-mutation-plugin-source-0.0.0.0/sydtest-mutation-plugin-0.0.0.0.tar.gz
[sydtest-mutation-plugin] source root is sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] setting SOURCE_DATE_EPOCH to timestamp 1778688586 of file "sydtest-mutation-plugin-0.0.0.0/sydtest-mutation-plugin.cabal"
[sydtest-mutation-plugin] warning: file "sydtest-mutation-plugin-0.0.0.0/sydtest-mutation-plugin.cabal" may be generated; SOURCE_DATE_EPOCH may be non-deterministic
[sydtest-mutation-plugin] Phase: patchPhase
[sydtest-mutation-plugin] Phase: compileBuildDriverPhase
[sydtest-mutation-plugin] setupCompileFlags: -package-db=/build/tmp.c0bmG4fCYT/setup-package.conf.d -threaded
[sydtest-mutation-plugin] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.c0bmG4fCYT/Main.o )
[sydtest-mutation-plugin] [2 of 2] Linking Setup
[sydtest-mutation-plugin] Phase: updateAutotoolsGnuConfigScriptsPhase
[sydtest-mutation-plugin] Phase: configurePhase
[sydtest-mutation-plugin] configureFlags: --verbose --prefix=/nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/nix/store/1z80iagay324rc13n50j3d9na68nxbav-sydtest-mutation-plugin-0.0.0.0-doc/share/doc/sydtest-mutation-plugin-0.0.0.0 --with-gcc=gcc --package-db=/build/tmp.c0bmG4fCYT/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Wunused-packages --ghc-options=-Werror --ghc-options=-Wno-deprecations --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[sydtest-mutation-plugin] Using Parsec parser
[sydtest-mutation-plugin] Configuring sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] Dependency base >=4.7 && <5: using base-4.20.2.0
[sydtest-mutation-plugin] Dependency bytestring: using bytestring-0.12.2.0
[sydtest-mutation-plugin] Dependency directory: using directory-1.3.8.5
[sydtest-mutation-plugin] Dependency filepath: using filepath-1.5.4.0
[sydtest-mutation-plugin] Dependency ghc: using ghc-9.10.3
[sydtest-mutation-plugin] Dependency ghc-boot: using ghc-boot-9.10.3
[sydtest-mutation-plugin] Dependency mtl: using mtl-2.3.1
[sydtest-mutation-plugin] Dependency path: using path-0.9.6
[sydtest-mutation-plugin] Dependency path-io: using path-io-1.8.2
[sydtest-mutation-plugin] Dependency sydtest-mutation-runtime: using sydtest-mutation-runtime-0.0.0.0
[sydtest-mutation-plugin] Dependency template-haskell: using template-haskell-2.22.0.0
[sydtest-mutation-plugin] Dependency text: using text-2.1.3
[sydtest-mutation-plugin] Source component graph: component lib
[sydtest-mutation-plugin] Configured component graph:
[sydtest-mutation-plugin]     component sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin]         include base-4.20.2.0-64da
[sydtest-mutation-plugin]         include bytestring-0.12.2.0-262e
[sydtest-mutation-plugin]         include directory-1.3.8.5-c84a
[sydtest-mutation-plugin]         include filepath-1.5.4.0-e600
[sydtest-mutation-plugin]         include ghc-9.10.3-05f6
[sydtest-mutation-plugin]         include ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin]         include mtl-2.3.1-b4af
[sydtest-mutation-plugin]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin]         include template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin]         include text-2.1.3-c691
[sydtest-mutation-plugin] Linked component graph:
[sydtest-mutation-plugin]     unit sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin]         include base-4.20.2.0-64da
[sydtest-mutation-plugin]         include bytestring-0.12.2.0-262e
[sydtest-mutation-plugin]         include directory-1.3.8.5-c84a
[sydtest-mutation-plugin]         include filepath-1.5.4.0-e600
[sydtest-mutation-plugin]         include ghc-9.10.3-05f6
[sydtest-mutation-plugin]         include ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin]         include mtl-2.3.1-b4af
[sydtest-mutation-plugin]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin]         include template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin]         include text-2.1.3-c691
[sydtest-mutation-plugin]         Test.Syd.Mutation.Plugin=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin,Test.Syd.Mutation.Plugin.Instrument=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Instrument,Test.Syd.Mutation.Plugin.Operator.Arith=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Arith,Test.Syd.Mutation.Plugin.Operator.BoolLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.BoolLit,Test.Syd.Mutation.Plugin.Operator.Cmp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Cmp,Test.Syd.Mutation.Plugin.Operator.CondFlip=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.CondFlip,Test.Syd.Mutation.Plugin.Operator.ConstBool=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.ConstBool,Test.Syd.Mutation.Plugin.Operator.IntLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.IntLit,Test.Syd.Mutation.Plugin.Operator.ListLit=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.ListLit,Test.Syd.Mutation.Plugin.Operator.LogicOp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.LogicOp,Test.Syd.Mutation.Plugin.Operator.MaybeOp=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.MaybeOp,Test.Syd.Mutation.Plugin.Operator.Negate=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Negate,Test.Syd.Mutation.Plugin.Operator.RemoveAction=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.RemoveAction,Test.Syd.Mutation.Plugin.Operator.RemoveCase=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.RemoveCase,Test.Syd.Mutation.Plugin.Operator.Util=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operator.Util,Test.Syd.Mutation.Plugin.Operators=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operators,Test.Syd.Mutation.Plugin.Operators.TH=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Operators.TH,Test.Syd.Mutation.Plugin.Runtime=sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I:Test.Syd.Mutation.Plugin.Runtime
[sydtest-mutation-plugin] Ready component graph:
[sydtest-mutation-plugin]     definite sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin]         depends base-4.20.2.0-64da
[sydtest-mutation-plugin]         depends bytestring-0.12.2.0-262e
[sydtest-mutation-plugin]         depends directory-1.3.8.5-c84a
[sydtest-mutation-plugin]         depends filepath-1.5.4.0-e600
[sydtest-mutation-plugin]         depends ghc-9.10.3-05f6
[sydtest-mutation-plugin]         depends ghc-boot-9.10.3-76c6
[sydtest-mutation-plugin]         depends mtl-2.3.1-b4af
[sydtest-mutation-plugin]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-mutation-plugin]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-mutation-plugin]         depends sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-mutation-plugin]         depends template-haskell-2.22.0.0-09e7
[sydtest-mutation-plugin]         depends text-2.1.3-c691
[sydtest-mutation-plugin] Using Cabal-3.12.1.0 compiled by ghc-9.10
[sydtest-mutation-plugin] Using compiler: ghc-9.10.3
[sydtest-mutation-plugin] Using install prefix:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] Executables installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/bin
[sydtest-mutation-plugin] Libraries installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin] Dynamic Libraries installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[sydtest-mutation-plugin] Private executables installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/libexec/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] Data files installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/share/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] Documentation installed in:
[sydtest-mutation-plugin] /nix/store/1z80iagay324rc13n50j3d9na68nxbav-sydtest-mutation-plugin-0.0.0.0-doc/share/doc/sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] Configuration files installed in:
[sydtest-mutation-plugin] /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/etc
[sydtest-mutation-plugin] No alex found
[sydtest-mutation-plugin] Using ar found on system at:
[sydtest-mutation-plugin] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[sydtest-mutation-plugin] No c2hs found
[sydtest-mutation-plugin] No cpphs found
[sydtest-mutation-plugin] No doctest found
[sydtest-mutation-plugin] Using gcc version 14.3.0 given by user at:
[sydtest-mutation-plugin] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[sydtest-mutation-plugin] Using ghc version 9.10.3 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[sydtest-mutation-plugin] Using ghc-pkg version 9.10.3 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[sydtest-mutation-plugin] No ghcjs found
[sydtest-mutation-plugin] No ghcjs-pkg found
[sydtest-mutation-plugin] No greencard found
[sydtest-mutation-plugin] Using haddock version 2.31.1 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[sydtest-mutation-plugin] No happy found
[sydtest-mutation-plugin] Using haskell-suite found on system at: haskell-suite-dummy-location
[sydtest-mutation-plugin] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[sydtest-mutation-plugin] No hmake found
[sydtest-mutation-plugin] Using hpc version 0.69 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[sydtest-mutation-plugin] Using hsc2hs version 0.68.10 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[sydtest-mutation-plugin] Using hscolour version 1.25 found on system at:
[sydtest-mutation-plugin] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[sydtest-mutation-plugin] No jhc found
[sydtest-mutation-plugin] Using ld found on system at:
[sydtest-mutation-plugin] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[sydtest-mutation-plugin] No pkg-config found
[sydtest-mutation-plugin] Using runghc version 9.10.3 found on system at:
[sydtest-mutation-plugin] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[sydtest-mutation-plugin] Using strip version 2.44 found on system at:
[sydtest-mutation-plugin] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[sydtest-mutation-plugin] Using tar found on system at:
[sydtest-mutation-plugin] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[sydtest-mutation-plugin] No uhc found
[sydtest-mutation-plugin] Phase: buildPhase
[sydtest-mutation-plugin] Preprocessing library for sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] Building library for sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] [ 1 of 19] Compiling Paths_sydtest_mutation_plugin ( dist/build/autogen/Paths_sydtest_mutation_plugin.hs, dist/build/Paths_sydtest_mutation_plugin.o, dist/build/Paths_sydtest_mutation_plugin.dyn_o )
[sydtest-mutation-plugin] [ 2 of 19] Compiling Test.Syd.Mutation.Plugin.Instrument ( src/Test/Syd/Mutation/Plugin/Instrument.hs, dist/build/Test/Syd/Mutation/Plugin/Instrument.o, dist/build/Test/Syd/Mutation/Plugin/Instrument.dyn_o )
[sydtest-mutation-plugin] [ 3 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.BoolLit ( src/Test/Syd/Mutation/Plugin/Operator/BoolLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/BoolLit.o, dist/build/Test/Syd/Mutation/Plugin/Operator/BoolLit.dyn_o )
[sydtest-mutation-plugin] [ 4 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.CondFlip ( src/Test/Syd/Mutation/Plugin/Operator/CondFlip.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/CondFlip.o, dist/build/Test/Syd/Mutation/Plugin/Operator/CondFlip.dyn_o )
[sydtest-mutation-plugin] [ 5 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ConstBool ( src/Test/Syd/Mutation/Plugin/Operator/ConstBool.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/ConstBool.o, dist/build/Test/Syd/Mutation/Plugin/Operator/ConstBool.dyn_o )
[sydtest-mutation-plugin] [ 6 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ListLit ( src/Test/Syd/Mutation/Plugin/Operator/ListLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/ListLit.o, dist/build/Test/Syd/Mutation/Plugin/Operator/ListLit.dyn_o )
[sydtest-mutation-plugin] [ 7 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.MaybeOp ( src/Test/Syd/Mutation/Plugin/Operator/MaybeOp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/MaybeOp.o, dist/build/Test/Syd/Mutation/Plugin/Operator/MaybeOp.dyn_o )
[sydtest-mutation-plugin] [ 8 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Negate ( src/Test/Syd/Mutation/Plugin/Operator/Negate.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Negate.o, dist/build/Test/Syd/Mutation/Plugin/Operator/Negate.dyn_o )
[sydtest-mutation-plugin] [ 9 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveAction ( src/Test/Syd/Mutation/Plugin/Operator/RemoveAction.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveAction.o, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveAction.dyn_o )
[sydtest-mutation-plugin] [10 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveCase ( src/Test/Syd/Mutation/Plugin/Operator/RemoveCase.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveCase.o, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveCase.dyn_o )
[sydtest-mutation-plugin] [11 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Util ( src/Test/Syd/Mutation/Plugin/Operator/Util.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Util.o, dist/build/Test/Syd/Mutation/Plugin/Operator/Util.dyn_o )
[sydtest-mutation-plugin] [12 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.LogicOp ( src/Test/Syd/Mutation/Plugin/Operator/LogicOp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/LogicOp.o, dist/build/Test/Syd/Mutation/Plugin/Operator/LogicOp.dyn_o )
[sydtest-mutation-plugin] [13 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.IntLit ( src/Test/Syd/Mutation/Plugin/Operator/IntLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/IntLit.o, dist/build/Test/Syd/Mutation/Plugin/Operator/IntLit.dyn_o )
[sydtest-mutation-plugin] [14 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Cmp ( src/Test/Syd/Mutation/Plugin/Operator/Cmp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Cmp.o, dist/build/Test/Syd/Mutation/Plugin/Operator/Cmp.dyn_o )
[sydtest-mutation-plugin] [15 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Arith ( src/Test/Syd/Mutation/Plugin/Operator/Arith.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Arith.o, dist/build/Test/Syd/Mutation/Plugin/Operator/Arith.dyn_o )
[sydtest-mutation-plugin] [16 of 19] Compiling Test.Syd.Mutation.Plugin.Operators.TH ( src/Test/Syd/Mutation/Plugin/Operators/TH.hs, dist/build/Test/Syd/Mutation/Plugin/Operators/TH.o, dist/build/Test/Syd/Mutation/Plugin/Operators/TH.dyn_o )
[sydtest-mutation-plugin] [17 of 19] Compiling Test.Syd.Mutation.Plugin.Operators ( src/Test/Syd/Mutation/Plugin/Operators.hs, dist/build/Test/Syd/Mutation/Plugin/Operators.o, dist/build/Test/Syd/Mutation/Plugin/Operators.dyn_o )
[sydtest-mutation-plugin] [18 of 19] Compiling Test.Syd.Mutation.Plugin ( src/Test/Syd/Mutation/Plugin.hs, dist/build/Test/Syd/Mutation/Plugin.o, dist/build/Test/Syd/Mutation/Plugin.dyn_o )
[sydtest-mutation-plugin] [19 of 19] Compiling Test.Syd.Mutation.Plugin.Runtime ( src/Test/Syd/Mutation/Plugin/Runtime.hs, dist/build/Test/Syd/Mutation/Plugin/Runtime.o, dist/build/Test/Syd/Mutation/Plugin/Runtime.dyn_o )
[sydtest-mutation-plugin] [ 1 of 19] Compiling Paths_sydtest_mutation_plugin ( dist/build/autogen/Paths_sydtest_mutation_plugin.hs, dist/build/Paths_sydtest_mutation_plugin.p_o )
[sydtest-mutation-plugin] [ 2 of 19] Compiling Test.Syd.Mutation.Plugin.Instrument ( src/Test/Syd/Mutation/Plugin/Instrument.hs, dist/build/Test/Syd/Mutation/Plugin/Instrument.p_o )
[sydtest-mutation-plugin] [ 3 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.BoolLit ( src/Test/Syd/Mutation/Plugin/Operator/BoolLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/BoolLit.p_o )
[sydtest-mutation-plugin] [ 4 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.CondFlip ( src/Test/Syd/Mutation/Plugin/Operator/CondFlip.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/CondFlip.p_o )
[sydtest-mutation-plugin] [ 5 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ConstBool ( src/Test/Syd/Mutation/Plugin/Operator/ConstBool.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/ConstBool.p_o )
[sydtest-mutation-plugin] [ 6 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ListLit ( src/Test/Syd/Mutation/Plugin/Operator/ListLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/ListLit.p_o )
[sydtest-mutation-plugin] [ 7 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.MaybeOp ( src/Test/Syd/Mutation/Plugin/Operator/MaybeOp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/MaybeOp.p_o )
[sydtest-mutation-plugin] [ 8 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Negate ( src/Test/Syd/Mutation/Plugin/Operator/Negate.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Negate.p_o )
[sydtest-mutation-plugin] [ 9 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveAction ( src/Test/Syd/Mutation/Plugin/Operator/RemoveAction.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveAction.p_o )
[sydtest-mutation-plugin] [10 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveCase ( src/Test/Syd/Mutation/Plugin/Operator/RemoveCase.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/RemoveCase.p_o )
[sydtest-mutation-plugin] [11 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Util ( src/Test/Syd/Mutation/Plugin/Operator/Util.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Util.p_o )
[sydtest-mutation-plugin] [12 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.LogicOp ( src/Test/Syd/Mutation/Plugin/Operator/LogicOp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/LogicOp.p_o )
[sydtest-mutation-plugin] [13 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.IntLit ( src/Test/Syd/Mutation/Plugin/Operator/IntLit.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/IntLit.p_o )
[sydtest-mutation-plugin] [14 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Cmp ( src/Test/Syd/Mutation/Plugin/Operator/Cmp.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Cmp.p_o )
[sydtest-mutation-plugin] [15 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Arith ( src/Test/Syd/Mutation/Plugin/Operator/Arith.hs, dist/build/Test/Syd/Mutation/Plugin/Operator/Arith.p_o )
[sydtest-mutation-plugin] [16 of 19] Compiling Test.Syd.Mutation.Plugin.Operators.TH ( src/Test/Syd/Mutation/Plugin/Operators/TH.hs, dist/build/Test/Syd/Mutation/Plugin/Operators/TH.p_o )
[sydtest-mutation-plugin] [17 of 19] Compiling Test.Syd.Mutation.Plugin.Operators ( src/Test/Syd/Mutation/Plugin/Operators.hs, dist/build/Test/Syd/Mutation/Plugin/Operators.p_o )
[sydtest-mutation-plugin] [18 of 19] Compiling Test.Syd.Mutation.Plugin ( src/Test/Syd/Mutation/Plugin.hs, dist/build/Test/Syd/Mutation/Plugin.p_o )
[sydtest-mutation-plugin] [19 of 19] Compiling Test.Syd.Mutation.Plugin.Runtime ( src/Test/Syd/Mutation/Plugin/Runtime.hs, dist/build/Test/Syd/Mutation/Plugin/Runtime.p_o )
[sydtest-mutation-plugin] Phase: checkPhase
[sydtest-mutation-plugin] Package has no test suites.
[sydtest-mutation-plugin] Phase: haddockPhase
[sydtest-mutation-plugin] Preprocessing library for sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] Running Haddock on library for sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] Warning: The documentation for the following packages are not installed. No
[sydtest-mutation-plugin] links will be generated to these packages: path-0.9.6, path-0.9.6,
[sydtest-mutation-plugin] vector-0.13.2.0
[sydtest-mutation-plugin] [ 1 of 19] Compiling Paths_sydtest_mutation_plugin ( dist/build/autogen/Paths_sydtest_mutation_plugin.hs, nothing )
[sydtest-mutation-plugin] [ 2 of 19] Compiling Test.Syd.Mutation.Plugin.Instrument ( src/Test/Syd/Mutation/Plugin/Instrument.hs, /build/ghc1394_0/ghc_4.o, /build/ghc1394_0/ghc_4.dyn_o )
[sydtest-mutation-plugin] [ 3 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.BoolLit ( src/Test/Syd/Mutation/Plugin/Operator/BoolLit.hs, /build/ghc1394_0/ghc_8.o, /build/ghc1394_0/ghc_8.dyn_o )
[sydtest-mutation-plugin] [ 4 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.CondFlip ( src/Test/Syd/Mutation/Plugin/Operator/CondFlip.hs, /build/ghc1394_0/ghc_12.o, /build/ghc1394_0/ghc_12.dyn_o )
[sydtest-mutation-plugin] [ 5 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ConstBool ( src/Test/Syd/Mutation/Plugin/Operator/ConstBool.hs, /build/ghc1394_0/ghc_14.o, /build/ghc1394_0/ghc_14.dyn_o )
[sydtest-mutation-plugin] [ 6 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.ListLit ( src/Test/Syd/Mutation/Plugin/Operator/ListLit.hs, /build/ghc1394_0/ghc_18.o, /build/ghc1394_0/ghc_18.dyn_o )
[sydtest-mutation-plugin] [ 7 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.MaybeOp ( src/Test/Syd/Mutation/Plugin/Operator/MaybeOp.hs, /build/ghc1394_0/ghc_22.o, /build/ghc1394_0/ghc_22.dyn_o )
[sydtest-mutation-plugin] [ 8 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Negate ( src/Test/Syd/Mutation/Plugin/Operator/Negate.hs, /build/ghc1394_0/ghc_24.o, /build/ghc1394_0/ghc_24.dyn_o )
[sydtest-mutation-plugin] [ 9 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveAction ( src/Test/Syd/Mutation/Plugin/Operator/RemoveAction.hs, /build/ghc1394_0/ghc_26.o, /build/ghc1394_0/ghc_26.dyn_o )
[sydtest-mutation-plugin] [10 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.RemoveCase ( src/Test/Syd/Mutation/Plugin/Operator/RemoveCase.hs, /build/ghc1394_0/ghc_28.o, /build/ghc1394_0/ghc_28.dyn_o )
[sydtest-mutation-plugin] [11 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Util ( src/Test/Syd/Mutation/Plugin/Operator/Util.hs, /build/ghc1394_0/ghc_30.o, /build/ghc1394_0/ghc_30.dyn_o )
[sydtest-mutation-plugin] [12 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.LogicOp ( src/Test/Syd/Mutation/Plugin/Operator/LogicOp.hs, /build/ghc1394_0/ghc_20.o, /build/ghc1394_0/ghc_20.dyn_o )
[sydtest-mutation-plugin] [13 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.IntLit ( src/Test/Syd/Mutation/Plugin/Operator/IntLit.hs, /build/ghc1394_0/ghc_16.o, /build/ghc1394_0/ghc_16.dyn_o )
[sydtest-mutation-plugin] [14 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Cmp ( src/Test/Syd/Mutation/Plugin/Operator/Cmp.hs, /build/ghc1394_0/ghc_10.o, /build/ghc1394_0/ghc_10.dyn_o )
[sydtest-mutation-plugin] [15 of 19] Compiling Test.Syd.Mutation.Plugin.Operator.Arith ( src/Test/Syd/Mutation/Plugin/Operator/Arith.hs, /build/ghc1394_0/ghc_6.o, /build/ghc1394_0/ghc_6.dyn_o )
[sydtest-mutation-plugin] [16 of 19] Compiling Test.Syd.Mutation.Plugin.Operators.TH ( src/Test/Syd/Mutation/Plugin/Operators/TH.hs, /build/ghc1394_0/ghc_32.o, /build/ghc1394_0/ghc_32.dyn_o )
[sydtest-mutation-plugin] [17 of 19] Compiling Test.Syd.Mutation.Plugin.Operators ( src/Test/Syd/Mutation/Plugin/Operators.hs, nothing )
[sydtest-mutation-plugin] [18 of 19] Compiling Test.Syd.Mutation.Plugin ( src/Test/Syd/Mutation/Plugin.hs, nothing )
[sydtest-mutation-plugin] [19 of 19] Compiling Test.Syd.Mutation.Plugin.Runtime ( src/Test/Syd/Mutation/Plugin/Runtime.hs, nothing )
[sydtest-mutation-plugin] Haddock coverage:
[sydtest-mutation-plugin] Warning: 'MutationId' is ambiguous. It is defined
[sydtest-mutation-plugin]     * in ‘Test.Syd.Mutation.Runtime’
[sydtest-mutation-plugin]     * in ‘Test.Syd.Mutation.Runtime’
[sydtest-mutation-plugin]     You may be able to disambiguate the identifier by qualifying it or
[sydtest-mutation-plugin]     by specifying the type/value namespace explicitly.
[sydtest-mutation-plugin]     Defaulting to the one defined in ‘Test.Syd.Mutation.Runtime’
[sydtest-mutation-plugin] Warning: 'ifMutation' is out of scope.
[sydtest-mutation-plugin]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest-mutation-plugin] Warning: 'srcTransform' is out of scope.
[sydtest-mutation-plugin]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest-mutation-plugin]   37% (  3 /  8) in 'Test.Syd.Mutation.Plugin.Instrument'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     InstrumentEnv (src/Test/Syd/Mutation/Plugin/Instrument.hs:78)
[sydtest-mutation-plugin]     InstrM (src/Test/Syd/Mutation/Plugin/Instrument.hs:102)
[sydtest-mutation-plugin]     liftTcM (src/Test/Syd/Mutation/Plugin/Instrument.hs:105)
[sydtest-mutation-plugin]     instrumentModule (src/Test/Syd/Mutation/Plugin/Instrument.hs:180)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.BoolLit'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/BoolLit.hs:12)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.CondFlip'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/CondFlip.hs:11)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.ConstBool'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/ConstBool.hs:16)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.ListLit'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/ListLit.hs:11)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.MaybeOp'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/MaybeOp.hs:13)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.Negate'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/Negate.hs:19)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.RemoveAction'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/RemoveAction.hs:11)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.RemoveCase'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/RemoveCase.hs:11)
[sydtest-mutation-plugin]   80% (  4 /  5) in 'Test.Syd.Mutation.Plugin.Operator.Util'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.LogicOp'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/LogicOp.hs:14)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.IntLit'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/IntLit.hs:12)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.Cmp'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/Cmp.hs:14)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin.Operator.Arith'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     theOperator (src/Test/Syd/Mutation/Plugin/Operator/Arith.hs:13)
[sydtest-mutation-plugin]   50% (  1 /  2) in 'Test.Syd.Mutation.Plugin.Operators.TH'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]   50% (  1 /  2) in 'Test.Syd.Mutation.Plugin.Operators'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     allOperators (src/Test/Syd/Mutation/Plugin/Operators.hs:30)
[sydtest-mutation-plugin]    0% (  0 /  2) in 'Test.Syd.Mutation.Plugin'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin]     plugin (src/Test/Syd/Mutation/Plugin.hs:55)
[sydtest-mutation-plugin]   66% (  2 /  3) in 'Test.Syd.Mutation.Plugin.Runtime'
[sydtest-mutation-plugin]   Missing documentation for:
[sydtest-mutation-plugin]     Module header
[sydtest-mutation-plugin] Warning: Test.Syd.Mutation.Plugin.Instrument: could not find link destinations for: 
[sydtest-mutation-plugin] 	- Path.Internal.Posix.Path
[sydtest-mutation-plugin] 	- Path.Posix.File
[sydtest-mutation-plugin] 	- Path.Posix.Rel
[sydtest-mutation-plugin] 	- Test.Syd.Mutation.Plugin.Instrument.tryMutateWith
[sydtest-mutation-plugin] Warning: Test.Syd.Mutation.Plugin.Runtime: could not find link destinations for: 
[sydtest-mutation-plugin] 	- Test.Syd.Mutation.Runtime.Rep_MutationId
[sydtest-mutation-plugin] Documentation created: dist/doc/html/sydtest-mutation-plugin/,
[sydtest-mutation-plugin] dist/doc/html/sydtest-mutation-plugin/sydtest-mutation-plugin.txt
[sydtest-mutation-plugin] Phase: installPhase
[sydtest-mutation-plugin] Installing library in /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I
[sydtest-mutation-plugin] Phase: fixupPhase
[sydtest-mutation-plugin] shrinking RPATHs of ELF executables and libraries in /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] shrinking /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSsydtest-mutation-plugin-0.0.0.0-HM1WzQIcRJ82Rtg6IhOB6I-ghc9.10.3.so
[sydtest-mutation-plugin] checking for references to /build/ in /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0...
[sydtest-mutation-plugin] patching script interpreter paths in /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0
[sydtest-mutation-plugin] stripping (with command strip and flags -S -p) in  /nix/store/8bzfl2j399paxx6k5zs66k7wzljxymg9-sydtest-mutation-plugin-0.0.0.0/lib
[sydtest-mutation-plugin] shrinking RPATHs of ELF executables and libraries in /nix/store/1z80iagay324rc13n50j3d9na68nxbav-sydtest-mutation-plugin-0.0.0.0-doc
[sydtest-mutation-plugin] checking for references to /build/ in /nix/store/1z80iagay324rc13n50j3d9na68nxbav-sydtest-mutation-plugin-0.0.0.0-doc...
[sydtest-mutation-plugin] patching script interpreter paths in /nix/store/1z80iagay324rc13n50j3d9na68nxbav-sydtest-mutation-plugin-0.0.0.0-doc
Progress: 2 of 12 built
Building opt-env-conf
[opt-env-conf] Phase: setupCompilerEnvironmentPhase
[opt-env-conf] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[opt-env-conf] Phase: unpackPhase
[opt-env-conf] unpacking source archive /nix/store/p7jp2n8d06q5ay540q30a7jj6x1i02xg-opt-env-conf-source-0.15.0.1/opt-env-conf-0.15.0.1.tar.gz
[opt-env-conf] source root is opt-env-conf-0.15.0.1
[opt-env-conf] setting SOURCE_DATE_EPOCH to timestamp 1778687749 of file "opt-env-conf-0.15.0.1/src/OptEnvConf/Validation.hs"
[opt-env-conf] Phase: patchPhase
[opt-env-conf] Phase: compileBuildDriverPhase
[opt-env-conf] setupCompileFlags: -package-db=/build/tmp.0qcasHuHbl/setup-package.conf.d -threaded
[opt-env-conf] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.0qcasHuHbl/Main.o )
[opt-env-conf] [2 of 2] Linking Setup
[opt-env-conf] Phase: updateAutotoolsGnuConfigScriptsPhase
[opt-env-conf] Phase: configurePhase
[opt-env-conf] configureFlags: --verbose --prefix=/nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --with-gcc=gcc --package-db=/build/tmp.0qcasHuHbl/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --disable-static --disable-executable-dynamic --disable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Werror --ghc-options=-fplugin-opt=Test.Syd.Mutation.Plugin:--debug --disable-optimization --ghc-option=-j1 --ghc-option=+RTS --ghc-option=-A32M --ghc-option=-M16g --ghc-option=-RTS --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[opt-env-conf] Using Parsec parser
[opt-env-conf] Configuring opt-env-conf-0.15.0.1...
[opt-env-conf] Dependency aeson: using aeson-2.2.3.0
[opt-env-conf] Dependency autodocodec >=0.3.0.0: using autodocodec-0.5.0.0
[opt-env-conf] Dependency autodocodec-nix: using autodocodec-nix-0.1.0.1
[opt-env-conf] Dependency autodocodec-schema: using autodocodec-schema-0.2.0.1
[opt-env-conf] Dependency autodocodec-yaml: using autodocodec-yaml-0.4.0.2
[opt-env-conf] Dependency base <5: using base-4.20.2.0
[opt-env-conf] Dependency containers: using containers-0.7
[opt-env-conf] Dependency hashable: using hashable-1.5.0.0
[opt-env-conf] Dependency mtl: using mtl-2.3.1
[opt-env-conf] Dependency path: using path-0.9.6
[opt-env-conf] Dependency path-io: using path-io-1.8.2
[opt-env-conf] Dependency safe-coloured-text >=0.3.0.2: using safe-coloured-text-0.5.0.0
[opt-env-conf] Dependency safe-coloured-text-layout >=0.2.0.0: using
[opt-env-conf] safe-coloured-text-layout-0.2.0.1
[opt-env-conf] Dependency safe-coloured-text-terminfo: using
[opt-env-conf] safe-coloured-text-terminfo-0.3.0.0
[opt-env-conf] Dependency selective: using selective-0.7.0.1
[opt-env-conf] Dependency text: using text-2.1.3
[opt-env-conf] Dependency validity: using validity-0.12.1.0
[opt-env-conf] Dependency validity-containers: using validity-containers-0.5.0.5
[opt-env-conf] Dependency validity-text: using validity-text-0.3.1.3
[opt-env-conf] Source component graph: component lib
[opt-env-conf] Configured component graph:
[opt-env-conf]     component opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf]         include autodocodec-nix-0.1.0.1-5MESxkCYs5t3k83QmZ9hdE
[opt-env-conf]         include autodocodec-schema-0.2.0.1-EMdcjRrADhKDtaa7HekBFN
[opt-env-conf]         include autodocodec-yaml-0.4.0.2-ELmM8ZZECuN9RM2KQlslRT
[opt-env-conf]         include base-4.20.2.0-64da
[opt-env-conf]         include containers-0.7-504a
[opt-env-conf]         include hashable-1.5.0.0-HOT2SU7kjP9HxgwMjYLBlH
[opt-env-conf]         include mtl-2.3.1-b4af
[opt-env-conf]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf]         include safe-coloured-text-layout-0.2.0.1-ImxtJEFz2ymH91rITWZHG6
[opt-env-conf]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[opt-env-conf]         include selective-0.7.0.1-GNtXMZVm0YvIj2VYkVe04f
[opt-env-conf]         include text-2.1.3-c691
[opt-env-conf]         include validity-0.12.1.0-2vJMqyxn6Ae2B1jlP90HgP
[opt-env-conf]         include validity-containers-0.5.0.5-JMisIHg6jT0HAhS7h7vTA4
[opt-env-conf]         include validity-text-0.3.1.3-5Fc5JnrCHq56kou0H34Gip
[opt-env-conf] Linked component graph:
[opt-env-conf]     unit opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf]         include autodocodec-nix-0.1.0.1-5MESxkCYs5t3k83QmZ9hdE
[opt-env-conf]         include autodocodec-schema-0.2.0.1-EMdcjRrADhKDtaa7HekBFN
[opt-env-conf]         include autodocodec-yaml-0.4.0.2-ELmM8ZZECuN9RM2KQlslRT
[opt-env-conf]         include base-4.20.2.0-64da
[opt-env-conf]         include containers-0.7-504a
[opt-env-conf]         include hashable-1.5.0.0-HOT2SU7kjP9HxgwMjYLBlH
[opt-env-conf]         include mtl-2.3.1-b4af
[opt-env-conf]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf]         include safe-coloured-text-layout-0.2.0.1-ImxtJEFz2ymH91rITWZHG6
[opt-env-conf]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[opt-env-conf]         include selective-0.7.0.1-GNtXMZVm0YvIj2VYkVe04f
[opt-env-conf]         include text-2.1.3-c691
[opt-env-conf]         include validity-0.12.1.0-2vJMqyxn6Ae2B1jlP90HgP
[opt-env-conf]         include validity-containers-0.5.0.5-JMisIHg6jT0HAhS7h7vTA4
[opt-env-conf]         include validity-text-0.3.1.3-5Fc5JnrCHq56kou0H34Gip
[opt-env-conf]         OptEnvConf=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf,OptEnvConf.Args=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Args,OptEnvConf.Capability=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Capability,OptEnvConf.Casing=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Casing,OptEnvConf.Check=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Check,OptEnvConf.Completer=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Completer,OptEnvConf.Completion=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Completion,OptEnvConf.Doc=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Doc,OptEnvConf.EnvMap=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.EnvMap,OptEnvConf.Error=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Error,OptEnvConf.Lint=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Lint,OptEnvConf.Main=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Main,OptEnvConf.Nix=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Nix,OptEnvConf.NonDet=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.NonDet,OptEnvConf.Output=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Output,OptEnvConf.Parser=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Parser,OptEnvConf.Reader=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Reader,OptEnvConf.Run=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Run,OptEnvConf.Setting=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Setting,OptEnvConf.Terminal=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Terminal,OptEnvConf.Validation=opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI:OptEnvConf.Validation
[opt-env-conf] Ready component graph:
[opt-env-conf]     definite opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf]         depends aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf]         depends autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf]         depends autodocodec-nix-0.1.0.1-5MESxkCYs5t3k83QmZ9hdE
[opt-env-conf]         depends autodocodec-schema-0.2.0.1-EMdcjRrADhKDtaa7HekBFN
[opt-env-conf]         depends autodocodec-yaml-0.4.0.2-ELmM8ZZECuN9RM2KQlslRT
[opt-env-conf]         depends base-4.20.2.0-64da
[opt-env-conf]         depends containers-0.7-504a
[opt-env-conf]         depends hashable-1.5.0.0-HOT2SU7kjP9HxgwMjYLBlH
[opt-env-conf]         depends mtl-2.3.1-b4af
[opt-env-conf]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf]         depends safe-coloured-text-layout-0.2.0.1-ImxtJEFz2ymH91rITWZHG6
[opt-env-conf]         depends safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[opt-env-conf]         depends selective-0.7.0.1-GNtXMZVm0YvIj2VYkVe04f
[opt-env-conf]         depends text-2.1.3-c691
[opt-env-conf]         depends validity-0.12.1.0-2vJMqyxn6Ae2B1jlP90HgP
[opt-env-conf]         depends validity-containers-0.5.0.5-JMisIHg6jT0HAhS7h7vTA4
[opt-env-conf]         depends validity-text-0.3.1.3-5Fc5JnrCHq56kou0H34Gip
[opt-env-conf] Using Cabal-3.12.1.0 compiled by ghc-9.10
[opt-env-conf] Using compiler: ghc-9.10.3
[opt-env-conf] Using install prefix:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1
[opt-env-conf] Executables installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/bin
[opt-env-conf] Libraries installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf] Dynamic Libraries installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[opt-env-conf] Private executables installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/libexec/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-0.15.0.1
[opt-env-conf] Data files installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/share/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-0.15.0.1
[opt-env-conf] Documentation installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/share/doc/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-0.15.0.1
[opt-env-conf] Configuration files installed in:
[opt-env-conf] /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/etc
[opt-env-conf] No alex found
[opt-env-conf] Using ar found on system at:
[opt-env-conf] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[opt-env-conf] No c2hs found
[opt-env-conf] No cpphs found
[opt-env-conf] No doctest found
[opt-env-conf] Using gcc version 14.3.0 given by user at:
[opt-env-conf] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[opt-env-conf] Using ghc version 9.10.3 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[opt-env-conf] Using ghc-pkg version 9.10.3 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[opt-env-conf] No ghcjs found
[opt-env-conf] No ghcjs-pkg found
[opt-env-conf] No greencard found
[opt-env-conf] Using haddock version 2.31.1 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[opt-env-conf] No happy found
[opt-env-conf] Using haskell-suite found on system at: haskell-suite-dummy-location
[opt-env-conf] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[opt-env-conf] No hmake found
[opt-env-conf] Using hpc version 0.69 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[opt-env-conf] Using hsc2hs version 0.68.10 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[opt-env-conf] Using hscolour version 1.25 found on system at:
[opt-env-conf] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[opt-env-conf] No jhc found
[opt-env-conf] Using ld found on system at:
[opt-env-conf] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[opt-env-conf] No pkg-config found
[opt-env-conf] Using runghc version 9.10.3 found on system at:
[opt-env-conf] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[opt-env-conf] Using strip version 2.44 found on system at:
[opt-env-conf] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[opt-env-conf] Using tar found on system at:
[opt-env-conf] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[opt-env-conf] No uhc found
[opt-env-conf] Phase: buildPhase
[opt-env-conf] mutation-nix: setting MUTATION_MANIFEST_DIR=/nix/store/wnya2lbajf7bdaj4qj0v5i72qbg21mg1-opt-env-conf-0.15.0.1-manifest
[opt-env-conf] Preprocessing library for opt-env-conf-0.15.0.1...
[opt-env-conf] Building library for opt-env-conf-0.15.0.1...
[opt-env-conf] [ 1 of 22] Compiling OptEnvConf.Args  ( src/OptEnvConf/Args.hs, dist/build/OptEnvConf/Args.o, dist/build/OptEnvConf/Args.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Args
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf] @@ -403,7 +403,7 @@
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] -  DashedShort c -> ['-', c]
[opt-env-conf] +  DashedShort c -> []
[opt-env-conf]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf]  
[opt-env-conf]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf] @@ -403,7 +403,7 @@
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] -  DashedShort c -> ['-', c]
[opt-env-conf] +  DashedShort c -> ['-', c]
[opt-env-conf]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf]  
[opt-env-conf]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if True
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if False
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if not (c `elem` cs)
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
[opt-env-conf] @@ -369,7 +369,7 @@
[opt-env-conf]            pure $
[opt-env-conf]              Just $
[opt-env-conf]                maybe
[opt-env-conf] -                (c :| [], True)
[opt-env-conf] +                (c :| [], False)
[opt-env-conf]                  (first (c NE.<|))
[opt-env-conf]                  new
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:364:7-20
[opt-env-conf] @@ -361,17 +361,17 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] -        else do
[opt-env-conf] -          rest' <- NE.nonEmpty rest
[opt-env-conf] -          new <- go rest'
[opt-env-conf] -          pure $
[opt-env-conf] -            Just $
[opt-env-conf] -              maybe
[opt-env-conf] -                (c :| [], True)
[opt-env-conf] -                (first (c NE.<|))
[opt-env-conf] -                new
[opt-env-conf] +      if c `elem` cs
[opt-env-conf] +        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        else do
[opt-env-conf] +          rest' <- NE.nonEmpty rest
[opt-env-conf] +          new <- go rest'
[opt-env-conf] +          pure $
[opt-env-conf] +            Just $
[opt-env-conf] +              maybe
[opt-env-conf] +                (c :| [], True)
[opt-env-conf] +                (first (c NE.<|))
[opt-env-conf] +                new
[opt-env-conf]  
[opt-env-conf]  recogniseLeftovers :: Args -> Maybe (NonEmpty String)
[opt-env-conf]  recogniseLeftovers Args {..} = NE.nonEmpty $ live argsBefore ++ live (modDoubleDash argsAfter)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if True
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if False
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:354:7-21
[opt-env-conf] @@ -351,9 +351,9 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:352:3-47
[opt-env-conf] @@ -349,12 +349,12 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] -    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] +  if isLong
[opt-env-conf] +    then
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf] +    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeChar cs = go
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf] @@ -321,9 +321,9 @@
[opt-env-conf]  consumeSwitch dasheds as = do
[opt-env-conf]    case go (argsBefore as) of
[opt-env-conf]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf] -    Nothing -> case go (argsAfter as) of
[opt-env-conf] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] -      Nothing -> Nothing
[opt-env-conf] +    Nothing -> case go (argsAfter as) of
[opt-env-conf] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] +      Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf]      go = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf] @@ -321,9 +321,9 @@
[opt-env-conf]  consumeSwitch dasheds as = do
[opt-env-conf]    case go (argsBefore as) of
[opt-env-conf]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf] -    Nothing -> case go (argsAfter as) of
[opt-env-conf] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] -      Nothing -> Nothing
[opt-env-conf] +    Nothing -> case go (argsAfter as) of
[opt-env-conf] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] +      Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf]      go = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if True then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if False then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if not (needTombstone) then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:338:25-68
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed True cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed False cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed not (isLong) cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf] @@ -306,9 +306,9 @@
[opt-env-conf]    where
[opt-env-conf]      go acc ne =
[opt-env-conf]        let (a, mRest) = NE.uncons ne
[opt-env-conf] -       in case mRest of
[opt-env-conf] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] -            Just rest -> go (a : acc) rest
[opt-env-conf] +       in case mRest of
[opt-env-conf] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] +            Just rest -> go (a : acc) rest
[opt-env-conf]  
[opt-env-conf]  -- | Consume a switch.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf] @@ -306,9 +306,9 @@
[opt-env-conf]    where
[opt-env-conf]      go acc ne =
[opt-env-conf]        let (a, mRest) = NE.uncons ne
[opt-env-conf] -       in case mRest of
[opt-env-conf] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] -            Just rest -> go (a : acc) rest
[opt-env-conf] +       in case mRest of
[opt-env-conf] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] +            Just rest -> go (a : acc) rest
[opt-env-conf]  
[opt-env-conf]  -- | Consume a switch.
[opt-env-conf]  --
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if True
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if False
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:295:7-21
[opt-env-conf] @@ -292,9 +292,9 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf]         in if DashedShort c `elem` dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if True
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if False
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if not (DashedShort c `elem` dasheds)
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
[opt-env-conf] @@ -297,9 +297,9 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] -            then Just mRest
[opt-env-conf] -            else Nothing
[opt-env-conf] +       in if DashedShort c `elem` dasheds
[opt-env-conf] +            then Just mRest
[opt-env-conf] +            else Nothing
[opt-env-conf]  
[opt-env-conf]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf]  unsnocNE = go []
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:293:3-25
[opt-env-conf] @@ -290,16 +290,16 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] -    else
[opt-env-conf] -      let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] -            then Just mRest
[opt-env-conf] -            else Nothing
[opt-env-conf] +  if isLong
[opt-env-conf] +    then
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf] +    else
[opt-env-conf] +      let (mRest, c) = unsnocNE cs
[opt-env-conf] +       in if DashedShort c `elem` dasheds
[opt-env-conf] +            then Just mRest
[opt-env-conf] +            else Nothing
[opt-env-conf]  
[opt-env-conf]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf]  unsnocNE = go []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | True && not (null rest) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | not (c `elem` dasheds) && not (null rest) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (True) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not not ((null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | not (c `elem` dasheds && not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:258:3-69
[opt-env-conf] @@ -255,9 +255,9 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf] -    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf] +  if isLong
[opt-env-conf] +    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf] +    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeLongDashedShorthandOption ::
[opt-env-conf]    [NonEmpty Char] ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:89:22-45
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf] @@ -130,10 +130,10 @@
[opt-env-conf]    -- things like a default command.
[opt-env-conf]    let addConsumeNothing = \case
[opt-env-conf]          [] -> [(Nothing, as)]
[opt-env-conf] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] -          Nothing -> r
[opt-env-conf] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] +          Nothing -> r
[opt-env-conf] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf]    addConsumeNothing $ case argsAfter as of
[opt-env-conf]      [] -> []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf] @@ -130,10 +130,10 @@
[opt-env-conf]    -- things like a default command.
[opt-env-conf]    let addConsumeNothing = \case
[opt-env-conf]          [] -> [(Nothing, as)]
[opt-env-conf] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] -          Nothing -> r
[opt-env-conf] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] +          Nothing -> r
[opt-env-conf] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf]    addConsumeNothing $ case argsAfter as of
[opt-env-conf]      [] -> []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf] @@ -166,17 +166,17 @@
[opt-env-conf]                          [] -> Nothing
[opt-env-conf]                          (Dead : rest) -> go rest
[opt-env-conf]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf] @@ -166,17 +166,17 @@
[opt-env-conf]                          [] -> Nothing
[opt-env-conf]                          (Dead : rest) -> go rest
[opt-env-conf]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf] @@ -201,7 +201,7 @@
[opt-env-conf]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                              consumeArgument (Args (befores ++ []) rest)
[opt-env-conf]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf] @@ -201,7 +201,7 @@
[opt-env-conf]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf] @@ -202,7 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ []) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf] @@ -202,7 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf] @@ -202,9 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                                ++ []
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf] @@ -202,9 +202,9 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf] @@ -195,16 +195,16 @@
[opt-env-conf]                          --   * The dashed is an option and the live is the value
[opt-env-conf]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf]                          --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf] @@ -195,16 +195,16 @@
[opt-env-conf]                          --   * The dashed is an option and the live is the value
[opt-env-conf]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf]                          --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf] @@ -140,72 +140,72 @@
[opt-env-conf]      (firstArg : afters) ->
[opt-env-conf]        let befores = argsBefore as
[opt-env-conf]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf] @@ -140,72 +140,72 @@
[opt-env-conf]      (firstArg : afters) ->
[opt-env-conf]        let befores = argsBefore as
[opt-env-conf]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf] @@ -135,77 +135,77 @@
[opt-env-conf]            Nothing -> r
[opt-env-conf]            Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf] -    [] -> []
[opt-env-conf] -    (firstArg : afters) ->
[opt-env-conf] -      let befores = argsBefore as
[opt-env-conf] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf] +    [] -> []
[opt-env-conf] +    (firstArg : afters) ->
[opt-env-conf] +      let befores = argsBefore as
[opt-env-conf] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf] @@ -135,77 +135,77 @@
[opt-env-conf]            Nothing -> r
[opt-env-conf]            Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf] -    [] -> []
[opt-env-conf] -    (firstArg : afters) ->
[opt-env-conf] -      let befores = argsBefore as
[opt-env-conf] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf] +    [] -> []
[opt-env-conf] +    (firstArg : afters) ->
[opt-env-conf] +      let befores = argsBefore as
[opt-env-conf] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf] @@ -222,9 +222,9 @@
[opt-env-conf]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf]      Nothing ->
[opt-env-conf]        -- TODO option value on the border
[opt-env-conf] -      case go (argsAfter as) of
[opt-env-conf] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] -        Nothing -> Nothing
[opt-env-conf] +      case go (argsAfter as) of
[opt-env-conf] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] +        Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf]      go = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf] @@ -222,9 +222,9 @@
[opt-env-conf]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf]      Nothing ->
[opt-env-conf]        -- TODO option value on the border
[opt-env-conf] -      case go (argsAfter as) of
[opt-env-conf] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] -        Nothing -> Nothing
[opt-env-conf] +      case go (argsAfter as) of
[opt-env-conf] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] +        Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf]      go = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds True cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds False cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds not (isLong) cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds True cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds False cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds not (isLong) cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf] @@ -240,13 +240,13 @@
[opt-env-conf]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf] @@ -240,13 +240,13 @@
[opt-env-conf]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf] @@ -237,16 +237,16 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf] @@ -237,16 +237,16 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  parseArg = \case
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf] @@ -74,9 +74,9 @@
[opt-env-conf]  
[opt-env-conf]  parseArg :: String -> Arg
[opt-env-conf]  parseArg = \case
[opt-env-conf] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDoubleDash
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf] @@ -74,9 +74,9 @@
[opt-env-conf]  
[opt-env-conf]  parseArg :: String -> Arg
[opt-env-conf]  parseArg = \case
[opt-env-conf] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDoubleDash
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
[opt-env-conf] @@ -79,7 +79,7 @@
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDash
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDash
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
[opt-env-conf] @@ -64,7 +64,7 @@
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] +            ('-' : _) -> True
[opt-env-conf]              _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
[opt-env-conf] @@ -65,7 +65,7 @@
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +            _ -> False
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,7 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,7 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ False
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ not (case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True)
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf] @@ -60,14 +60,7 @@
[opt-env-conf]  instance Validity Arg where
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf] -      [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf]    fromString = parseArg
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf] @@ -60,14 +60,14 @@
[opt-env-conf]  instance Validity Arg where
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf] -      [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] -      ]
[opt-env-conf] +      [ genericValidate arg,
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf]    fromString = parseArg
[opt-env-conf] added 139 mutations
[opt-env-conf] [ 2 of 22] Compiling OptEnvConf.Capability ( src/OptEnvConf/Capability.hs, dist/build/OptEnvConf/Capability.o, dist/build/OptEnvConf/Capability.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Capability
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 3 of 22] Compiling OptEnvConf.Casing ( src/OptEnvConf/Casing.hs, dist/build/OptEnvConf/Casing.o, dist/build/OptEnvConf/Casing.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Casing
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 4 of 22] Compiling OptEnvConf.Completer ( src/OptEnvConf/Completer.hs, dist/build/OptEnvConf/Completer.o, dist/build/OptEnvConf/Completer.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Completer
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf] @@ -269,9 +269,9 @@
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf]  applyComponent d ".." = parent d
[opt-env-conf] -applyComponent d c = case parseRelDir c of
[opt-env-conf] -  Nothing -> d
[opt-env-conf] -  Just rd -> d </> rd
[opt-env-conf] +applyComponent d c = case parseRelDir c of
[opt-env-conf] +  Nothing -> d
[opt-env-conf] +  Just rd -> d </> rd
[opt-env-conf]  
[opt-env-conf]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf] @@ -269,9 +269,9 @@
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf]  applyComponent d ".." = parent d
[opt-env-conf] -applyComponent d c = case parseRelDir c of
[opt-env-conf] -  Nothing -> d
[opt-env-conf] -  Just rd -> d </> rd
[opt-env-conf] +applyComponent d c = case parseRelDir c of
[opt-env-conf] +  Nothing -> d
[opt-env-conf] +  Just rd -> d </> rd
[opt-env-conf]  
[opt-env-conf]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (True)]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (not (null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not True]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not not ((null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | True]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (not (null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:266:15-37
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (True)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not True] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not not ((null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | True] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:267:22-44
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf] @@ -262,9 +262,9 @@
[opt-env-conf]  splitOnSlash [] = []
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf] -   in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +   in case rest of
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf] @@ -262,9 +262,9 @@
[opt-env-conf]  splitOnSlash [] = []
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf] -   in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +   in case rest of
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, True] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, not (c == "..")] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:243:28-76
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completer.hs:244:15-16
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] +        [] -> 1
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf] @@ -240,9 +240,9 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] -        ixs -> maximum ixs
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +        [] -> 0
[opt-env-conf] +        ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf] @@ -240,9 +240,9 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] -        ixs -> maximum ixs
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +        [] -> 0
[opt-env-conf] +        ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completer.hs:246:27-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if lastDotDotIdx == 1
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if True
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if False
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if not (lastDotDotIdx == 0)
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | True, not (null remainderComponents) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | not ("/" `isSuffixOf` afterCurDir), not (null remainderComponents) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (True) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not True = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not not ((null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, True = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:246:7-43
[opt-env-conf] @@ -243,19 +243,19 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] -        then (curDirPrefix, afterCurDir, here)
[opt-env-conf] -        else
[opt-env-conf] -          let prefixComponents = take lastDotDotIdx components
[opt-env-conf] -              remainderComponents = drop lastDotDotIdx components
[opt-env-conf] -              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf] -              -- Preserve trailing slash from the original input
[opt-env-conf] -              trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] -                | otherwise = ""
[opt-env-conf] -              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf] -              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] -           in (prefix, remainder, baseDir)
[opt-env-conf] +   in if lastDotDotIdx == 0
[opt-env-conf] +        then (curDirPrefix, afterCurDir, here)
[opt-env-conf] +        else
[opt-env-conf] +          let prefixComponents = take lastDotDotIdx components
[opt-env-conf] +              remainderComponents = drop lastDotDotIdx components
[opt-env-conf] +              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf] +              -- Preserve trailing slash from the original input
[opt-env-conf] +              trailingSlash
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | otherwise = ""
[opt-env-conf] +              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf] +              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] +           in (prefix, remainder, baseDir)
[opt-env-conf]  
[opt-env-conf]  -- | Split a filepath on @\/@ separators, dropping empty segments.
[opt-env-conf]  splitOnSlash :: FilePath -> [String]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:215:16-20
[opt-env-conf] @@ -212,7 +212,7 @@
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf]  hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] +  ('.' : _) -> False
[opt-env-conf]    _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:216:8-13
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf]  hiddenRel p = case toFilePath p of
[opt-env-conf]    ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +  _ -> True
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,7 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = True
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,7 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = not (case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False)
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf] @@ -155,11 +155,11 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf] @@ -155,11 +155,11 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel (dirname af)) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:175:28-91
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if True
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if False
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if not (fp == ".")
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:186:32-85
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:179:9-66
[opt-env-conf] @@ -176,16 +176,16 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf] @@ -189,9 +189,7 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ dirsFromPartialListing,
[opt-env-conf] -          dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf] @@ -189,9 +189,9 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ dirsFromPartialListing,
[opt-env-conf] -          dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ dirsFromPartialListing,
[opt-env-conf] +          dirsFromParentListing
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf] @@ -71,14 +71,14 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf] @@ -71,14 +71,14 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if True
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if False
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if not (fp == ".")
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:98:9-29
[opt-env-conf] @@ -95,14 +95,14 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf]          let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel (filename af)) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:108:28-92
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:117:28-81
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,7 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,11 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ map fileResult filesFromPartialListing,
[opt-env-conf] +          map fileResult filesFromParentListing,
[opt-env-conf] +          map dirResult dirsFromPartialListing,
[opt-env-conf] +          map dirResult dirsFromParentListing
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,10 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ map fileResult filesFromPartialListing,
[opt-env-conf] +          map fileResult filesFromParentListing,
[opt-env-conf] +          map dirResult dirsFromPartialListing
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | True = True
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | not ("/" `isSuffixOf` completionResultValue cr) = True
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:144:53-57
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | "/" `isSuffixOf` completionResultValue cr = False
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = True
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = False
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = not (any (`isSuffixOf` completionResultValue cr) exts)
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added 95 mutations
[opt-env-conf] [ 5 of 22] Compiling OptEnvConf.EnvMap ( src/OptEnvConf/EnvMap.hs, dist/build/OptEnvConf/EnvMap.o, dist/build/OptEnvConf/EnvMap.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.EnvMap
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 6 of 22] Compiling OptEnvConf.NonDet ( src/OptEnvConf/NonDet.hs, dist/build/OptEnvConf/NonDet.o, dist/build/OptEnvConf/NonDet.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.NonDet
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 7 of 22] Compiling OptEnvConf.Reader ( src/OptEnvConf/Reader.hs, dist/build/OptEnvConf/Reader.o, dist/build/OptEnvConf/Reader.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Reader
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf] @@ -75,9 +75,9 @@
[opt-env-conf]  
[opt-env-conf]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf] @@ -75,9 +75,9 @@
[opt-env-conf]  
[opt-env-conf]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Reader.hs:70:32-36
[opt-env-conf] @@ -67,7 +67,7 @@
[opt-env-conf]  --
[opt-env-conf]  -- > exists = Reader $ const $ pure True
[opt-env-conf]  exists :: Reader Bool
[opt-env-conf] -exists = Reader $ const $ pure True
[opt-env-conf] +exists = Reader $ const $ pure False
[opt-env-conf]  
[opt-env-conf]  -- | Read a value as if it were specified as a 'String' and parsed via the given 'Codec'.
[opt-env-conf]  viaStringCodec :: (HasCodec a) => Reader a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf] @@ -59,9 +59,9 @@
[opt-env-conf]  --
[opt-env-conf]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf]  auto :: (Read a) => Reader a
[opt-env-conf] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Always return True
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf] @@ -59,9 +59,9 @@
[opt-env-conf]  --
[opt-env-conf]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf]  auto :: (Read a) => Reader a
[opt-env-conf] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Always return True
[opt-env-conf]  --
[opt-env-conf] added 5 mutations
[opt-env-conf] [ 8 of 22] Compiling OptEnvConf.Setting ( src/OptEnvConf/Setting.hs, dist/build/OptEnvConf/Setting.o, dist/build/OptEnvConf/Setting.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Setting
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:416:43-48
[opt-env-conf] @@ -413,7 +413,7 @@
[opt-env-conf]    let t =
[opt-env-conf]          ConfigValSetting
[opt-env-conf]            { configValSettingPath = k :| [],
[opt-env-conf] -            configValSettingAllowPrefix = False,
[opt-env-conf] +            configValSettingAllowPrefix = True,
[opt-env-conf]              configValSettingCodec = c
[opt-env-conf]            }
[opt-env-conf]     in Builder [BuildAddConf t]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:397:43-47
[opt-env-conf] @@ -394,7 +394,7 @@
[opt-env-conf]    let t =
[opt-env-conf]          ConfigValSetting
[opt-env-conf]            { configValSettingPath = k :| [],
[opt-env-conf] -            configValSettingAllowPrefix = True,
[opt-env-conf] +            configValSettingAllowPrefix = False,
[opt-env-conf]              configValSettingCodec = c
[opt-env-conf]            }
[opt-env-conf]     in Builder [BuildAddConf t]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:379:57-62
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf]  unprefixedEnv :: String -> Builder a
[opt-env-conf] -unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf] +unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf]  
[opt-env-conf]  -- | Try to parse a configuration value at the given key.
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:375:47-51
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]  --
[opt-env-conf]  -- Multiple 'env's will be tried in order.
[opt-env-conf]  env :: String -> Builder a
[opt-env-conf] -env v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf] +env v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf]  
[opt-env-conf]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf]  unprefixedEnv :: String -> Builder a
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,7 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,11 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long (toArgCase s),
[opt-env-conf] +      env (toEnvCase s),
[opt-env-conf] +      conf (toConfigCase s)
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,11 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long (toArgCase s),
[opt-env-conf] +      env (toEnvCase s),
[opt-env-conf] +      conf (toConfigCase s)
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:276:47-51
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]  applyBuildInstruction bi s = case bi of
[opt-env-conf]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = False}
[opt-env-conf]    BuildTryOption -> s {settingTryOption = True}
[opt-env-conf]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:277:43-47
[opt-env-conf] @@ -274,7 +274,7 @@
[opt-env-conf]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf]    BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = False}
[opt-env-conf]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf]    BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:286:40-44
[opt-env-conf] @@ -283,7 +283,7 @@
[opt-env-conf]    BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf]    BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf]    BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = False}
[opt-env-conf]    BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf]    BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:244:13-17
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]  
[opt-env-conf]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf]  showNonEmptyWith func (a :| as) =
[opt-env-conf] -  showParen True $
[opt-env-conf] +  showParen False $
[opt-env-conf]      func a
[opt-env-conf]        . showString " :| "
[opt-env-conf]        . showListWith func as
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:240:41-45
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]  
[opt-env-conf]  showMaybeWith :: (a -> ShowS) -> Maybe a -> ShowS
[opt-env-conf]  showMaybeWith _ Nothing = showString "Nothing"
[opt-env-conf] -showMaybeWith func (Just a) = showParen True $ showString "Just " . func a
[opt-env-conf] +showMaybeWith func (Just a) = showParen False $ showString "Just " . func a
[opt-env-conf]  
[opt-env-conf]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf]  showNonEmptyWith func (a :| as) =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec 0 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec 1 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec -11 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:201:17-21
[opt-env-conf] @@ -198,7 +198,7 @@
[opt-env-conf]  showSettingABit :: Setting a -> ShowS
[opt-env-conf]  showSettingABit Setting {..} =
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf] -   in showParen True $
[opt-env-conf] +   in showParen False $
[opt-env-conf]          showString "Setting "
[opt-env-conf]            . showsPrec 11 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec 0 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec 1 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec -11 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 0 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 1 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec -11 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 not (settingTryArgument)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 0 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 1 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec -11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 not (settingTryOption)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec 0 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec 1 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec -11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec 0 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec 1 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec -11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 0 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 1 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec -11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 not (settingHidden)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec 0 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec 1 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec -11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec 0 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec 1 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec -11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec 0 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec 1 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec -11 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:183:28-33
[opt-env-conf] @@ -180,7 +180,7 @@
[opt-env-conf]    Setting
[opt-env-conf]      { settingDasheds = [],
[opt-env-conf]        settingReaders = [],
[opt-env-conf] -      settingTryArgument = False,
[opt-env-conf] +      settingTryArgument = True,
[opt-env-conf]        settingSwitchValue = Nothing,
[opt-env-conf]        settingTryOption = False,
[opt-env-conf]        settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:185:26-31
[opt-env-conf] @@ -182,7 +182,7 @@
[opt-env-conf]        settingReaders = [],
[opt-env-conf]        settingTryArgument = False,
[opt-env-conf]        settingSwitchValue = Nothing,
[opt-env-conf] -      settingTryOption = False,
[opt-env-conf] +      settingTryOption = True,
[opt-env-conf]        settingEnvVars = Nothing,
[opt-env-conf]        settingConfigVals = Nothing,
[opt-env-conf]        settingMetavar = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:191:23-28
[opt-env-conf] @@ -188,7 +188,7 @@
[opt-env-conf]        settingMetavar = Nothing,
[opt-env-conf]        settingHelp = Nothing,
[opt-env-conf]        settingExamples = [],
[opt-env-conf] -      settingHidden = False,
[opt-env-conf] +      settingHidden = True,
[opt-env-conf]        settingDefaultValue = Nothing,
[opt-env-conf]        settingCompleter = Nothing,
[opt-env-conf]        settingRequiredCapabilities = Set.empty
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf] @@ -170,9 +170,9 @@
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf]    where
[opt-env-conf]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -      Nothing -> (f <> suffix) :| []
[opt-env-conf] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +      Nothing -> (f <> suffix) :| []
[opt-env-conf] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf]  
[opt-env-conf]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf]  emptySetting :: Setting a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf] @@ -170,9 +170,9 @@
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf]    where
[opt-env-conf]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -      Nothing -> (f <> suffix) :| []
[opt-env-conf] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +      Nothing -> (f <> suffix) :| []
[opt-env-conf] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf]  
[opt-env-conf]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf]  emptySetting :: Setting a
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if True
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if False
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if not (configValSettingAllowPrefix c)
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Setting.hs:165:3-11
[opt-env-conf] @@ -162,9 +162,9 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] -    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf] -    else c
[opt-env-conf] +  if configValSettingAllowPrefix c
[opt-env-conf] +    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf] +    else c
[opt-env-conf]  
[opt-env-conf]  suffixConfigValSettingKey :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if True
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if False
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if not (envVarSettingAllowPrefix e)
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Setting.hs:148:3-11
[opt-env-conf] @@ -145,9 +145,9 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] -    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf] -    else e
[opt-env-conf] +  if envVarSettingAllowPrefix e
[opt-env-conf] +    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf] +    else e
[opt-env-conf]  
[opt-env-conf]  suffixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  suffixEnvVarSetting suffix e = e {envVarSettingVar = envVarSettingVar e <> suffix}
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( 0
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( 1
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( -42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` not (settingTryArgument)
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` not (isJust settingSwitchValue)
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` not (settingTryOption)
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    not (settingTryArgument) :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    not (settingTryOption) :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    not (settingHidden) :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    not (configValSettingAllowPrefix) :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    True :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    False :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    not (envVarSettingAllowPrefix) :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` True
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` False
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` not (envVarSettingAllowPrefix)
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added 110 mutations
[opt-env-conf] [ 9 of 22] Compiling OptEnvConf.Parser ( src/OptEnvConf/Parser.hs, dist/build/OptEnvConf/Parser.o, dist/build/OptEnvConf/Parser.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Parser
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc True caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc False caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc not (forgivable) caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing True caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing False caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing not (forgivable) caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf] @@ -700,9 +700,9 @@
[opt-env-conf]        [] -> (Nothing, [])
[opt-env-conf]        (b : bs) ->
[opt-env-conf]          let (mDefault, cs) = go bs
[opt-env-conf] -         in case b of
[opt-env-conf] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf] +         in case b of
[opt-env-conf] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf] @@ -700,9 +700,9 @@
[opt-env-conf]        [] -> (Nothing, [])
[opt-env-conf]        (b : bs) ->
[opt-env-conf]          let (mDefault, cs) = go bs
[opt-env-conf] -         in case b of
[opt-env-conf] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf] +         in case b of
[opt-env-conf] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:686:41-45
[opt-env-conf] @@ -683,7 +683,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Like 'checkMapIO', but allow trying the other side of any alternative if the result is Nothing.
[opt-env-conf]  checkMapIOForgivable :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf] -checkMapIOForgivable = ParserCheck mLoc True Set.empty
[opt-env-conf] +checkMapIOForgivable = ParserCheck mLoc False Set.empty
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]  checkMapMaybeForgivable func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEitherForgivable
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]  checkMapMaybeForgivable func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEitherForgivable
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' True (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' False (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' not (forgivable) (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:664:25-30
[opt-env-conf] @@ -661,7 +661,7 @@
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf]      ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] -  p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf] +  p -> ParserCheck mLoc True (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:618:31-36
[opt-env-conf] @@ -615,7 +615,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Check a 'Parser' after the fact, allowing IO.
[opt-env-conf]  checkMapIO :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf] -checkMapIO = ParserCheck mLoc False Set.empty
[opt-env-conf] +checkMapIO = ParserCheck mLoc True Set.empty
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf] @@ -599,9 +599,9 @@
[opt-env-conf]  checkMapMaybe func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEither
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf] @@ -599,9 +599,9 @@
[opt-env-conf]  checkMapMaybe func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEither
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,7 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,13 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        [ bareOption,
[opt-env-conf] +          fileOption,
[opt-env-conf] +          bareEnv,
[opt-env-conf] +          fileEnv,
[opt-env-conf] +          bareConf,
[opt-env-conf] +          fileConf
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,12 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        [ bareOption,
[opt-env-conf] +          fileOption,
[opt-env-conf] +          bareEnv,
[opt-env-conf] +          fileEnv,
[opt-env-conf] +          bareConf
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,7 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat []
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,7 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,8 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf] +]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,7 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat []
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,7 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,8 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf] +]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserCheck {} -> p'
[opt-env-conf]              ParserCommands {} -> p'
[opt-env-conf]              ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserCheck {} -> p'
[opt-env-conf]              ParserCommands {} -> p'
[opt-env-conf]              ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,7 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,13 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        [ Just parseDummy,
[opt-env-conf] +          Just parseDisableSwitch,
[opt-env-conf] +          Just parseEnableSwitch,
[opt-env-conf] +          parseEnv,
[opt-env-conf] +          parseConfigVal,
[opt-env-conf] +          parseDefaultVal
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,12 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        [ Just parseDummy,
[opt-env-conf] +          Just parseDisableSwitch,
[opt-env-conf] +          Just parseEnableSwitch,
[opt-env-conf] +          parseEnv,
[opt-env-conf] +          parseConfigVal
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure True
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure False
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure not (dv)
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:898:34-39
[opt-env-conf] @@ -895,7 +895,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just True,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:899:39-43
[opt-env-conf] @@ -896,7 +896,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just True,
[opt-env-conf] +            settingSwitchValue = Just False,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:900:32-37
[opt-env-conf] @@ -897,7 +897,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just True,
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:905:29-33
[opt-env-conf] @@ -902,7 +902,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = True,
[opt-env-conf] +            settingHidden = False,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = Nothing,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:917:34-39
[opt-env-conf] @@ -914,7 +914,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just False,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:918:39-44
[opt-env-conf] @@ -915,7 +915,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just False,
[opt-env-conf] +            settingSwitchValue = Just True,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:919:32-37
[opt-env-conf] @@ -916,7 +916,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just False,
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:924:29-33
[opt-env-conf] @@ -921,7 +921,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = True,
[opt-env-conf] +            settingHidden = False,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = Nothing,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:939:36-41
[opt-env-conf] @@ -936,7 +936,7 @@
[opt-env-conf]            Setting
[opt-env-conf]              { settingDasheds = [],
[opt-env-conf]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf] -              settingTryArgument = False,
[opt-env-conf] +              settingTryArgument = True,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf]                settingTryOption = False,
[opt-env-conf]                settingEnvVars = Just ne,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:941:34-39
[opt-env-conf] @@ -938,7 +938,7 @@
[opt-env-conf]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf]                settingTryArgument = False,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf] -              settingTryOption = False,
[opt-env-conf] +              settingTryOption = True,
[opt-env-conf]                settingEnvVars = Just ne,
[opt-env-conf]                settingConfigVals = Nothing,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:946:31-36
[opt-env-conf] @@ -943,7 +943,7 @@
[opt-env-conf]                settingConfigVals = Nothing,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf]                settingExamples = [],
[opt-env-conf] -              settingHidden = False,
[opt-env-conf] +              settingHidden = True,
[opt-env-conf]                settingMetavar = Just "BOOL",
[opt-env-conf]                settingHelp = settingHelp s,
[opt-env-conf]                settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:960:36-41
[opt-env-conf] @@ -957,7 +957,7 @@
[opt-env-conf]            Setting
[opt-env-conf]              { settingDasheds = [],
[opt-env-conf]                settingReaders = [],
[opt-env-conf] -              settingTryArgument = False,
[opt-env-conf] +              settingTryArgument = True,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf]                settingTryOption = False,
[opt-env-conf]                settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:962:34-39
[opt-env-conf] @@ -959,7 +959,7 @@
[opt-env-conf]                settingReaders = [],
[opt-env-conf]                settingTryArgument = False,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf] -              settingTryOption = False,
[opt-env-conf] +              settingTryOption = True,
[opt-env-conf]                settingEnvVars = Nothing,
[opt-env-conf]                settingConfigVals = Just ne,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:967:31-36
[opt-env-conf] @@ -964,7 +964,7 @@
[opt-env-conf]                settingConfigVals = Just ne,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf]                settingExamples = [],
[opt-env-conf] -              settingHidden = False,
[opt-env-conf] +              settingHidden = True,
[opt-env-conf]                settingMetavar = Nothing,
[opt-env-conf]                settingHelp = settingHelp s,
[opt-env-conf]                settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:979:34-39
[opt-env-conf] @@ -976,7 +976,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just True, -- Unused
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:980:39-43
[opt-env-conf] @@ -977,7 +977,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just True, -- Unused
[opt-env-conf] +            settingSwitchValue = Just False, -- Unused
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:981:32-37
[opt-env-conf] @@ -978,7 +978,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just True, -- Unused
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:986:29-34
[opt-env-conf] @@ -983,7 +983,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = False,
[opt-env-conf] +            settingHidden = True,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = settingHelp s,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,7 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ []
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,10 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "FILE_PATH",
[opt-env-conf] +               completer filePath
[opt-env-conf] +             ]
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,9 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "FILE_PATH"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf] @@ -826,7 +826,7 @@
[opt-env-conf]        long "config-file",
[opt-env-conf]        env "CONFIG_FILE",
[opt-env-conf]        help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +      completer (filePathWithExtensions [])
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf] @@ -826,7 +826,7 @@
[opt-env-conf]        long "config-file",
[opt-env-conf]        env "CONFIG_FILE",
[opt-env-conf]        help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,7 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,12 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long "config-file",
[opt-env-conf] +      env "CONFIG_FILE",
[opt-env-conf] +      help "Path to the configuration file",
[opt-env-conf] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,12 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long "config-file",
[opt-env-conf] +      env "CONFIG_FILE",
[opt-env-conf] +      help "Path to the configuration file",
[opt-env-conf] +      completer (filePathWithExtensions [".yaml"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,7 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ []
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,10 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "DIRECTORY_PATH",
[opt-env-conf] +               completer directoryPath
[opt-env-conf] +             ]
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,9 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "DIRECTORY_PATH"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf] @@ -785,11 +785,11 @@
[opt-env-conf]  xdgYamlConfigFile subdir =
[opt-env-conf]    mapIO
[opt-env-conf]      ( \mXdgDir -> do
[opt-env-conf] -        xdgDir <- case mXdgDir of
[opt-env-conf] -          Just d -> resolveDir' d
[opt-env-conf] -          Nothing -> do
[opt-env-conf] -            home <- getHomeDir
[opt-env-conf] -            resolveDir home ".config"
[opt-env-conf] +        xdgDir <- case mXdgDir of
[opt-env-conf] +          Just d -> resolveDir' d
[opt-env-conf] +          Nothing -> do
[opt-env-conf] +            home <- getHomeDir
[opt-env-conf] +            resolveDir home ".config"
[opt-env-conf]          configDir <- resolveDir xdgDir subdir
[opt-env-conf]          resolveFile configDir "config.yaml"
[opt-env-conf]      )
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf] @@ -785,11 +785,11 @@
[opt-env-conf]  xdgYamlConfigFile subdir =
[opt-env-conf]    mapIO
[opt-env-conf]      ( \mXdgDir -> do
[opt-env-conf] -        xdgDir <- case mXdgDir of
[opt-env-conf] -          Just d -> resolveDir' d
[opt-env-conf] -          Nothing -> do
[opt-env-conf] -            home <- getHomeDir
[opt-env-conf] -            resolveDir home ".config"
[opt-env-conf] +        xdgDir <- case mXdgDir of
[opt-env-conf] +          Just d -> resolveDir' d
[opt-env-conf] +          Nothing -> do
[opt-env-conf] +            home <- getHomeDir
[opt-env-conf] +            resolveDir home ".config"
[opt-env-conf]          configDir <- resolveDir xdgDir subdir
[opt-env-conf]          resolveFile configDir "config.yaml"
[opt-env-conf]      )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,7 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,12 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      [ help "Path to the XDG configuration directory",
[opt-env-conf] +        reader str,
[opt-env-conf] +        env "XDG_CONFIG_HOME",
[opt-env-conf] +        metavar "DIRECTORY",
[opt-env-conf] +        hidden
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,11 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      [ help "Path to the XDG configuration directory",
[opt-env-conf] +        reader str,
[opt-env-conf] +        env "XDG_CONFIG_HOME",
[opt-env-conf] +        metavar "DIRECTORY"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > 0) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > 1) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > -10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (True) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (False) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (not (d > 10)) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen True $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen False $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen not ((d > 10)) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 0 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 1 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go -11 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go 0 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go 1 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go -11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go 0 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go 1 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go -11 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 0 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 1 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go -11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec 0 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec 1 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec -11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 0 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 1 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go -11 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 0 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 1 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go -11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 0 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 1 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec -11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 True
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 False
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 not (forgivable)
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec 0 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec 1 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec -11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec 0 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec 1 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec -11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 0 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 1 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go -11 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 0 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 1 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go -11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec 0 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec 1 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec -11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec 0 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec 1 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec -11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec 0 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec 1 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec -11 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:297:39-40
[opt-env-conf] @@ -294,7 +294,7 @@
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf]  showParserABit :: Parser a -> String
[opt-env-conf] -showParserABit = flip (showParserPrec 0) ""
[opt-env-conf] +showParserABit = flip (showParserPrec 1) ""
[opt-env-conf]  
[opt-env-conf]  showParserPrec :: Int -> Parser a -> ShowS
[opt-env-conf]  showParserPrec = go
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:255:27-32
[opt-env-conf] @@ -252,7 +252,7 @@
[opt-env-conf]    (<|>) p1 p2 =
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf] -          ParserPure _ -> False
[opt-env-conf] +          ParserPure _ -> True
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> True && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> False && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && True
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && False
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> True
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> False
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> not (isEmpty pf && isEmpty pa)
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> True && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> False && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> not (isEmpty pe) && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && True
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && False
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && not (isEmpty pf)
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> True
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> False
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> not (isEmpty pe && isEmpty pf)
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:258:28-32
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] -          ParserEmpty _ -> True
[opt-env-conf] +          ParserEmpty _ -> False
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:259:28-33
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf] -          ParserAlt _ _ -> False
[opt-env-conf] +          ParserAlt _ _ -> True
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> True
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> False
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> not (isEmpty p)
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> True
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> False
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> not (isEmpty p)
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> True
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> False
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> not (isEmpty p)
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> True
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> False
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> not (isEmpty p)
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> True
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> False
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> not (null cs)
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> True && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> False && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> not (isEmpty pc) && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && True
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && False
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && not (isEmpty ps)
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> True
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> False
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> not (isEmpty pc && isEmpty ps)
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:266:32-37
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] -          ParserSetting _ _ -> False
[opt-env-conf] +          ParserSetting _ _ -> True
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (True, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (False, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (not (isEmpty p1), isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, True) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, False) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, not (isEmpty p2)) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] -    -- Homomorphism law for applicative
[opt-env-conf] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] -    _ -> ParserAp p1 p2
[opt-env-conf] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] +    -- Homomorphism law for applicative
[opt-env-conf] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] +    _ -> ParserAp p1 p2
[opt-env-conf]  
[opt-env-conf]  instance Selective Parser where
[opt-env-conf]    select = ParserSelect
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] -    -- Homomorphism law for applicative
[opt-env-conf] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] -    _ -> ParserAp p1 p2
[opt-env-conf] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] +    -- Homomorphism law for applicative
[opt-env-conf] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] +    _ -> ParserAp p1 p2
[opt-env-conf]  
[opt-env-conf]  instance Selective Parser where
[opt-env-conf]    select = ParserSelect
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc True caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc False caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc not (forgivable) caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:238:30-34
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] -    p -> ParserCheck Nothing True Set.empty (pure . Right . f) p
[opt-env-conf] +    p -> ParserCheck Nothing False Set.empty (pure . Right . f) p
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] added 327 mutations
[opt-env-conf] [10 of 22] Compiling OptEnvConf.Output ( src/OptEnvConf/Output.hs, dist/build/OptEnvConf/Output.o, dist/build/OptEnvConf/Output.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Output
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,5 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = []
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,5 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,6 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = [fore cyan "[", c
[opt-env-conf] +]
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Output.hs:112:34-39
[opt-env-conf] @@ -109,7 +109,7 @@
[opt-env-conf]      cleanPackage pkg =
[opt-env-conf]        T.unpack $
[opt-env-conf]          T.intercalate "-" $
[opt-env-conf] -          takeWhile (not . maybe False (Char.isDigit . fst) . T.uncons) $
[opt-env-conf] +          takeWhile (not . maybe True (Char.isDigit . fst) . T.uncons) $
[opt-env-conf]              T.splitOn "-" (T.pack pkg)
[opt-env-conf]  
[opt-env-conf]  indent :: [[Chunk]] -> [[Chunk]]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf] @@ -84,9 +84,9 @@
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf]  
[opt-env-conf]  capabilityChunk :: Capability -> Chunk
[opt-env-conf]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf] @@ -84,9 +84,9 @@
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf]  
[opt-env-conf]  capabilityChunk :: Capability -> Chunk
[opt-env-conf]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf] @@ -78,7 +78,7 @@
[opt-env-conf]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  headerChunks :: Text -> [Chunk]
[opt-env-conf] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf] +headerChunks t = []
[opt-env-conf]  
[opt-env-conf]  syntaxChunk :: String -> Chunk
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf] @@ -78,7 +78,7 @@
[opt-env-conf]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  headerChunks :: Text -> [Chunk]
[opt-env-conf] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf] +headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf]  
[opt-env-conf]  syntaxChunk :: String -> Chunk
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  [val] -> []
[opt-env-conf]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf] @@ -69,7 +69,7 @@
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +  _ -> []
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf] @@ -69,7 +69,7 @@
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf]  
[opt-env-conf]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +defaultValueChunks val = []
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf]  
[opt-env-conf]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf] added 17 mutations
[opt-env-conf] [11 of 22] Compiling OptEnvConf.Nix   ( src/OptEnvConf/Nix.hs, dist/build/OptEnvConf/Nix.o, dist/build/OptEnvConf/Nix.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Nix
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf] @@ -93,6 +93,6 @@
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +      _ -> OptionTypeOneOf []
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf] @@ -93,6 +93,6 @@
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf] @@ -91,8 +91,8 @@
[opt-env-conf]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf] @@ -91,8 +91,8 @@
[opt-env-conf]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf] @@ -72,17 +72,17 @@
[opt-env-conf]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] -                    Nothing ->
[opt-env-conf] -                      let oc =
[opt-env-conf] -                            maybe
[opt-env-conf] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] -                              (T.pack <$> settingHelp s)
[opt-env-conf] -                       in objectCodecNixOptions oc
[opt-env-conf] -                    Just rest ->
[opt-env-conf] -                      let m = go' rest
[opt-env-conf] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] +                    Nothing ->
[opt-env-conf] +                      let oc =
[opt-env-conf] +                            maybe
[opt-env-conf] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] +                              (T.pack <$> settingHelp s)
[opt-env-conf] +                       in objectCodecNixOptions oc
[opt-env-conf] +                    Just rest ->
[opt-env-conf] +                      let m = go' rest
[opt-env-conf] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf] @@ -72,17 +72,17 @@
[opt-env-conf]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] -                    Nothing ->
[opt-env-conf] -                      let oc =
[opt-env-conf] -                            maybe
[opt-env-conf] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] -                              (T.pack <$> settingHelp s)
[opt-env-conf] -                       in objectCodecNixOptions oc
[opt-env-conf] -                    Just rest ->
[opt-env-conf] -                      let m = go' rest
[opt-env-conf] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] +                    Nothing ->
[opt-env-conf] +                      let oc =
[opt-env-conf] +                            maybe
[opt-env-conf] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] +                              (T.pack <$> settingHelp s)
[opt-env-conf] +                       in objectCodecNixOptions oc
[opt-env-conf] +                    Just rest ->
[opt-env-conf] +                      let m = go' rest
[opt-env-conf] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf] @@ -35,7 +35,7 @@
[opt-env-conf]          ("# " <>)
[opt-env-conf]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf]            "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          unwords [],
[opt-env-conf]            T.unpack content
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf] @@ -35,7 +35,7 @@
[opt-env-conf]          ("# " <>)
[opt-env-conf]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf]            "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          unwords [progname, "--render-nix-options"],
[opt-env-conf]            T.unpack content
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,7 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,11 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] +          "This file was generated by running",
[opt-env-conf] +          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          T.unpack content
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,10 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] +          "This file was generated by running",
[opt-env-conf] +          unwords [progname, "--render-nix-options"]
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added 14 mutations
[opt-env-conf] [12 of 22] Compiling OptEnvConf.Doc   ( src/OptEnvConf/Doc.hs, dist/build/OptEnvConf/Doc.o, dist/build/OptEnvConf/Doc.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Doc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (True)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not True],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not not ((null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | True],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:819:7-73
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf] @@ -821,7 +821,7 @@
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf]                [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +                [[] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf]                  [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf] @@ -821,7 +821,7 @@
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf]                [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf]                  [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf] @@ -823,7 +823,7 @@
[opt-env-conf]                [line] ->
[opt-env-conf]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +                [] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf] @@ -823,7 +823,7 @@
[opt-env-conf]                [line] ->
[opt-env-conf]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf] @@ -819,11 +819,11 @@
[opt-env-conf]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf] @@ -819,11 +819,11 @@
[opt-env-conf]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,4 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,16 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      concatMap
[opt-env-conf] +        ( \(key, schema) ->
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf] +        )
[opt-env-conf] +        (NE.toList confDocKeys)
[opt-env-conf] +    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,14 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      concatMap
[opt-env-conf] +        ( \(key, schema) ->
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key
[opt-env-conf] +]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf] @@ -766,10 +766,7 @@
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf] @@ -766,10 +766,10 @@
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf] @@ -765,13 +765,7 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf] @@ -765,13 +765,13 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (True)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not not ((null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:776:7-71
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,7 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,16 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,16 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf] @@ -724,7 +724,7 @@
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf]                  ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf] @@ -724,7 +724,7 @@
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf]                  ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] +              | not (optDocTryArgument)
[opt-env-conf]                ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:725:15-16
[opt-env-conf] @@ -722,10 +722,10 @@
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf] @@ -721,12 +721,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] +            [],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf] @@ -721,12 +721,12 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf] @@ -719,16 +719,7 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf] @@ -719,16 +719,16 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (True)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not not ((null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:733:7-71
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,7 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,19 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,19 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> []) . fromMaybe [] . go False
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:632:107-112
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go True
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:637:38-43
[opt-env-conf] @@ -634,7 +634,7 @@
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf]          ( \case
[opt-env-conf] -            AnyDocsSingle Nothing -> False
[opt-env-conf] +            AnyDocsSingle Nothing -> True
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:638:30-35
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]        filter
[opt-env-conf]          ( \case
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf] -            AnyDocsAnd [] -> False
[opt-env-conf] +            AnyDocsAnd [] -> True
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf]              _ -> True
[opt-env-conf]          )
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:639:29-34
[opt-env-conf] @@ -636,7 +636,7 @@
[opt-env-conf]          ( \case
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf] -            AnyDocsOr [] -> False
[opt-env-conf] +            AnyDocsOr [] -> True
[opt-env-conf]              _ -> True
[opt-env-conf]          )
[opt-env-conf]      go ::
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:640:18-22
[opt-env-conf] @@ -637,7 +637,7 @@
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +            _ -> False
[opt-env-conf]          )
[opt-env-conf]      go ::
[opt-env-conf]        -- Need parens
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf] @@ -646,9 +646,9 @@
[opt-env-conf]        Maybe [Chunk]
[opt-env-conf]      go b =
[opt-env-conf]        \case
[opt-env-conf] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] -          Nothing -> Just ["COMMAND"]
[opt-env-conf] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] +          Nothing -> Just ["COMMAND"]
[opt-env-conf] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf] @@ -646,9 +646,9 @@
[opt-env-conf]        Maybe [Chunk]
[opt-env-conf]      go b =
[opt-env-conf]        \case
[opt-env-conf] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] -          Nothing -> Just ["COMMAND"]
[opt-env-conf] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] +          Nothing -> Just ["COMMAND"]
[opt-env-conf] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:653:29-34
[opt-env-conf] @@ -650,7 +650,7 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if True then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if not (b) then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:656:27-57
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:658:29-34
[opt-env-conf] @@ -655,7 +655,7 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf] @@ -655,9 +655,9 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf] @@ -655,9 +655,9 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if True
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if False
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if not (isJust optDocDefault)
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:665:19-28
[opt-env-conf] @@ -662,9 +662,9 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf] @@ -669,7 +669,7 @@
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] +                  | True
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf] @@ -669,7 +669,7 @@
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] +                  | not (optDocTryArgument)
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:671:19-20
[opt-env-conf] @@ -668,9 +668,9 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf] @@ -672,7 +672,7 @@
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] +                  | True
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf] @@ -672,7 +672,7 @@
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] +                  | not (optDocTrySwitch)
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:674:19-20
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf] @@ -678,7 +678,7 @@
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] +                  | True
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf] @@ -678,7 +678,7 @@
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] +                  | not (optDocTryOption)
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf] @@ -676,7 +676,7 @@
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                        []
[opt-env-conf]                        ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf] @@ -676,7 +676,7 @@
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf] @@ -675,9 +675,7 @@
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] +                      []
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf] @@ -675,9 +675,9 @@
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:677:19-20
[opt-env-conf] @@ -674,12 +674,12 @@
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,7 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                []
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,19 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,16 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" "
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf] @@ -658,29 +658,29 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] -          Nothing -> Nothing
[opt-env-conf] -          Just OptDoc {..} ->
[opt-env-conf] -            Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] -                )
[opt-env-conf] -              $ unwordsChunks
[opt-env-conf] -              $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] +          Nothing -> Nothing
[opt-env-conf] +          Just OptDoc {..} ->
[opt-env-conf] +            Just
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf] +                )
[opt-env-conf] +              $ unwordsChunks
[opt-env-conf] +              $ concat
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf] @@ -658,29 +658,29 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] -          Nothing -> Nothing
[opt-env-conf] -          Just OptDoc {..} ->
[opt-env-conf] -            Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] -                )
[opt-env-conf] -              $ unwordsChunks
[opt-env-conf] -              $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] +          Nothing -> Nothing
[opt-env-conf] +          Just OptDoc {..} ->
[opt-env-conf] +            Just
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf] +                )
[opt-env-conf] +              $ unwordsChunks
[opt-env-conf] +              $ concat
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:476:31-36
[opt-env-conf] @@ -473,7 +473,7 @@
[opt-env-conf]    AnyDocsSingle $
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf] -        { setDocTryArgument = False,
[opt-env-conf] +        { setDocTryArgument = True,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:477:29-33
[opt-env-conf] @@ -474,7 +474,7 @@
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf] -          setDocTrySwitch = True,
[opt-env-conf] +          setDocTrySwitch = False,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:478:29-34
[opt-env-conf] @@ -475,7 +475,7 @@
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf] -          setDocTryOption = False,
[opt-env-conf] +          setDocTryOption = True,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf]            setDocExamples = [],
[opt-env-conf]            setDocMetavar = Nothing,
[opt-env-conf] -          setDocHelp = Just $ case mVersion of
[opt-env-conf] -            Nothing -> "Output version information"
[opt-env-conf] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf] +          setDocHelp = Just $ case mVersion of
[opt-env-conf] +            Nothing -> "Output version information"
[opt-env-conf] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf]          }
[opt-env-conf]  
[opt-env-conf]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf]            setDocExamples = [],
[opt-env-conf]            setDocMetavar = Nothing,
[opt-env-conf] -          setDocHelp = Just $ case mVersion of
[opt-env-conf] -            Nothing -> "Output version information"
[opt-env-conf] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf] +          setDocHelp = Just $ case mVersion of
[opt-env-conf] +            Nothing -> "Output version information"
[opt-env-conf] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf]          }
[opt-env-conf]  
[opt-env-conf]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:459:31-36
[opt-env-conf] @@ -456,7 +456,7 @@
[opt-env-conf]    AnyDocsSingle $
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf] -        { setDocTryArgument = False,
[opt-env-conf] +        { setDocTryArgument = True,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:460:29-33
[opt-env-conf] @@ -457,7 +457,7 @@
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf] -          setDocTrySwitch = True,
[opt-env-conf] +          setDocTrySwitch = False,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:461:29-34
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf] -          setDocTryOption = False,
[opt-env-conf] +          setDocTryOption = True,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf] @@ -459,7 +459,7 @@
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf] +          setDocDasheds = [],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf] @@ -459,7 +459,7 @@
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf] +          setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,7 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,10 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [progNameChunk progname],
[opt-env-conf] +      [versionChunk version],
[opt-env-conf] +      ["\n"]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,10 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [progNameChunk progname],
[opt-env-conf] +      [versionChunk version],
[opt-env-conf] +      ["\n"]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> True
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> False
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> not (all nullCommandDoc cs)
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:392:19-23
[opt-env-conf] @@ -389,7 +389,7 @@
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] -  AnyDocsOr [] -> True
[opt-env-conf] +  AnyDocsOr [] -> False
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:393:18-23
[opt-env-conf] @@ -390,7 +390,7 @@
[opt-env-conf]  nullDocs = \case
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf] -  AnyDocsOr _ -> False
[opt-env-conf] +  AnyDocsOr _ -> True
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:394:20-24
[opt-env-conf] @@ -391,7 +391,7 @@
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf] -  AnyDocsAnd [] -> True
[opt-env-conf] +  AnyDocsAnd [] -> False
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf]    where
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:395:19-24
[opt-env-conf] @@ -392,7 +392,7 @@
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] -  AnyDocsAnd _ -> False
[opt-env-conf] +  AnyDocsAnd _ -> True
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf]    where
[opt-env-conf]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:396:22-27
[opt-env-conf] @@ -393,7 +393,7 @@
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf] -  AnyDocsSingle _ -> False
[opt-env-conf] +  AnyDocsSingle _ -> True
[opt-env-conf]    where
[opt-env-conf]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf]      nullCommandDoc = nullDocs . commandDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf] @@ -229,7 +229,7 @@
[opt-env-conf]            [ ["argument:"],
[opt-env-conf]              [mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] +      | True
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf] @@ -229,7 +229,7 @@
[opt-env-conf]            [ ["argument:"],
[opt-env-conf]              [mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] +      | not (setDocTryArgument)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf] @@ -226,9 +226,7 @@
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf] @@ -226,9 +226,9 @@
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:228:7-8
[opt-env-conf] @@ -225,12 +225,12 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] +      | True,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] +      | not (setDocTrySwitch),
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf] @@ -232,9 +232,7 @@
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf] @@ -232,9 +232,9 @@
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:234:7-8
[opt-env-conf] @@ -231,13 +231,13 @@
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] +      | True,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] +      | not (setDocTryOption),
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ []
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf] @@ -239,10 +239,7 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:241:7-8
[opt-env-conf] @@ -238,14 +238,14 @@
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf] @@ -249,7 +249,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ []
[opt-env-conf]            ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf] @@ -249,7 +249,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf] @@ -247,10 +247,7 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf] @@ -247,10 +247,10 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [[] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,8 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [["config: ", confValChunk key
[opt-env-conf] +] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf] @@ -265,7 +265,7 @@
[opt-env-conf]                          ( case ls of
[opt-env-conf]                              [] -> [["TODO"]]
[opt-env-conf]                              (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                              ([] ++ l)
[opt-env-conf]                                  : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf] @@ -265,7 +265,7 @@
[opt-env-conf]                          ( case ls of
[opt-env-conf]                              [] -> [["TODO"]]
[opt-env-conf]                              (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf]                                  : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf] @@ -262,11 +262,11 @@
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf] @@ -262,11 +262,11 @@
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf] @@ -256,18 +256,18 @@
[opt-env-conf]        concat
[opt-env-conf]          [ concatMap
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf]          | confs <- maybeToList setDocConfKeys
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf] @@ -256,18 +256,18 @@
[opt-env-conf]        concat
[opt-env-conf]          [ concatMap
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf]          | confs <- maybeToList setDocConfKeys
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (True)
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (not (null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not True
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not not ((null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | True
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (not (null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:278:7-8
[opt-env-conf] @@ -275,9 +275,9 @@
[opt-env-conf]        [ defaultValueChunks dv
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] +      [ exampleValuesChunks setDocExamples
[opt-env-conf] +      | not (null setDocExamples)
[opt-env-conf] +      ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,7 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,60 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf] +      ],
[opt-env-conf] +      concat
[opt-env-conf] +        [ concatMap
[opt-env-conf] +            ( \(key, schema) ->
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf] +            )
[opt-env-conf] +            (NE.toList confs)
[opt-env-conf] +        | confs <- maybeToList setDocConfKeys
[opt-env-conf] +        ],
[opt-env-conf] +      [ defaultValueChunks dv
[opt-env-conf] +      | dv <- maybeToList setDocDefault
[opt-env-conf] +      ],
[opt-env-conf] +      [ exampleValuesChunks setDocExamples
[opt-env-conf] +      | not (null setDocExamples)
[opt-env-conf] +      ]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,48 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf] +      ],
[opt-env-conf] +      concat
[opt-env-conf] +        [ concatMap
[opt-env-conf] +            ( \(key, schema) ->
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,7 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,10 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf] +      [[]]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,10 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf] +      [[]]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf] @@ -136,9 +136,9 @@
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] -        [a] -> a
[opt-env-conf] -        as -> AnyDocsAnd as
[opt-env-conf] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] +        [a] -> a
[opt-env-conf] +        as -> AnyDocsAnd as
[opt-env-conf]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf] @@ -136,9 +136,9 @@
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] -        [a] -> a
[opt-env-conf] -        as -> AnyDocsAnd as
[opt-env-conf] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] +        [a] -> a
[opt-env-conf] +        as -> AnyDocsAnd as
[opt-env-conf]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf] @@ -165,7 +165,7 @@
[opt-env-conf]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] +      ParserAp pf pa -> AnyDocsAnd []
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf] @@ -165,7 +165,7 @@
[opt-env-conf]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] +      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf] @@ -166,7 +166,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf] +      ParserSelect p1 p2 -> AnyDocsAnd []
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf] @@ -166,7 +166,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf] +      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] +      ParserAlt p1 p2 -> AnyDocsOr []
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] +      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] +      ParserMany _ p -> AnyDocsOr []
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] +      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf] @@ -170,7 +170,7 @@
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf] +      ParserSome mLoc p -> AnyDocsAnd [] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf] @@ -170,7 +170,7 @@
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf] +      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf] @@ -174,7 +174,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf]  
[opt-env-conf]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf] @@ -174,7 +174,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf]  
[opt-env-conf]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,7 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,7 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,8 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf] @@ -449,7 +449,7 @@
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf]  
[opt-env-conf]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf]  helpDocs =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf] @@ -449,7 +449,7 @@
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf]  
[opt-env-conf]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf]  helpDocs =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if True
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if False
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if not (setDocHelp d == Just h)
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:510:9-42
[opt-env-conf] @@ -507,11 +507,11 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] -          then
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in (d : sds, rest)
[opt-env-conf] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf] +        if setDocHelp d == Just h
[opt-env-conf] +          then
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in (d : sds, rest)
[opt-env-conf] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf]        ds -> ([], ds)
[opt-env-conf]  
[opt-env-conf]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf] @@ -529,12 +529,12 @@
[opt-env-conf]            [] -> []
[opt-env-conf]            [d] -> [go' d]
[opt-env-conf]            (AnyDocsSingle d : ds) ->
[opt-env-conf] -            case setDocHelp d of
[opt-env-conf] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] -              Just h ->
[opt-env-conf] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf] -                    ne = d :| sds
[opt-env-conf] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf] +            case setDocHelp d of
[opt-env-conf] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] +              Just h ->
[opt-env-conf] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf] +                    ne = d :| sds
[opt-env-conf] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf] @@ -529,12 +529,12 @@
[opt-env-conf]            [] -> []
[opt-env-conf]            [d] -> [go' d]
[opt-env-conf]            (AnyDocsSingle d : ds) ->
[opt-env-conf] -            case setDocHelp d of
[opt-env-conf] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] -              Just h ->
[opt-env-conf] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf] -                    ne = d :| sds
[opt-env-conf] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf] +            case setDocHelp d of
[opt-env-conf] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] +              Just h ->
[opt-env-conf] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf] +                    ne = d :| sds
[opt-env-conf] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf] @@ -498,9 +498,7 @@
[opt-env-conf]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf]        AnyDocsSingle (d :| ds) ->
[opt-env-conf]          [ concat
[opt-env-conf] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf] @@ -498,9 +498,9 @@
[opt-env-conf]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf]        AnyDocsSingle (d :| ds) ->
[opt-env-conf]          [ concat
[opt-env-conf] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] -            ]
[opt-env-conf] +            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] +              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] +            ]
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:541:40-44
[opt-env-conf] @@ -538,7 +538,7 @@
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] -renderCommandDocs = unlinesChunks . go True . withoutHiddenDocs
[opt-env-conf] +renderCommandDocs = unlinesChunks . go False . withoutHiddenDocs
[opt-env-conf]    where
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if True
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if False
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if not (setDocHelp d == Just h)
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:588:9-42
[opt-env-conf] @@ -585,11 +585,11 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] -          then
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in (d : sds, rest)
[opt-env-conf] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf] +        if setDocHelp d == Just h
[opt-env-conf] +          then
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in (d : sds, rest)
[opt-env-conf] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf]        ds -> ([], ds)
[opt-env-conf]  
[opt-env-conf]  renderCommandDocsShort :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go True d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go False d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go not (isTopLevel) d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go True (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go False (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go not (isTopLevel) (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr True ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr False ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr not (isTopLevel) ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not True
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not not (isTopLevel)
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | True
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not (not isTopLevel)
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,7 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          []
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,10 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,10 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:574:23-24
[opt-env-conf] @@ -571,13 +571,13 @@
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr True rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr False rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr not (isTopLevel) rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf] @@ -570,16 +570,7 @@
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +                  []
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf] @@ -570,16 +570,16 @@
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf] @@ -565,21 +565,21 @@
[opt-env-conf]        [] -> []
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] -          Just h ->
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +        case setDocHelp d of
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Just h ->
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in concat
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf] @@ -565,21 +565,21 @@
[opt-env-conf]        [] -> []
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] -          Just h ->
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +        case setDocHelp d of
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Just h ->
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in concat
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go True d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go False d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go not (isTopLevel) d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr True ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr False ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr not (isTopLevel) ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = True
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = False
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if True then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if False then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:556:22-60
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,7 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : []
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,7 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,8 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : ["command: ", commandChunk commandDocArgument
[opt-env-conf] +]
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:559:20-25
[opt-env-conf] @@ -556,7 +556,7 @@
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] -              : go False commandDocs
[opt-env-conf] +              : go True commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go True) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go False) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go not (isTopLevel)) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr True ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr False ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr not (isTopLevel) ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf] @@ -546,7 +546,7 @@
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf] -        | isTopLevel -> []
[opt-env-conf] +        | True -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf] @@ -546,7 +546,7 @@
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf] -        | isTopLevel -> []
[opt-env-conf] +        | not (isTopLevel) -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = True
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = False
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if True then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if False then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:608:20-58
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent []]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = True
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = False
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if True then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if False then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:698:28-66
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks []
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf] @@ -701,9 +701,9 @@
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf] @@ -701,9 +701,9 @@
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf] @@ -704,9 +704,9 @@
[opt-env-conf]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf]  
[opt-env-conf]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf] @@ -704,9 +704,9 @@
[opt-env-conf]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf]  
[opt-env-conf]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,7 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,11 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,10 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          []
[opt-env-conf] +],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if True
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if False
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if not (null commandPath)
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:436:13-37
[opt-env-conf] @@ -433,9 +433,9 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf] @@ -431,12 +431,7 @@
[opt-env-conf]            [],
[opt-env-conf]            unlinesChunks $ progDescLines progDesc
[opt-env-conf]          ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf] @@ -431,12 +431,12 @@
[opt-env-conf]            [],
[opt-env-conf]            unlinesChunks $ progDescLines progDesc
[opt-env-conf]          ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (True)
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not True
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not not ((null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | True
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf] @@ -438,9 +438,7 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            | not (null (docsToCommandDocs docs))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf] @@ -438,9 +438,9 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf]            | not (null (docsToCommandDocs docs))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:441:11-12
[opt-env-conf] @@ -438,11 +438,11 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,7 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,24 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf] +        concat
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,24 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf] +        concat
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,8 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [".Dt ", progNameChunk progname
[opt-env-conf] +],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] +              [],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf] @@ -310,7 +310,7 @@
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf] @@ -310,7 +310,7 @@
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf] @@ -312,7 +312,7 @@
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] +              [],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf] @@ -312,7 +312,7 @@
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf] @@ -314,7 +314,7 @@
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              [],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf]                [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf] @@ -314,7 +314,7 @@
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf]                [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] +              [],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,7 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,23 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,22 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"]
[opt-env-conf] +],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not not ((null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf] @@ -320,9 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf] @@ -320,9 +320,9 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:323:15-16
[opt-env-conf] @@ -320,11 +320,11 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not not ((nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf] @@ -326,9 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf] @@ -326,9 +326,9 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
[opt-env-conf] @@ -326,11 +326,11 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not not ((nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf] @@ -332,9 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf] @@ -332,9 +332,9 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:335:15-16
[opt-env-conf] @@ -332,11 +332,11 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not not ((nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf] @@ -338,9 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf] @@ -338,9 +338,9 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:341:15-16
[opt-env-conf] @@ -338,11 +338,11 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,7 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,48 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf] +          ]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,44 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"]
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,7 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,11 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,10 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings"
[opt-env-conf] +],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not not ((null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf] @@ -361,9 +361,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf] @@ -361,9 +361,9 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:364:15-16
[opt-env-conf] @@ -361,11 +361,11 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not not ((nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf] @@ -367,9 +367,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf] @@ -367,9 +367,9 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
[opt-env-conf] @@ -367,11 +367,11 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not not ((nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf] @@ -373,9 +373,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf] @@ -373,9 +373,9 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:376:15-16
[opt-env-conf] @@ -373,11 +373,11 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not not ((nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf] @@ -379,9 +379,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf] @@ -379,9 +379,9 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:382:15-16
[opt-env-conf] @@ -379,11 +379,11 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,7 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,36 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf] +          ]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,32 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Configuration Values"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { True :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { False :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { not (optDocTryArgument) :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    not (optDocTrySwitch) :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    not (optDocTryOption) :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { True :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { False :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { not (setDocTryArgument) :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    not (setDocTrySwitch) :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    not (setDocTryOption) :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added 424 mutations
[opt-env-conf] [13 of 22] Compiling OptEnvConf.Error ( src/OptEnvConf/Error.hs, dist/build/OptEnvConf/Error.o, dist/build/OptEnvConf/Error.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Error
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,4 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  [ commandChunk commandDocArgument,
[opt-env-conf] +    ": ",
[opt-env-conf] +    helpChunk commandDocHelp
[opt-env-conf] +  ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,6 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  [ commandChunk commandDocArgument,
[opt-env-conf] +    ": "
[opt-env-conf] +]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf] @@ -86,9 +86,7 @@
[opt-env-conf]          ParseErrorEmptySetting ->
[opt-env-conf]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf]          ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf] @@ -86,9 +86,9 @@
[opt-env-conf]          ParseErrorEmptySetting ->
[opt-env-conf]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf]          ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf] @@ -90,7 +90,7 @@
[opt-env-conf]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf]            ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +          []
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf]            [ "Missing argument: "
[opt-env-conf]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf] @@ -90,7 +90,7 @@
[opt-env-conf]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf]            ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf]            [ "Missing argument: "
[opt-env-conf]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +          [ [],
[opt-env-conf]              [fore blue "available commands:"]
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf]              [fore blue "available commands:"]
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf] @@ -124,9 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf] @@ -124,9 +124,9 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf] @@ -129,9 +129,7 @@
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf]          ParseErrorUnrecognised leftovers ->
[opt-env-conf]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf] @@ -129,9 +129,9 @@
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf]          ParseErrorUnrecognised leftovers ->
[opt-env-conf]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf] @@ -80,65 +80,7 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf] @@ -80,65 +80,65 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:52:22-26
[opt-env-conf] @@ -49,7 +49,7 @@
[opt-env-conf]  
[opt-env-conf]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf] -  ParseErrorEmpty -> True
[opt-env-conf] +  ParseErrorEmpty -> False
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:53:29-34
[opt-env-conf] @@ -50,7 +50,7 @@
[opt-env-conf]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf] -  ParseErrorEmptySetting -> False
[opt-env-conf] +  ParseErrorEmptySetting -> True
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:54:26-31
[opt-env-conf] @@ -51,7 +51,7 @@
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf] -  ParseErrorNoReaders -> False
[opt-env-conf] +  ParseErrorNoReaders -> True
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> True
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> False
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> not (forgivable)
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:56:34-38
[opt-env-conf] @@ -53,7 +53,7 @@
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] -  ParseErrorMissingArgument _ -> True
[opt-env-conf] +  ParseErrorMissingArgument _ -> False
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:57:33-38
[opt-env-conf] @@ -54,7 +54,7 @@
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf] -  ParseErrorArgumentRead _ _ -> False
[opt-env-conf] +  ParseErrorArgumentRead _ _ -> True
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:58:32-36
[opt-env-conf] @@ -55,7 +55,7 @@
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingSwitch _ -> True
[opt-env-conf] +  ParseErrorMissingSwitch _ -> False
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:59:31-36
[opt-env-conf] @@ -56,7 +56,7 @@
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] -  ParseErrorOptionRead _ _ -> False
[opt-env-conf] +  ParseErrorOptionRead _ _ -> True
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:60:32-36
[opt-env-conf] @@ -57,7 +57,7 @@
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingOption _ -> True
[opt-env-conf] +  ParseErrorMissingOption _ -> False
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:61:32-36
[opt-env-conf] @@ -58,7 +58,7 @@
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf] -  ParseErrorMissingEnvVar _ -> True
[opt-env-conf] +  ParseErrorMissingEnvVar _ -> False
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:62:28-33
[opt-env-conf] @@ -59,7 +59,7 @@
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf] -  ParseErrorEnvRead _ _ -> False
[opt-env-conf] +  ParseErrorEnvRead _ _ -> True
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:63:33-37
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingConfVal _ -> True
[opt-env-conf] +  ParseErrorMissingConfVal _ -> False
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:64:31-36
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf] -  ParseErrorConfigRead _ _ -> False
[opt-env-conf] +  ParseErrorConfigRead _ _ -> True
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ True
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ False
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ not (null cs)
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> True
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> False
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not (not $ null cs)
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:66:40-45
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] -  ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] +  ParseErrorUnrecognisedCommand _ _ -> True
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:67:31-36
[opt-env-conf] @@ -64,7 +64,7 @@
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] -  ParseErrorAllOrNothing _ -> False
[opt-env-conf] +  ParseErrorAllOrNothing _ -> True
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:68:31-36
[opt-env-conf] @@ -65,7 +65,7 @@
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf] -  ParseErrorUnrecognised _ -> False
[opt-env-conf] +  ParseErrorUnrecognised _ -> True
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf]  
[opt-env-conf]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:69:36-41
[opt-env-conf] @@ -66,7 +66,7 @@
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] -  ParseErrorMissingCapability _ -> False
[opt-env-conf] +  ParseErrorMissingCapability _ -> True
[opt-env-conf]  
[opt-env-conf]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf]  eraseErrorSrcLocs = fmap eraseErrorSrcLoc
[opt-env-conf] added 58 mutations
[opt-env-conf] [14 of 22] Compiling OptEnvConf.Completion ( src/OptEnvConf/Completion.hs, dist/build/OptEnvConf/Completion.o, dist/build/OptEnvConf/Completion.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Completion
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf] @@ -304,9 +304,9 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just cs1 -> do
[opt-env-conf]            p2s <- tryOrRestore $ go p2
[opt-env-conf] -          pure $ case p2s of
[opt-env-conf] -            Nothing -> Nothing
[opt-env-conf] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf] +          pure $ case p2s of
[opt-env-conf] +            Nothing -> Nothing
[opt-env-conf] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      -- Nothing means "this branch was not valid"
[opt-env-conf]      -- Just [] means "no completions"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf] @@ -304,9 +304,9 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just cs1 -> do
[opt-env-conf]            p2s <- tryOrRestore $ go p2
[opt-env-conf] -          pure $ case p2s of
[opt-env-conf] -            Nothing -> Nothing
[opt-env-conf] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf] +          pure $ case p2s of
[opt-env-conf] +            Nothing -> Nothing
[opt-env-conf] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      -- Nothing means "this branch was not valid"
[opt-env-conf]      -- Just [] means "no completions"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if True
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if False
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if not (after == before)
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf] @@ -284,7 +284,7 @@
[opt-env-conf]                      -- dashed suggestions (state didn't advance
[opt-env-conf]                      -- further), prefer our completions which came
[opt-env-conf]                      -- from the advancing iteration.
[opt-env-conf] -                    | null os -> pure $ Just more
[opt-env-conf] +                    | True -> pure $ Just more
[opt-env-conf]                      | otherwise -> pure $ Just os
[opt-env-conf]  
[opt-env-conf]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf] @@ -284,7 +284,7 @@
[opt-env-conf]                      -- dashed suggestions (state didn't advance
[opt-env-conf]                      -- further), prefer our completions which came
[opt-env-conf]                      -- from the advancing iteration.
[opt-env-conf] -                    | null os -> pure $ Just more
[opt-env-conf] +                    | not (null os) -> pure $ Just more
[opt-env-conf]                      | otherwise -> pure $ Just os
[opt-env-conf]  
[opt-env-conf]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if True
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if False
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if not (argsAtEnd rest)
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf] @@ -357,11 +357,11 @@
[opt-env-conf]                    -- name then the remaining args have nowhere to go.
[opt-env-conf]                      pure Nothing
[opt-env-conf]                Just arg ->
[opt-env-conf] -                case find ((== arg) . commandArg) cs of
[opt-env-conf] -                  Just c -> do
[opt-env-conf] -                    put rest
[opt-env-conf] -                    goCommand c
[opt-env-conf] -                  Nothing -> pure Nothing
[opt-env-conf] +                case find ((== arg) . commandArg) cs of
[opt-env-conf] +                  Just c -> do
[opt-env-conf] +                    put rest
[opt-env-conf] +                    goCommand c
[opt-env-conf] +                  Nothing -> pure Nothing
[opt-env-conf]          -- If there is a default command, also try completing within
[opt-env-conf]          -- the default command's parser, since that is what would run
[opt-env-conf]          -- if the user provides no command.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf] @@ -357,11 +357,11 @@
[opt-env-conf]                    -- name then the remaining args have nowhere to go.
[opt-env-conf]                      pure Nothing
[opt-env-conf]                Just arg ->
[opt-env-conf] -                case find ((== arg) . commandArg) cs of
[opt-env-conf] -                  Just c -> do
[opt-env-conf] -                    put rest
[opt-env-conf] -                    goCommand c
[opt-env-conf] -                  Nothing -> pure Nothing
[opt-env-conf] +                case find ((== arg) . commandArg) cs of
[opt-env-conf] +                  Just c -> do
[opt-env-conf] +                    put rest
[opt-env-conf] +                    goCommand c
[opt-env-conf] +                  Nothing -> pure Nothing
[opt-env-conf]          -- If there is a default command, also try completing within
[opt-env-conf]          -- the default command's parser, since that is what would run
[opt-env-conf]          -- if the user provides no command.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | True -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | not (argsAtEnd as) -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | argsAtEnd as -> pure $ combineOptions []
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if True then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if False then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if not (argsAtEnd as) then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completion.hs:401:37-41
[opt-env-conf] @@ -398,7 +398,7 @@
[opt-env-conf]                if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf] -                    DashedLong _ -> True
[opt-env-conf] +                    DashedLong _ -> False
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completion.hs:402:38-43
[opt-env-conf] @@ -399,7 +399,7 @@
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] -                    DashedShort _ -> False
[opt-env-conf] +                    DashedShort _ -> True
[opt-env-conf]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if True then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if False then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if not (any isLong settingDasheds) then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:403:38-120
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if True
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if False
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if not (settingHidden)
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if True
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if False
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if not (settingTryArgument)
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf] @@ -432,11 +432,11 @@
[opt-env-conf]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf]                      -- fallback matched.  In both cases, offer the
[opt-env-conf]                      -- completer if we are at the end.
[opt-env-conf] -                    case possibilities of
[opt-env-conf] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf] -                      (_, as') : _ -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        completeWithCompleterAtEnd
[opt-env-conf] +                    case possibilities of
[opt-env-conf] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf] +                      (_, as') : _ -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf]                  if isJust settingSwitchValue
[opt-env-conf]                    then do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf] @@ -432,11 +432,11 @@
[opt-env-conf]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf]                      -- fallback matched.  In both cases, offer the
[opt-env-conf]                      -- completer if we are at the end.
[opt-env-conf] -                    case possibilities of
[opt-env-conf] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf] -                      (_, as') : _ -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        completeWithCompleterAtEnd
[opt-env-conf] +                    case possibilities of
[opt-env-conf] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf] +                      (_, as') : _ -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf]                  if isJust settingSwitchValue
[opt-env-conf]                    then do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if True
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if False
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if not (isJust settingSwitchValue)
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if True
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if False
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if not (settingTryOption)
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if True
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if False
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if not (argsAtEnd as)
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:441:17-39
[opt-env-conf] @@ -438,50 +438,50 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] -                  then do
[opt-env-conf] -                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf] -                    -- it's already been parsed.
[opt-env-conf] -                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf] -                      Nothing ->
[opt-env-conf] -                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf] -                        completeWithDasheds
[opt-env-conf] -                      Just as' -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        pure $ Just []
[opt-env-conf] -                  else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf] -                        case Args.consumeOption settingDasheds as of
[opt-env-conf] -                          Just (_, as') -> do
[opt-env-conf] -                            put as'
[opt-env-conf] -                            pure $ Just []
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] -                              then completeWithDasheds
[opt-env-conf] -                              else do
[opt-env-conf] -                                -- If we're not at the end, we may be between an option's
[opt-env-conf] -                                -- dashed an the option value being tab-completed In that case
[opt-env-conf] -                                -- we need to parse the dashed as normal and check if that
[opt-env-conf] -                                -- brings us to the end.
[opt-env-conf] -                                --
[opt-env-conf] -                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf] -                                -- the option because consumeOption would try to
[opt-env-conf] -                                -- consume the option argument too.
[opt-env-conf] -                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf] -                                  Nothing -> pure $ Just []
[opt-env-conf] -                                  Just as' -> do
[opt-env-conf] -                                    put as'
[opt-env-conf] -                                    completeWithCompleterAtEnd
[opt-env-conf] -                      else do
[opt-env-conf] -                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf] -                        -- or config values, but this path is still valid.
[opt-env-conf] -                        --
[opt-env-conf] -                        -- If we checked whether the env var is set or the
[opt-env-conf] -                        -- config val is present, we could return Nothing when
[opt-env-conf] -                        -- they are absent. That would let alternatives reject
[opt-env-conf] -                        -- this branch, improving completions when one branch
[opt-env-conf] -                        -- is env/conf-only and the other has args/options.
[opt-env-conf] -                        -- This would require IO or an environment parameter.
[opt-env-conf] -                        pure $ Just []
[opt-env-conf] +                if isJust settingSwitchValue
[opt-env-conf] +                  then do
[opt-env-conf] +                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf] +                    -- it's already been parsed.
[opt-env-conf] +                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf] +                      Nothing ->
[opt-env-conf] +                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf] +                        completeWithDasheds
[opt-env-conf] +                      Just as' -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        pure $ Just []
[opt-env-conf] +                  else do
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf] +                        case Args.consumeOption settingDasheds as of
[opt-env-conf] +                          Just (_, as') -> do
[opt-env-conf] +                            put as'
[opt-env-conf] +                            pure $ Just []
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            if argsAtEnd as
[opt-env-conf] +                              then completeWithDasheds
[opt-env-conf] +                              else do
[opt-env-conf] +                                -- If we're not at the end, we may be between an option's
[opt-env-conf] +                                -- dashed an the option value being tab-completed In that case
[opt-env-conf] +                                -- we need to parse the dashed as normal and check if that
[opt-env-conf] +                                -- brings us to the end.
[opt-env-conf] +                                --
[opt-env-conf] +                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf] +                                -- the option because consumeOption would try to
[opt-env-conf] +                                -- consume the option argument too.
[opt-env-conf] +                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf] +                                  Nothing -> pure $ Just []
[opt-env-conf] +                                  Just as' -> do
[opt-env-conf] +                                    put as'
[opt-env-conf] +                                    completeWithCompleterAtEnd
[opt-env-conf] +                      else do
[opt-env-conf] +                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf] +                        -- or config values, but this path is still valid.
[opt-env-conf] +                        --
[opt-env-conf] +                        -- If we checked whether the env var is set or the
[opt-env-conf] +                        -- config val is present, we could return Nothing when
[opt-env-conf] +                        -- they are absent. That would let alternatives reject
[opt-env-conf] +                        -- this branch, improving completions when one branch
[opt-env-conf] +                        -- is env/conf-only and the other has args/options.
[opt-env-conf] +                        -- This would require IO or an environment parameter.
[opt-env-conf] +                        pure $ Just []
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf] @@ -160,7 +160,7 @@
[opt-env-conf]    --
[opt-env-conf]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf]    let index = pred index'
[opt-env-conf] -  let ws = drop 1 ws'
[opt-env-conf] +  let ws = drop 0 ws'
[opt-env-conf]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf]    let completions = pureCompletionQuery parser index ws
[opt-env-conf]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf] @@ -160,7 +160,7 @@
[opt-env-conf]    --
[opt-env-conf]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf]    let index = pred index'
[opt-env-conf] -  let ws = drop 1 ws'
[opt-env-conf] +  let ws = drop -1 ws'
[opt-env-conf]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf]    let completions = pureCompletionQuery parser index ws
[opt-env-conf]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if not (enriched)
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = True
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = False
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = not (completionResultFinality completionSuggestion == CompletionNotFinal)
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (True, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (False, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (not (notFinal), completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:171:3-100
[opt-env-conf] @@ -168,22 +168,22 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] -    then
[opt-env-conf] -      putStr $
[opt-env-conf] -        unlines $
[opt-env-conf] -          map
[opt-env-conf] -            ( \Completion {..} ->
[opt-env-conf] -                let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] -            )
[opt-env-conf] -            evaluatedCompletions
[opt-env-conf] -    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] +  if enriched
[opt-env-conf] +    then
[opt-env-conf] +      putStr $
[opt-env-conf] +        unlines $
[opt-env-conf] +          map
[opt-env-conf] +            ( \Completion {..} ->
[opt-env-conf] +                let val = completionResultValue completionSuggestion
[opt-env-conf] +                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +            )
[opt-env-conf] +            evaluatedCompletions
[opt-env-conf] +    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf]    pure ()
[opt-env-conf]  
[opt-env-conf]  -- Because the first arg has already been skipped we get input like this here:
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,7 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,27 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        [ " function " ++ functionName,
[opt-env-conf] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] +          "    # Hack around fish issue #3934",
[opt-env-conf] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] +          "    set -l cn (count $cn)",
[opt-env-conf] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] +          "    for arg in $cl",
[opt-env-conf] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] +          "      if test -d $val",
[opt-env-conf] +          "        echo -E \"$val/\"",
[opt-env-conf] +          "      else",
[opt-env-conf] +          "        echo -E \"$val\"",
[opt-env-conf] +          "      end",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "end",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,27 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        [ " function " ++ functionName,
[opt-env-conf] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] +          "    # Hack around fish issue #3934",
[opt-env-conf] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] +          "    set -l cn (count $cn)",
[opt-env-conf] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] +          "    for arg in $cl",
[opt-env-conf] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] +          "      if test -d $val",
[opt-env-conf] +          "        echo -E \"$val/\"",
[opt-env-conf] +          "      else",
[opt-env-conf] +          "        echo -E \"$val\"",
[opt-env-conf] +          "      end",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "end",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,7 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,46 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    [ "#compdef " ++ progname,
[opt-env-conf] +      "",
[opt-env-conf] +      "local request",
[opt-env-conf] +      "local completions",
[opt-env-conf] +      "local word",
[opt-env-conf] +      "local index=$((CURRENT - 1))",
[opt-env-conf] +      "",
[opt-env-conf] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] +      "for arg in ${words[@]}; do",
[opt-env-conf] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] +      "done",
[opt-env-conf] +      "",
[opt-env-conf] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "for word in $completions; do",
[opt-env-conf] +      "  local -a parts",
[opt-env-conf] +      "",
[opt-env-conf] +      "  # Split the line at a tab if there is one.",
[opt-env-conf] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] +      "     else",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] +      "     fi",
[opt-env-conf] +      "  else",
[opt-env-conf] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] +      "    else",
[opt-env-conf] +      "      compadd -f -- $parts[1]",
[opt-env-conf] +      "    fi",
[opt-env-conf] +      "  fi",
[opt-env-conf] +      "done"
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,45 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    [ "#compdef " ++ progname,
[opt-env-conf] +      "",
[opt-env-conf] +      "local request",
[opt-env-conf] +      "local completions",
[opt-env-conf] +      "local word",
[opt-env-conf] +      "local index=$((CURRENT - 1))",
[opt-env-conf] +      "",
[opt-env-conf] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] +      "for arg in ${words[@]}; do",
[opt-env-conf] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] +      "done",
[opt-env-conf] +      "",
[opt-env-conf] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "for word in $completions; do",
[opt-env-conf] +      "  local -a parts",
[opt-env-conf] +      "",
[opt-env-conf] +      "  # Split the line at a tab if there is one.",
[opt-env-conf] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] +      "     else",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] +      "     fi",
[opt-env-conf] +      "  else",
[opt-env-conf] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] +      "    else",
[opt-env-conf] +      "      compadd -f -- $parts[1]",
[opt-env-conf] +      "    fi",
[opt-env-conf] +      "  fi"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,7 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,22 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        [ functionName ++ "()",
[opt-env-conf] +          "{",
[opt-env-conf] +          "    local CMDLINE",
[opt-env-conf] +          "    local IFS=$'\\n'",
[opt-env-conf] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] +          "",
[opt-env-conf] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] +          "    done",
[opt-env-conf] +          "",
[opt-env-conf] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] +          "}",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,21 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        [ functionName ++ "()",
[opt-env-conf] +          "{",
[opt-env-conf] +          "    local CMDLINE",
[opt-env-conf] +          "    local IFS=$'\\n'",
[opt-env-conf] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] +          "",
[opt-env-conf] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] +          "    done",
[opt-env-conf] +          "",
[opt-env-conf] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] +          "}",
[opt-env-conf] +          ""
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added 72 mutations
[opt-env-conf] [15 of 22] Compiling OptEnvConf.Terminal ( src/OptEnvConf/Terminal.hs, dist/build/OptEnvConf/Terminal.o, dist/build/OptEnvConf/Terminal.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Terminal
[opt-env-conf] added 0 mutations
[opt-env-conf] [16 of 22] Compiling OptEnvConf.Validation ( src/OptEnvConf/Validation.hs, dist/build/OptEnvConf/Validation.o, dist/build/OptEnvConf/Validation.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Validation
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf] @@ -78,9 +78,9 @@
[opt-env-conf]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] -    Left a -> f a
[opt-env-conf] -    Right b -> b
[opt-env-conf] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] +    Left a -> f a
[opt-env-conf] +    Right b -> b
[opt-env-conf]  
[opt-env-conf]  validationFailure :: e -> Validation e a
[opt-env-conf]  validationFailure e = Failure (e :| [])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf] @@ -78,9 +78,9 @@
[opt-env-conf]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] -    Left a -> f a
[opt-env-conf] -    Right b -> b
[opt-env-conf] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] +    Left a -> f a
[opt-env-conf] +    Right b -> b
[opt-env-conf]  
[opt-env-conf]  validationFailure :: e -> Validation e a
[opt-env-conf]  validationFailure e = Failure (e :| [])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf] @@ -66,9 +66,9 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative (Validation e) where
[opt-env-conf]    pure = Success
[opt-env-conf] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] -    Success _ -> e1
[opt-env-conf] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] +    Success _ -> e1
[opt-env-conf]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf]    Success f <*> Success a = Success (f a)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf] @@ -66,9 +66,9 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative (Validation e) where
[opt-env-conf]    pure = Success
[opt-env-conf] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] -    Success _ -> e1
[opt-env-conf] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] +    Success _ -> e1
[opt-env-conf]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf]    Success f <*> Success a = Success (f a)
[opt-env-conf]  
[opt-env-conf] added 4 mutations
[opt-env-conf] [17 of 22] Compiling OptEnvConf.Run   ( src/OptEnvConf/Run.hs, dist/build/OptEnvConf/Run.o, dist/build/OptEnvConf/Run.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Run
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf] @@ -709,11 +709,11 @@
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeSwitch ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just args' -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just ())
[opt-env-conf] +  case Args.consumeSwitch ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just args' -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just ())
[opt-env-conf]  
[opt-env-conf]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf] @@ -709,11 +709,11 @@
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeSwitch ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just args' -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just ())
[opt-env-conf] +  case Args.consumeSwitch ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just args' -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just ())
[opt-env-conf]  
[opt-env-conf]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf] @@ -700,11 +700,11 @@
[opt-env-conf]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf]  ppOpt ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeOption ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just (a, args') -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just a)
[opt-env-conf] +  case Args.consumeOption ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just (a, args') -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just a)
[opt-env-conf]  
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf] @@ -700,11 +700,11 @@
[opt-env-conf]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf]  ppOpt ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeOption ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just (a, args') -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just a)
[opt-env-conf] +  case Args.consumeOption ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just (a, args') -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just a)
[opt-env-conf]  
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if True
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if False
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if not (all errorIsForgivable errs)
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:638:7-28
[opt-env-conf] @@ -635,10 +635,10 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf]      Success a -> do
[opt-env-conf]        put s' -- Only set state if parsing succeeded.
[opt-env-conf]        pure $ Just a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf] @@ -633,15 +633,15 @@
[opt-env-conf]    e <- ask
[opt-env-conf]    results <- liftIO $ runPP pp s e
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf] -  case errOrRes of
[opt-env-conf] -    Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] -    Success a -> do
[opt-env-conf] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf] -      pure $ Just a
[opt-env-conf] +  case errOrRes of
[opt-env-conf] +    Failure errs ->
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf] +    Success a -> do
[opt-env-conf] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf] +      pure $ Just a
[opt-env-conf]  
[opt-env-conf]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf]  ppNonDet = PP . lift . lift . lift
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf] @@ -633,15 +633,15 @@
[opt-env-conf]    e <- ask
[opt-env-conf]    results <- liftIO $ runPP pp s e
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf] -  case errOrRes of
[opt-env-conf] -    Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] -    Success a -> do
[opt-env-conf] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf] -      pure $ Just a
[opt-env-conf] +  case errOrRes of
[opt-env-conf] +    Failure errs ->
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf] +    Success a -> do
[opt-env-conf] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf] +      pure $ Just a
[opt-env-conf]  
[opt-env-conf]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf]  ppNonDet = PP . lift . lift . lift
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
[opt-env-conf] @@ -508,7 +508,7 @@
[opt-env-conf]            { ppEnvEnv = EnvMap.empty,
[opt-env-conf]              ppEnvConf = Nothing,
[opt-env-conf]              ppEnvDebug = mDebugMode,
[opt-env-conf] -            ppEnvIndent = 0
[opt-env-conf] +            ppEnvIndent = 1
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf] @@ -513,9 +513,9 @@
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf]      Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf] @@ -513,9 +513,9 @@
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf]      Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf] @@ -511,11 +511,11 @@
[opt-env-conf]              ppEnvIndent = 0
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf] -  case mResOrNext of
[opt-env-conf] -    Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +  case mResOrNext of
[opt-env-conf] +    Nothing -> pure $ Right Nothing
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf] @@ -511,11 +511,11 @@
[opt-env-conf]              ppEnvIndent = 0
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf] -  case mResOrNext of
[opt-env-conf] -    Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +  case mResOrNext of
[opt-env-conf] +    Nothing -> pure $ Right Nothing
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
[opt-env-conf] @@ -526,12 +526,12 @@
[opt-env-conf]              ParserPure _ -> do
[opt-env-conf]                debug [syntaxChunk "pure value"]
[opt-env-conf]                pure Nothing
[opt-env-conf] -            ParserAp ff fa -> do
[opt-env-conf] -              debug [syntaxChunk "Ap"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                mf <- go ff
[opt-env-conf] -                ma <- go fa
[opt-env-conf] -                pure $ ma <|> mf -- Reverse order
[opt-env-conf] +            ParserAp ff fa -> do
[opt-env-conf] +              debug [syntaxChunk "Ap"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                mf <- go ff
[opt-env-conf] +                ma <- go fa
[opt-env-conf] +                pure $ ma <|> mf -- Reverse order
[opt-env-conf]              ParserSelect fe ff -> do
[opt-env-conf]                debug [syntaxChunk "Select"]
[opt-env-conf]                ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
[opt-env-conf] @@ -532,12 +532,12 @@
[opt-env-conf]                  mf <- go ff
[opt-env-conf]                  ma <- go fa
[opt-env-conf]                  pure $ ma <|> mf -- Reverse order
[opt-env-conf] -            ParserSelect fe ff -> do
[opt-env-conf] -              debug [syntaxChunk "Select"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                me <- go fe
[opt-env-conf] -                mf <- go ff
[opt-env-conf] -                pure $ mf <|> me -- Reverse order
[opt-env-conf] +            ParserSelect fe ff -> do
[opt-env-conf] +              debug [syntaxChunk "Select"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                me <- go fe
[opt-env-conf] +                mf <- go ff
[opt-env-conf] +                pure $ mf <|> me -- Reverse order
[opt-env-conf]              ParserEmpty mLoc -> do
[opt-env-conf]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
[opt-env-conf] @@ -550,9 +550,9 @@
[opt-env-conf]                    Just a -> do
[opt-env-conf]                      debug ["Left side succeeded."]
[opt-env-conf]                      pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf] @@ -546,13 +546,13 @@
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  debug ["Trying left side."]
[opt-env-conf]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf] @@ -546,13 +546,13 @@
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  debug ["Trying left side."]
[opt-env-conf]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
[opt-env-conf] @@ -541,18 +541,18 @@
[opt-env-conf]              ParserEmpty mLoc -> do
[opt-env-conf]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] -            ParserAlt p1 p2 -> do
[opt-env-conf] -              debug [syntaxChunk "Alt"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                debug ["Trying left side."]
[opt-env-conf] -                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +            ParserAlt p1 p2 -> do
[opt-env-conf] +              debug [syntaxChunk "Alt"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                debug ["Trying left side."]
[opt-env-conf] +                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,7 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,7 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,8 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Many", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
[opt-env-conf] @@ -553,9 +553,9 @@
[opt-env-conf]                    Nothing -> do
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf] -            ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserMany mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,7 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,7 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,8 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Some", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
[opt-env-conf] @@ -556,9 +556,9 @@
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserSome mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,7 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,7 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,8 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserAllOrNothing mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,8 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
[opt-env-conf] @@ -562,9 +562,9 @@
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,8 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
[opt-env-conf] @@ -565,12 +565,12 @@
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                mNewConfig <- go pc
[opt-env-conf] -                mRes <- go pa
[opt-env-conf] -                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf] +            ParserWithConfig mLoc pc pa -> do
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                mNewConfig <- go pc
[opt-env-conf] +                mRes <- go pa
[opt-env-conf] +                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf]              ParserSetting mLoc _ -> do
[opt-env-conf]                debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf] @@ -591,9 +591,9 @@
[opt-env-conf]                        Just c -> do
[opt-env-conf]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf] @@ -591,9 +591,9 @@
[opt-env-conf]                        Just c -> do
[opt-env-conf]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf] @@ -584,16 +584,16 @@
[opt-env-conf]                      debug ["No argument found for choosing a command."]
[opt-env-conf]                      pure Nothing
[opt-env-conf]                    Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf] @@ -584,16 +584,16 @@
[opt-env-conf]                      debug ["No argument found for choosing a command."]
[opt-env-conf]                      pure Nothing
[opt-env-conf]                    Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf] @@ -579,21 +579,21 @@
[opt-env-conf]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["No argument found for choosing a command."]
[opt-env-conf] -                    pure Nothing
[opt-env-conf] -                  Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["No argument found for choosing a command."]
[opt-env-conf] +                    pure Nothing
[opt-env-conf] +                  Just s -> do
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf] @@ -579,21 +579,21 @@
[opt-env-conf]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["No argument found for choosing a command."]
[opt-env-conf] -                    pure Nothing
[opt-env-conf] -                  Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["No argument found for choosing a command."]
[opt-env-conf] +                    pure Nothing
[opt-env-conf] +                  Just s -> do
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf] @@ -487,9 +487,9 @@
[opt-env-conf]        Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf] -      (r : rl) -> case runReader r s of
[opt-env-conf] -        Left err -> go' (err <| errs) rl
[opt-env-conf] -        Right a -> Right a
[opt-env-conf] +      (r : rl) -> case runReader r s of
[opt-env-conf] +        Left err -> go' (err <| errs) rl
[opt-env-conf] +        Right a -> Right a
[opt-env-conf]  
[opt-env-conf]  runHelpParser ::
[opt-env-conf]    -- DebugMode
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf] @@ -487,9 +487,9 @@
[opt-env-conf]        Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf] -      (r : rl) -> case runReader r s of
[opt-env-conf] -        Left err -> go' (err <| errs) rl
[opt-env-conf] -        Right a -> Right a
[opt-env-conf] +      (r : rl) -> case runReader r s of
[opt-env-conf] +        Left err -> go' (err <| errs) rl
[opt-env-conf] +        Right a -> Right a
[opt-env-conf]  
[opt-env-conf]  runHelpParser ::
[opt-env-conf]    -- DebugMode
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf]    where
[opt-env-conf] -    go (r :| rl) = case runReader r s of
[opt-env-conf] -      Left err -> go' (err :| []) rl
[opt-env-conf] -      Right a -> Right a
[opt-env-conf] +    go (r :| rl) = case runReader r s of
[opt-env-conf] +      Left err -> go' (err :| []) rl
[opt-env-conf] +      Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf]        (r : rl) -> case runReader r s of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf]    where
[opt-env-conf] -    go (r :| rl) = case runReader r s of
[opt-env-conf] -      Left err -> go' (err :| []) rl
[opt-env-conf] -      Right a -> Right a
[opt-env-conf] +    go (r :| rl) = case runReader r s of
[opt-env-conf] +      Left err -> go' (err :| []) rl
[opt-env-conf] +      Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf]        (r : rl) -> case runReader r s of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf] @@ -474,9 +474,9 @@
[opt-env-conf]    | Found a
[opt-env-conf]  
[opt-env-conf]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] -  Just ne -> pure ne
[opt-env-conf] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] +  Just ne -> pure ne
[opt-env-conf]  
[opt-env-conf]  -- Try the readers in order
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf] @@ -474,9 +474,9 @@
[opt-env-conf]    | Found a
[opt-env-conf]  
[opt-env-conf]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] -  Just ne -> pure ne
[opt-env-conf] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] +  Just ne -> pure ne
[opt-env-conf]  
[opt-env-conf]  -- Try the readers in order
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
[opt-env-conf] @@ -461,11 +461,11 @@
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf]    case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf]      Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf] @@ -460,13 +460,13 @@
[opt-env-conf]    PP a ->
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] -    Nothing -> func
[opt-env-conf] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf]    = NotRun
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf] @@ -460,13 +460,13 @@
[opt-env-conf]    PP a ->
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] -    Nothing -> func
[opt-env-conf] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf]    = NotRun
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
[opt-env-conf] @@ -72,7 +72,7 @@
[opt-env-conf]            { ppEnvEnv = envVars,
[opt-env-conf]              ppEnvConf = mConfig,
[opt-env-conf]              ppEnvDebug = mDebugMode,
[opt-env-conf] -            ppEnvIndent = 0
[opt-env-conf] +            ppEnvIndent = 1
[opt-env-conf]            }
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf]          leftoverArgs <- gets ppStateArgs
[opt-env-conf] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf] -          Nothing -> pure result
[opt-env-conf] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf] +          Nothing -> pure result
[opt-env-conf] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf]          leftoverArgs <- gets ppStateArgs
[opt-env-conf] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf] -          Nothing -> pure result
[opt-env-conf] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf] +          Nothing -> pure result
[opt-env-conf] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf] @@ -94,9 +94,9 @@
[opt-env-conf]                    pure $
[opt-env-conf]                      Left $
[opt-env-conf]                        -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf]                    Success a -> pure (Right a)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf] @@ -94,9 +94,9 @@
[opt-env-conf]                    pure $
[opt-env-conf]                      Left $
[opt-env-conf]                        -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf]                    Success a -> pure (Right a)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf] @@ -98,9 +98,9 @@
[opt-env-conf]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf]                              Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf] @@ -98,9 +98,9 @@
[opt-env-conf]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf]                              Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf] @@ -89,18 +89,18 @@
[opt-env-conf]          let goNexts ns = do
[opt-env-conf]                -- TODO: Consider keeping around all errors?
[opt-env-conf]                mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf] @@ -89,18 +89,18 @@
[opt-env-conf]          let goNexts ns = do
[opt-env-conf]                -- TODO: Consider keeping around all errors?
[opt-env-conf]                mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf] @@ -83,25 +83,25 @@
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf] @@ -83,25 +83,25 @@
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf] @@ -81,27 +81,27 @@
[opt-env-conf]            Nothing -> pure result
[opt-env-conf]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf] -  case mTup of
[opt-env-conf] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +  case mTup of
[opt-env-conf] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf] @@ -81,27 +81,27 @@
[opt-env-conf]            Nothing -> pure result
[opt-env-conf]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf] -  case mTup of
[opt-env-conf] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +  case mTup of
[opt-env-conf] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
[opt-env-conf] @@ -110,9 +110,9 @@
[opt-env-conf]        ParserPure a -> do
[opt-env-conf]          debug [syntaxChunk "pure value"]
[opt-env-conf]          pure a
[opt-env-conf] -      ParserAp ff fa -> do
[opt-env-conf] -        debug [syntaxChunk "Ap"]
[opt-env-conf] -        ppIndent $ go ff <*> go fa
[opt-env-conf] +      ParserAp ff fa -> do
[opt-env-conf] +        debug [syntaxChunk "Ap"]
[opt-env-conf] +        ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,8 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Empty", ": "
[opt-env-conf] +]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
[opt-env-conf] @@ -113,9 +113,9 @@
[opt-env-conf]        ParserAp ff fa -> do
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf] -      ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppError mLoc ParseErrorEmpty
[opt-env-conf] +      ParserEmpty mLoc -> do
[opt-env-conf] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf]          ppIndent $ select (go fe) (go ff)
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
[opt-env-conf] @@ -116,9 +116,9 @@
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf] -      ParserSelect fe ff -> do
[opt-env-conf] -        debug [syntaxChunk "Select"]
[opt-env-conf] -        ppIndent $ select (go fe) (go ff)
[opt-env-conf] +      ParserSelect fe ff -> do
[opt-env-conf] +        debug [syntaxChunk "Select"]
[opt-env-conf] +        ppIndent $ select (go fe) (go ff)
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          debug [syntaxChunk "Alt"]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
[opt-env-conf] @@ -128,9 +128,9 @@
[opt-env-conf]              Just a -> do
[opt-env-conf]                debug ["Left side succeeded."]
[opt-env-conf]                pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf] @@ -124,13 +124,13 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["Trying left side."]
[opt-env-conf]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf] @@ -124,13 +124,13 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["Trying left side."]
[opt-env-conf]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
[opt-env-conf] @@ -119,18 +119,18 @@
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf]          ppIndent $ select (go fe) (go ff)
[opt-env-conf] -      ParserAlt p1 p2 -> do
[opt-env-conf] -        debug [syntaxChunk "Alt"]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          debug ["Trying left side."]
[opt-env-conf] -          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +      ParserAlt p1 p2 -> do
[opt-env-conf] +        debug [syntaxChunk "Alt"]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          debug ["Trying left side."]
[opt-env-conf] +          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,7 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,7 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,8 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Many", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf] @@ -135,11 +135,11 @@
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf] @@ -135,11 +135,11 @@
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
[opt-env-conf] @@ -131,15 +131,15 @@
[opt-env-conf]              Nothing -> do
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf] -      ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +      ParserMany mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          eor <- tryPP $ go p'
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,8 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Some", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
[opt-env-conf] @@ -140,13 +140,13 @@
[opt-env-conf]              Just a -> do
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf] -      ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          a <- go p'
[opt-env-conf] -          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] -          as <- go (ParserMany mLoc p')
[opt-env-conf] -          pure (a :| as)
[opt-env-conf] +      ParserSome mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          a <- go p'
[opt-env-conf] +          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] +          as <- go (ParserMany mLoc p')
[opt-env-conf] +          pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,7 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,7 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,8 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ True
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ False
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ not (all errorIsForgivable errs)
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if True
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if False
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not (not $ all errorIsForgivable errs)
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if True
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if False
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if not (null parsedSettingsMap)
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:175:19-112
[opt-env-conf] @@ -172,9 +172,9 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:161:15-112
[opt-env-conf] @@ -158,23 +158,23 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf] @@ -155,26 +155,26 @@
[opt-env-conf]            results <- liftIO $ runPP (go p') s e
[opt-env-conf]            (result, s') <- ppNonDetList results
[opt-env-conf]            put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf] @@ -155,26 +155,26 @@
[opt-env-conf]            results <- liftIO $ runPP (go p') s e
[opt-env-conf]            (result, s') <- ppNonDetList results
[opt-env-conf]            put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
[opt-env-conf] @@ -149,32 +149,32 @@
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          e <- ask
[opt-env-conf] -          s <- get
[opt-env-conf] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf] -          (result, s') <- ppNonDetList results
[opt-env-conf] -          put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          e <- ask
[opt-env-conf] +          s <- get
[opt-env-conf] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf] +          (result, s') <- ppNonDetList results
[opt-env-conf] +          put s'
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
[opt-env-conf] @@ -147,34 +147,34 @@
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf] -      ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          e <- ask
[opt-env-conf] -          s <- get
[opt-env-conf] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf] -          (result, s') <- ppNonDetList results
[opt-env-conf] -          put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +      ParserAllOrNothing mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          e <- ask
[opt-env-conf] +          s <- get
[opt-env-conf] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf] +          (result, s') <- ppNonDetList results
[opt-env-conf] +          put s'
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show True]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug []
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed True err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed False err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
[opt-env-conf] @@ -192,9 +192,9 @@
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf] @@ -191,13 +191,13 @@
[opt-env-conf]            ppIndent $
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf] -              case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] -                Right b -> do
[opt-env-conf] -                  debug ["succeeded"]
[opt-env-conf] -                  pure b
[opt-env-conf] +              case errOrB of
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Right b -> do
[opt-env-conf] +                  debug ["succeeded"]
[opt-env-conf] +                  pure b
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf] @@ -191,13 +191,13 @@
[opt-env-conf]            ppIndent $
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf] -              case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] -                Right b -> do
[opt-env-conf] -                  debug ["succeeded"]
[opt-env-conf] -                  pure b
[opt-env-conf] +              case errOrB of
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Right b -> do
[opt-env-conf] +                  debug ["succeeded"]
[opt-env-conf] +                  pure b
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf]                  Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  debug []
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf]                  Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
[opt-env-conf] @@ -212,9 +212,9 @@
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf] @@ -210,11 +210,11 @@
[opt-env-conf]                let mDefaultCommand = do
[opt-env-conf]                      d <- mDefault
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf] @@ -210,11 +210,11 @@
[opt-env-conf]                let mDefaultCommand = do
[opt-env-conf]                      d <- mDefault
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf] @@ -219,7 +219,7 @@
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf]                  Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  debug []
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf] @@ -219,7 +219,7 @@
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf]                  Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
[opt-env-conf] @@ -218,9 +218,9 @@
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf] @@ -216,11 +216,11 @@
[opt-env-conf]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf] @@ -216,11 +216,11 @@
[opt-env-conf]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf] @@ -204,23 +204,23 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            mS <- ppArg
[opt-env-conf]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf] -          case mS of
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["No argument found for choosing a command."]
[opt-env-conf] -              let mDefaultCommand = do
[opt-env-conf] -                    d <- mDefault
[opt-env-conf] -                    find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] -            Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +          case mS of
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["No argument found for choosing a command."]
[opt-env-conf] +              let mDefaultCommand = do
[opt-env-conf] +                    d <- mDefault
[opt-env-conf] +                    find ((== d) . commandArg) cs
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf] +            Just s -> do
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf] @@ -204,23 +204,23 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            mS <- ppArg
[opt-env-conf]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf] -          case mS of
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["No argument found for choosing a command."]
[opt-env-conf] -              let mDefaultCommand = do
[opt-env-conf] -                    d <- mDefault
[opt-env-conf] -                    find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] -            Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +          case mS of
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["No argument found for choosing a command."]
[opt-env-conf] +              let mDefaultCommand = do
[opt-env-conf] +                    d <- mDefault
[opt-env-conf] +                    find ((== d) . commandArg) cs
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf] +            Just s -> do
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,8 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
[opt-env-conf] @@ -221,15 +221,15 @@
[opt-env-conf]                  Just c -> do
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf] -      ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          debug ["loading config"]
[opt-env-conf] -          mNewConfig <- ppIndent $ go pc
[opt-env-conf] -          debug ["with loaded config"]
[opt-env-conf] -          ppIndent $
[opt-env-conf] -            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf] -              go pa
[opt-env-conf] +      ParserWithConfig mLoc pc pa -> do
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          debug ["loading config"]
[opt-env-conf] +          mNewConfig <- ppIndent $ go pc
[opt-env-conf] +          debug ["with loaded config"]
[opt-env-conf] +          ppIndent $
[opt-env-conf] +            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf] +              go pa
[opt-env-conf]        ParserSetting mLoc set@Setting {..} -> do
[opt-env-conf]          debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null settingRequiredCapabilities)) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if True
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if False
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if not (settingTryArgument)
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf] @@ -270,14 +270,14 @@
[opt-env-conf]                      debug ["could not set based on argument: no argument"]
[opt-env-conf]                      pure NotFound
[opt-env-conf]                    Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf] @@ -270,14 +270,14 @@
[opt-env-conf]                      debug ["could not set based on argument: no argument"]
[opt-env-conf]                      pure NotFound
[opt-env-conf]                    Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf] @@ -265,19 +265,19 @@
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf]                  rs <- requireReaders settingReaders
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf] @@ -265,19 +265,19 @@
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf]                  rs <- requireReaders settingReaders
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:262:13-31
[opt-env-conf] @@ -259,26 +259,26 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] -              then do
[opt-env-conf] -                -- Require readers before finding the argument so the parser
[opt-env-conf] -                -- always fails if it's missing a reader.
[opt-env-conf] -                rs <- requireReaders settingReaders
[opt-env-conf] -                mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] -              else pure NotRun
[opt-env-conf] +            if settingTryArgument
[opt-env-conf] +              then do
[opt-env-conf] +                -- Require readers before finding the argument so the parser
[opt-env-conf] +                -- always fails if it's missing a reader.
[opt-env-conf] +                rs <- requireReaders settingReaders
[opt-env-conf] +                mS <- ppArg
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf] +              else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf]              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf] @@ -289,16 +289,16 @@
[opt-env-conf]                  Nothing -> pure NotRun
[opt-env-conf]                  Just a -> do
[opt-env-conf]                    mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf] @@ -289,16 +289,16 @@
[opt-env-conf]                  Nothing -> pure NotRun
[opt-env-conf]                  Just a -> do
[opt-env-conf]                    mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf] @@ -285,20 +285,20 @@
[opt-env-conf]                markParsed
[opt-env-conf]                pure a
[opt-env-conf]              _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf] @@ -285,20 +285,20 @@
[opt-env-conf]                markParsed
[opt-env-conf]                pure a
[opt-env-conf]              _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if True
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if False
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if not (settingTryOption)
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf] @@ -320,14 +320,14 @@
[opt-env-conf]                                ]
[opt-env-conf]                              pure NotFound
[opt-env-conf]                            Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf] @@ -320,14 +320,14 @@
[opt-env-conf]                                ]
[opt-env-conf]                              pure NotFound
[opt-env-conf]                            Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf] @@ -312,22 +312,22 @@
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf]                          rs <- requireReaders settingReaders
[opt-env-conf]                          mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf] @@ -312,22 +312,22 @@
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf]                          rs <- requireReaders settingReaders
[opt-env-conf]                          mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:309:21-39
[opt-env-conf] @@ -306,29 +306,29 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf]                      Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf] @@ -349,14 +349,14 @@
[opt-env-conf]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf]                            -- result.
[opt-env-conf]                            results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf]                            case listToMaybe results of
[opt-env-conf]                              Nothing -> do
[opt-env-conf]                                debug
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf] @@ -349,14 +349,14 @@
[opt-env-conf]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf]                            -- result.
[opt-env-conf]                            results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf]                            case listToMaybe results of
[opt-env-conf]                              Nothing -> do
[opt-env-conf]                                debug
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf] @@ -357,14 +357,14 @@
[opt-env-conf]                                      chunk $ T.pack $ show varStr
[opt-env-conf]                                    ]
[opt-env-conf]                                  pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf] @@ -357,14 +357,14 @@
[opt-env-conf]                                      chunk $ T.pack $ show varStr
[opt-env-conf]                                    ]
[opt-env-conf]                                  pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf] @@ -336,35 +336,35 @@
[opt-env-conf]                        pure a
[opt-env-conf]                      _ -> do
[opt-env-conf]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf] @@ -336,35 +336,35 @@
[opt-env-conf]                        pure a
[opt-env-conf]                      _ -> do
[opt-env-conf]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf] @@ -385,9 +385,9 @@
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf]                                                Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf]                                                  case mO' of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf] @@ -385,9 +385,9 @@
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf]                                                Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf]                                                  case mO' of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf] @@ -390,9 +390,9 @@
[opt-env-conf]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf] @@ -390,9 +390,9 @@
[opt-env-conf]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf] @@ -383,16 +383,16 @@
[opt-env-conf]                                  Just obj -> do
[opt-env-conf]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf] @@ -383,16 +383,16 @@
[opt-env-conf]                                  Just obj -> do
[opt-env-conf]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf] @@ -404,19 +404,19 @@
[opt-env-conf]                                                pure Nothing
[opt-env-conf]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf] @@ -404,19 +404,19 @@
[opt-env-conf]                                                pure Nothing
[opt-env-conf]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf] @@ -402,21 +402,21 @@
[opt-env-conf]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf]                                                  ]
[opt-env-conf]                                                pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf] @@ -402,21 +402,21 @@
[opt-env-conf]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf]                                                  ]
[opt-env-conf]                                                pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf] @@ -395,28 +395,28 @@
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf] @@ -395,28 +395,28 @@
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf] @@ -393,30 +393,30 @@
[opt-env-conf]                                                  case mO' of
[opt-env-conf]                                                    Nothing -> pure Nothing
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf] @@ -393,30 +393,30 @@
[opt-env-conf]                                                  case mO' of
[opt-env-conf]                                                    Nothing -> pure Nothing
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf] @@ -424,9 +424,9 @@
[opt-env-conf]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf]                                          Just ne -> do
[opt-env-conf]                                            res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf] @@ -424,9 +424,9 @@
[opt-env-conf]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf]                                          Just ne -> do
[opt-env-conf]                                            res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf] @@ -420,13 +420,13 @@
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf] @@ -420,13 +420,13 @@
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf] @@ -376,58 +376,58 @@
[opt-env-conf]                              Nothing -> pure NotRun
[opt-env-conf]                              Just confSets -> do
[opt-env-conf]                                mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf] @@ -376,58 +376,58 @@
[opt-env-conf]                              Nothing -> pure NotRun
[opt-env-conf]                              Just confSets -> do
[opt-env-conf]                                mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf] @@ -372,62 +372,62 @@
[opt-env-conf]                            pure a
[opt-env-conf]                          _ -> do
[opt-env-conf]                            let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf] @@ -372,62 +372,62 @@
[opt-env-conf]                            pure a
[opt-env-conf]                          _ -> do
[opt-env-conf]                            let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,7 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        []
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,12 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,12 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
[opt-env-conf] @@ -437,21 +437,21 @@
[opt-env-conf]                                  Just (a, _) -> do
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf] @@ -433,25 +433,25 @@
[opt-env-conf]                                markParsed
[opt-env-conf]                                pure a
[opt-env-conf]                              _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf] @@ -433,25 +433,25 @@
[opt-env-conf]                                markParsed
[opt-env-conf]                                pure a
[opt-env-conf]                              _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf] @@ -428,30 +428,30 @@
[opt-env-conf]                                              Just a -> pure $ Found a
[opt-env-conf]                                              Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf] @@ -428,30 +428,30 @@
[opt-env-conf]                                              Just a -> pure $ Found a
[opt-env-conf]                                              Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf] @@ -366,92 +366,92 @@
[opt-env-conf]                                pure NotFound
[opt-env-conf]                              Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf] @@ -366,92 +366,92 @@
[opt-env-conf]                                pure NotFound
[opt-env-conf]                              Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf] @@ -330,128 +330,128 @@
[opt-env-conf]                                  pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf] @@ -330,128 +330,128 @@
[opt-env-conf]                                  pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf] @@ -300,158 +300,158 @@
[opt-env-conf]                        debug ["set based on switch."]
[opt-env-conf]                        pure $ Found a
[opt-env-conf]  
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf] @@ -300,158 +300,158 @@
[opt-env-conf]                        debug ["set based on switch."]
[opt-env-conf]                        pure $ Found a
[opt-env-conf]  
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf] @@ -280,178 +280,178 @@
[opt-env-conf]                          pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf] -          case mArg of
[opt-env-conf] -            Found a -> do
[opt-env-conf] -              markParsed
[opt-env-conf] -              pure a
[opt-env-conf] -            _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] -
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +          case mArg of
[opt-env-conf] +            Found a -> do
[opt-env-conf] +              markParsed
[opt-env-conf] +              pure a
[opt-env-conf] +            _ -> do
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf] +
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf] @@ -280,178 +280,178 @@
[opt-env-conf]                          pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf] -          case mArg of
[opt-env-conf] -            Found a -> do
[opt-env-conf] -              markParsed
[opt-env-conf] -              pure a
[opt-env-conf] -            _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] -
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +          case mArg of
[opt-env-conf] +            Found a -> do
[opt-env-conf] +              markParsed
[opt-env-conf] +              pure a
[opt-env-conf] +            _ -> do
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf] +
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added 200 mutations
[opt-env-conf] [18 of 22] Compiling OptEnvConf.Check ( src/OptEnvConf/Check.hs, dist/build/OptEnvConf/Check.o, dist/build/OptEnvConf/Check.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Check
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf] @@ -92,6 +92,6 @@
[opt-env-conf]                    _ -> Nothing
[opt-env-conf]                )
[opt-env-conf]                errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf] @@ -92,6 +92,6 @@
[opt-env-conf]                    _ -> Nothing
[opt-env-conf]                )
[opt-env-conf]                errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf] @@ -78,20 +78,20 @@
[opt-env-conf]    IO (CheckResult a)
[opt-env-conf]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf] -  pure $ case errOrSets of
[opt-env-conf] -    Right a -> CheckSucceeded a
[opt-env-conf] -    Left errs ->
[opt-env-conf] -      -- If all the errors are missing capability errors, return
[opt-env-conf] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] -      let mMissingCaps =
[opt-env-conf] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] -            -- ALL errors are missing capability errors
[opt-env-conf] -            mapM
[opt-env-conf] -              ( \case
[opt-env-conf] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] -                  _ -> Nothing
[opt-env-conf] -              )
[opt-env-conf] -              errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +  pure $ case errOrSets of
[opt-env-conf] +    Right a -> CheckSucceeded a
[opt-env-conf] +    Left errs ->
[opt-env-conf] +      -- If all the errors are missing capability errors, return
[opt-env-conf] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] +      let mMissingCaps =
[opt-env-conf] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] +            -- ALL errors are missing capability errors
[opt-env-conf] +            mapM
[opt-env-conf] +              ( \case
[opt-env-conf] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] +                  _ -> Nothing
[opt-env-conf] +              )
[opt-env-conf] +              errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf] @@ -78,20 +78,20 @@
[opt-env-conf]    IO (CheckResult a)
[opt-env-conf]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf] -  pure $ case errOrSets of
[opt-env-conf] -    Right a -> CheckSucceeded a
[opt-env-conf] -    Left errs ->
[opt-env-conf] -      -- If all the errors are missing capability errors, return
[opt-env-conf] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] -      let mMissingCaps =
[opt-env-conf] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] -            -- ALL errors are missing capability errors
[opt-env-conf] -            mapM
[opt-env-conf] -              ( \case
[opt-env-conf] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] -                  _ -> Nothing
[opt-env-conf] -              )
[opt-env-conf] -              errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +  pure $ case errOrSets of
[opt-env-conf] +    Right a -> CheckSucceeded a
[opt-env-conf] +    Left errs ->
[opt-env-conf] +      -- If all the errors are missing capability errors, return
[opt-env-conf] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] +      let mMissingCaps =
[opt-env-conf] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] +            -- ALL errors are missing capability errors
[opt-env-conf] +            mapM
[opt-env-conf] +              ( \case
[opt-env-conf] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] +                  _ -> Nothing
[opt-env-conf] +              )
[opt-env-conf] +              errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added 4 mutations
[opt-env-conf] [19 of 22] Compiling OptEnvConf.Lint  ( src/OptEnvConf/Lint.hs, dist/build/OptEnvConf/Lint.o, dist/build/OptEnvConf/Lint.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Lint
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:238:20-25
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]  lintParser =
[opt-env-conf]    either Just (const Nothing)
[opt-env-conf]      . validationToEither
[opt-env-conf] -    . (`runReader` False) -- Set to true for parsers that have a way to load conf
[opt-env-conf] +    . (`runReader` True) -- Set to true for parsers that have a way to load conf
[opt-env-conf]      . runValidationT
[opt-env-conf]      . go
[opt-env-conf]    where
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:246:28-33
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]      -- 'many' is allowed only when every parse below consumes something.
[opt-env-conf]      go :: Parser a -> ValidationT LintError (Reader Bool) Bool
[opt-env-conf]      go = \case
[opt-env-conf] -      ParserPure _ -> pure False
[opt-env-conf] +      ParserPure _ -> pure True
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (True || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (False || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (not (c1) || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || True)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || False)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || not (c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (True)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (False)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (not (c1 || c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure True
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure False
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure not ((c1 || c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (True || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (False || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1) || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || True) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || False) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || not (c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (True) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (False) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1 || c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure True -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure False -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure not ((c1 || c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:255:29-33
[opt-env-conf] @@ -252,7 +252,7 @@
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf]          pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] -      ParserEmpty _ -> pure True
[opt-env-conf] +      ParserEmpty _ -> pure False
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (True && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (False && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1) && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && True) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && False) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && not (c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (True) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (False) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1 && c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure True -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure False -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure not ((c1 && c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure True
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure False
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure not (c)
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure True
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure False
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure not (c)
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if True
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if False
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if not (null cs)
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when (True) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when (not (isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when True $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when not ((isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Lint.hs:278:16-53
[opt-env-conf] @@ -275,13 +275,13 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          if null cs
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] -          else do
[opt-env-conf] -            for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] -                validationTFailure $
[opt-env-conf] -                  LintError mLoc $
[opt-env-conf] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf] +          else do
[opt-env-conf] +            for_ mDefault $ \d ->
[opt-env-conf] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +                validationTFailure $
[opt-env-conf] +                  LintError mLoc $
[opt-env-conf] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Lint.hs:276:9-53
[opt-env-conf] @@ -273,15 +273,15 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] -          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] -          else do
[opt-env-conf] -            for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] -                validationTFailure $
[opt-env-conf] -                  LintError mLoc $
[opt-env-conf] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf] +        if null cs
[opt-env-conf] +          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] +          else do
[opt-env-conf] +            for_ mDefault $ \d ->
[opt-env-conf] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +                validationTFailure $
[opt-env-conf] +                  LintError mLoc $
[opt-env-conf] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ True || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ False || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ not (c1) || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || True
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || False
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || not (c2)
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ True
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ False
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ not (c1 || c2)
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ True || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ False || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ not (settingTryArgument) || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || True || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || False || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || not (isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || not (settingTryOption || isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ not (settingTryArgument || settingTryOption || isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              True,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              False,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              not (null settingEnvVars),
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              True
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              False
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              not (null settingConfigVals)
[opt-env-conf]              ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,4 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars,
[opt-env-conf] +              null settingConfigVals
[opt-env-conf] +            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,6 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars
[opt-env-conf] +]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,4 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,4 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,8 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          not (and
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars,
[opt-env-conf] +              null settingConfigVals
[opt-env-conf] +            ])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [[]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,8 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [["missing ", functionChunk "help"
[opt-env-conf] +]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,7 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ []
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,10 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,9 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting"
[opt-env-conf] +]
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,7 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,20 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,19 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value"
[opt-env-conf] +]
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf] @@ -71,27 +71,7 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf] @@ -71,27 +71,27 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,7 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,7 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,8 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            ["Found ", functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf] @@ -93,9 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf] @@ -93,9 +93,9 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf] @@ -97,7 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf] @@ -97,7 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,8 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s
[opt-env-conf] +],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,7 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,19 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,18 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,22 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,20 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s
[opt-env-conf] +]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,15 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,14 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf] @@ -193,9 +193,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf]            [ [ functionChunk "defaultCommand",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf] @@ -193,9 +193,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf]            [ [ functionChunk "defaultCommand",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: "
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,8 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader"
[opt-env-conf] +],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf] @@ -205,7 +205,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf] @@ -205,7 +205,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf] @@ -204,9 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf] @@ -204,9 +204,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,7 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,11 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,10 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name"
[opt-env-conf] +],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,7 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,12 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,11 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf] @@ -208,18 +208,7 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf] @@ -208,18 +208,18 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some"
[opt-env-conf] +],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf] @@ -221,13 +221,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf] @@ -221,13 +221,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,7 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,171 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf] +      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,166 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added 192 mutations
[opt-env-conf] [20 of 22] Compiling OptEnvConf.Main  ( src/OptEnvConf/Main.hs, dist/build/OptEnvConf/Main.o, dist/build/OptEnvConf/Main.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Main
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,7 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,10 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,9 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version"
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,11 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,10 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,7 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,11 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,10 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,7 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,11 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,10 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,7 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,12 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,11 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,7 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,12 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,11 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,7 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,12 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,11 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,7 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,12 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,11 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion"
[opt-env-conf] +]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
[opt-env-conf] @@ -281,7 +281,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] +          [ switch False,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf]              value False,
[opt-env-conf]              hidden,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
[opt-env-conf] @@ -283,7 +283,7 @@
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] +            value True,
[opt-env-conf]              hidden,
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,12 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,11 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden
[opt-env-conf] +]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,7 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,12 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,11 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden
[opt-env-conf] +]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,7 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              []
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,12 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,12 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,4 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,82 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    [ setting
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf] +      BashCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf] +        <*> many
[opt-env-conf] +          ( setting
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf] +          ),
[opt-env-conf] +      ParsedNormally <$> p
[opt-env-conf] +    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,81 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    [ setting
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf] +      BashCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf] +        <*> many
[opt-env-conf] +          ( setting
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf] +          )
[opt-env-conf] +]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf] @@ -198,11 +198,11 @@
[opt-env-conf]          let t = T.pack x
[opt-env-conf]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf] @@ -198,11 +198,11 @@
[opt-env-conf]          let t = T.pack x
[opt-env-conf]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf] @@ -196,13 +196,13 @@
[opt-env-conf]        [] -> (caps, [])
[opt-env-conf]        (x : xs) ->
[opt-env-conf]          let t = T.pack x
[opt-env-conf] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf] @@ -196,13 +196,13 @@
[opt-env-conf]        [] -> (caps, [])
[opt-env-conf]        (x : xs) ->
[opt-env-conf]          let t = T.pack x
[opt-env-conf] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
[opt-env-conf] @@ -167,7 +167,7 @@
[opt-env-conf]  consumeExactArg arg = go
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf] -      [] -> (False, [])
[opt-env-conf] +      [] -> (True, [])
[opt-env-conf]        (x : xs)
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | True -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | not (x == arg) -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | x == arg -> (False, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (True, x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (False, x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (not (found), x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if True
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if False
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if not (found)
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
[opt-env-conf] @@ -182,7 +182,7 @@
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf]     in if found
[opt-env-conf] -        then (True, as')
[opt-env-conf] +        then (False, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Main.hs:184:7-38
[opt-env-conf] @@ -181,9 +181,9 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] -        then (True, as')
[opt-env-conf] -        else consumeExactArg "-h" as'
[opt-env-conf] +   in if found
[opt-env-conf] +        then (True, as')
[opt-env-conf] +        else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeCheckMode = consumeExactArg "--run-settings-check"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if True
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if False
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if not (debugMode)
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Main.hs:83:9-28
[opt-env-conf] @@ -80,9 +80,9 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] -          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf] -          else pure Nothing
[opt-env-conf] +        if debugMode
[opt-env-conf] +          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf] +          else pure Nothing
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if True
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if False
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if not (helpMode)
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf] @@ -97,9 +97,9 @@
[opt-env-conf]                exitFailure
[opt-env-conf]              Right mCommandDoc -> do
[opt-env-conf]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf]                exitSuccess
[opt-env-conf]          else do
[opt-env-conf]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf] @@ -97,9 +97,9 @@
[opt-env-conf]                exitFailure
[opt-env-conf]              Right mCommandDoc -> do
[opt-env-conf]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf]                exitSuccess
[opt-env-conf]          else do
[opt-env-conf]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if True
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if False
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if not (checkMode)
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' True index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' False index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' not (enriched) index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added 78 mutations
[opt-env-conf] [21 of 22] Compiling OptEnvConf       ( src/OptEnvConf.hs, dist/build/OptEnvConf.o, dist/build/OptEnvConf.dyn_o )
[opt-env-conf] mutation: instrumenting OptEnvConf
[opt-env-conf] added 0 mutations
[opt-env-conf] [22 of 22] Compiling Paths_opt_env_conf ( dist/build/autogen/Paths_opt_env_conf.hs, dist/build/Paths_opt_env_conf.o, dist/build/Paths_opt_env_conf.dyn_o )
[opt-env-conf] [ 1 of 22] Compiling OptEnvConf.Args  ( src/OptEnvConf/Args.hs, dist/build/OptEnvConf/Args.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Args
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf] @@ -403,7 +403,7 @@
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] -  DashedShort c -> ['-', c]
[opt-env-conf] +  DashedShort c -> []
[opt-env-conf]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf]  
[opt-env-conf]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf] @@ -403,7 +403,7 @@
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] -  DashedShort c -> ['-', c]
[opt-env-conf] +  DashedShort c -> ['-', c]
[opt-env-conf]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf]  
[opt-env-conf]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if True
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if False
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf] @@ -361,7 +361,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] +      if not (c `elem` cs)
[opt-env-conf]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf]        if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
[opt-env-conf]          else do
[opt-env-conf]            rest' <- NE.nonEmpty rest
[opt-env-conf]            new <- go rest'
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
[opt-env-conf] @@ -369,7 +369,7 @@
[opt-env-conf]            pure $
[opt-env-conf]              Just $
[opt-env-conf]                maybe
[opt-env-conf] -                (c :| [], True)
[opt-env-conf] +                (c :| [], False)
[opt-env-conf]                  (first (c NE.<|))
[opt-env-conf]                  new
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:364:7-20
[opt-env-conf] @@ -361,17 +361,17 @@
[opt-env-conf]    where
[opt-env-conf]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]      go (c :| rest) =
[opt-env-conf] -      if c `elem` cs
[opt-env-conf] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] -        else do
[opt-env-conf] -          rest' <- NE.nonEmpty rest
[opt-env-conf] -          new <- go rest'
[opt-env-conf] -          pure $
[opt-env-conf] -            Just $
[opt-env-conf] -              maybe
[opt-env-conf] -                (c :| [], True)
[opt-env-conf] -                (first (c NE.<|))
[opt-env-conf] -                new
[opt-env-conf] +      if c `elem` cs
[opt-env-conf] +        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf] +        else do
[opt-env-conf] +          rest' <- NE.nonEmpty rest
[opt-env-conf] +          new <- go rest'
[opt-env-conf] +          pure $
[opt-env-conf] +            Just $
[opt-env-conf] +              maybe
[opt-env-conf] +                (c :| [], True)
[opt-env-conf] +                (first (c NE.<|))
[opt-env-conf] +                new
[opt-env-conf]  
[opt-env-conf]  recogniseLeftovers :: Args -> Maybe (NonEmpty String)
[opt-env-conf]  recogniseLeftovers Args {..} = NE.nonEmpty $ live argsBefore ++ live (modDoubleDash argsAfter)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf] @@ -349,7 +349,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if True
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if False
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf] @@ -351,7 +351,7 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:354:7-21
[opt-env-conf] @@ -351,9 +351,9 @@
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:352:3-47
[opt-env-conf] @@ -349,12 +349,12 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] -    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf] +  if isLong
[opt-env-conf] +    then
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf] +    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf]  consumeChar cs = go
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf] @@ -321,9 +321,9 @@
[opt-env-conf]  consumeSwitch dasheds as = do
[opt-env-conf]    case go (argsBefore as) of
[opt-env-conf]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf] -    Nothing -> case go (argsAfter as) of
[opt-env-conf] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] -      Nothing -> Nothing
[opt-env-conf] +    Nothing -> case go (argsAfter as) of
[opt-env-conf] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] +      Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf]      go = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf] @@ -321,9 +321,9 @@
[opt-env-conf]  consumeSwitch dasheds as = do
[opt-env-conf]    case go (argsBefore as) of
[opt-env-conf]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf] -    Nothing -> case go (argsAfter as) of
[opt-env-conf] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] -      Nothing -> Nothing
[opt-env-conf] +    Nothing -> case go (argsAfter as) of
[opt-env-conf] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf] +      Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf]      go = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf] @@ -331,7 +331,7 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if True then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if False then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if not (needTombstone) then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:338:25-68
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]            Nothing -> (Live o :) <$> go rest
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed True cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed False cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]            Just Nothing -> Just $ Dead : rest
[opt-env-conf]            Just (Just (cs', needTombstone)) ->
[opt-env-conf]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +             in Just $ Live (ArgDashed not (isLong) cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf] @@ -331,12 +331,12 @@
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf]        (Live o : rest) -> case o of
[opt-env-conf]          ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf]          _ -> do
[opt-env-conf]            os <- go rest
[opt-env-conf]            pure $ Live o : os
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf] @@ -329,17 +329,17 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> Nothing
[opt-env-conf]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf] -      (Live o : rest) -> case o of
[opt-env-conf] -        ArgBareDoubleDash -> Nothing
[opt-env-conf] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] -        _ -> do
[opt-env-conf] -          os <- go rest
[opt-env-conf] -          pure $ Live o : os
[opt-env-conf] +      (Live o : rest) -> case o of
[opt-env-conf] +        ArgBareDoubleDash -> Nothing
[opt-env-conf] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf] +        _ -> do
[opt-env-conf] +          os <- go rest
[opt-env-conf] +          pure $ Live o : os
[opt-env-conf]  
[opt-env-conf]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf]  -- character because then we need a tombstone.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf] @@ -306,9 +306,9 @@
[opt-env-conf]    where
[opt-env-conf]      go acc ne =
[opt-env-conf]        let (a, mRest) = NE.uncons ne
[opt-env-conf] -       in case mRest of
[opt-env-conf] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] -            Just rest -> go (a : acc) rest
[opt-env-conf] +       in case mRest of
[opt-env-conf] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] +            Just rest -> go (a : acc) rest
[opt-env-conf]  
[opt-env-conf]  -- | Consume a switch.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf] @@ -306,9 +306,9 @@
[opt-env-conf]    where
[opt-env-conf]      go acc ne =
[opt-env-conf]        let (a, mRest) = NE.uncons ne
[opt-env-conf] -       in case mRest of
[opt-env-conf] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] -            Just rest -> go (a : acc) rest
[opt-env-conf] +       in case mRest of
[opt-env-conf] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf] +            Just rest -> go (a : acc) rest
[opt-env-conf]  
[opt-env-conf]  -- | Consume a switch.
[opt-env-conf]  --
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf] @@ -290,7 +290,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then
[opt-env-conf]        if DashedLong cs `elem` dasheds
[opt-env-conf]          then Just Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if True
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if False
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf] @@ -292,7 +292,7 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf]          then Just Nothing
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:295:7-21
[opt-env-conf] @@ -292,9 +292,9 @@
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf]    if isLong
[opt-env-conf]      then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf]         in if DashedShort c `elem` dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if True
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if False
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf] @@ -297,7 +297,7 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] +       in if not (DashedShort c `elem` dasheds)
[opt-env-conf]              then Just mRest
[opt-env-conf]              else Nothing
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
[opt-env-conf] @@ -297,9 +297,9 @@
[opt-env-conf]          else Nothing
[opt-env-conf]      else
[opt-env-conf]        let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] -            then Just mRest
[opt-env-conf] -            else Nothing
[opt-env-conf] +       in if DashedShort c `elem` dasheds
[opt-env-conf] +            then Just mRest
[opt-env-conf] +            else Nothing
[opt-env-conf]  
[opt-env-conf]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf]  unsnocNE = go []
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:293:3-25
[opt-env-conf] @@ -290,16 +290,16 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf]  consumeDashedOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then
[opt-env-conf] -      if DashedLong cs `elem` dasheds
[opt-env-conf] -        then Just Nothing
[opt-env-conf] -        else Nothing
[opt-env-conf] -    else
[opt-env-conf] -      let (mRest, c) = unsnocNE cs
[opt-env-conf] -       in if DashedShort c `elem` dasheds
[opt-env-conf] -            then Just mRest
[opt-env-conf] -            else Nothing
[opt-env-conf] +  if isLong
[opt-env-conf] +    then
[opt-env-conf] +      if DashedLong cs `elem` dasheds
[opt-env-conf] +        then Just Nothing
[opt-env-conf] +        else Nothing
[opt-env-conf] +    else
[opt-env-conf] +      let (mRest, c) = unsnocNE cs
[opt-env-conf] +       in if DashedShort c `elem` dasheds
[opt-env-conf] +            then Just mRest
[opt-env-conf] +            else Nothing
[opt-env-conf]  
[opt-env-conf]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf]  unsnocNE = go []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | True && not (null rest) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | not (c `elem` dasheds) && not (null rest) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (True) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not not ((null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | True ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf] @@ -279,7 +279,7 @@
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf]    (c :| rest)
[opt-env-conf] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf] +    | not (c `elem` dasheds && not (null rest)) ->
[opt-env-conf]          Just rest
[opt-env-conf]    _ -> Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if True
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if False
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] +  if not (isLong)
[opt-env-conf]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:258:3-69
[opt-env-conf] @@ -255,9 +255,9 @@
[opt-env-conf]    NonEmpty Char ->
[opt-env-conf]    Maybe String
[opt-env-conf]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf] -  if isLong
[opt-env-conf] -    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf] -    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf] +  if isLong
[opt-env-conf] +    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf] +    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf]  
[opt-env-conf]  consumeLongDashedShorthandOption ::
[opt-env-conf]    [NonEmpty Char] ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Args.hs:89:22-45
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  renderArg = \case
[opt-env-conf]    ArgBareDoubleDash -> "--"
[opt-env-conf]    ArgBareDash -> "-"
[opt-env-conf] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf] +  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf]    ArgPlain a -> a
[opt-env-conf]  
[opt-env-conf]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf] @@ -130,10 +130,10 @@
[opt-env-conf]    -- things like a default command.
[opt-env-conf]    let addConsumeNothing = \case
[opt-env-conf]          [] -> [(Nothing, as)]
[opt-env-conf] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] -          Nothing -> r
[opt-env-conf] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] +          Nothing -> r
[opt-env-conf] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf]    addConsumeNothing $ case argsAfter as of
[opt-env-conf]      [] -> []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf] @@ -130,10 +130,10 @@
[opt-env-conf]    -- things like a default command.
[opt-env-conf]    let addConsumeNothing = \case
[opt-env-conf]          [] -> [(Nothing, as)]
[opt-env-conf] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] -          Nothing -> r
[opt-env-conf] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf] +          Nothing -> r
[opt-env-conf] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf]    addConsumeNothing $ case argsAfter as of
[opt-env-conf]      [] -> []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf] @@ -166,17 +166,17 @@
[opt-env-conf]                          [] -> Nothing
[opt-env-conf]                          (Dead : rest) -> go rest
[opt-env-conf]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf] @@ -166,17 +166,17 @@
[opt-env-conf]                          [] -> Nothing
[opt-env-conf]                          (Dead : rest) -> go rest
[opt-env-conf]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf] @@ -149,34 +149,34 @@
[opt-env-conf]                -- A single dash is always an argument
[opt-env-conf]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf]                -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf]                ArgDashed {} ->
[opt-env-conf]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf] @@ -201,7 +201,7 @@
[opt-env-conf]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                              consumeArgument (Args (befores ++ []) rest)
[opt-env-conf]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf] @@ -201,7 +201,7 @@
[opt-env-conf]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf] @@ -202,7 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ []) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf] @@ -202,7 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf]                                       (Just (renderArg a), consumed)
[opt-env-conf]                                     ]
[opt-env-conf]                          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf] @@ -202,9 +202,7 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                                ++ []
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf] @@ -202,9 +202,9 @@
[opt-env-conf]                                     ]
[opt-env-conf]                              _ ->
[opt-env-conf]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf] @@ -195,16 +195,16 @@
[opt-env-conf]                          --   * The dashed is an option and the live is the value
[opt-env-conf]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf]                          --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf] @@ -195,16 +195,16 @@
[opt-env-conf]                          --   * The dashed is an option and the live is the value
[opt-env-conf]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf]                          --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf]                          )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf] @@ -186,26 +186,26 @@
[opt-env-conf]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf]                             ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf] @@ -143,69 +143,69 @@
[opt-env-conf]         in case firstArg of
[opt-env-conf]              -- Skip any dead argument
[opt-env-conf]              Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf] @@ -140,72 +140,72 @@
[opt-env-conf]      (firstArg : afters) ->
[opt-env-conf]        let befores = argsBefore as
[opt-env-conf]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf] @@ -140,72 +140,72 @@
[opt-env-conf]      (firstArg : afters) ->
[opt-env-conf]        let befores = argsBefore as
[opt-env-conf]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf] @@ -135,77 +135,77 @@
[opt-env-conf]            Nothing -> r
[opt-env-conf]            Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf] -    [] -> []
[opt-env-conf] -    (firstArg : afters) ->
[opt-env-conf] -      let befores = argsBefore as
[opt-env-conf] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf] +    [] -> []
[opt-env-conf] +    (firstArg : afters) ->
[opt-env-conf] +      let befores = argsBefore as
[opt-env-conf] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf] @@ -135,77 +135,77 @@
[opt-env-conf]            Nothing -> r
[opt-env-conf]            Just _ -> t : addConsumeNothing rest
[opt-env-conf]  
[opt-env-conf] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf] -    [] -> []
[opt-env-conf] -    (firstArg : afters) ->
[opt-env-conf] -      let befores = argsBefore as
[opt-env-conf] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] -       in case firstArg of
[opt-env-conf] -            -- Skip any dead argument
[opt-env-conf] -            Dead -> consumeArgument consumed
[opt-env-conf] -            Live a -> case a of
[opt-env-conf] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] -              -- A single dash is always an argument
[opt-env-conf] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] -              -- Bare double-dash
[opt-env-conf] -              ArgBareDoubleDash -> case afters of
[opt-env-conf] -                -- If it's the last argument, consume it as an argument
[opt-env-conf] -                [] -> [(Just "--", consumed)]
[opt-env-conf] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf] -                -- means we've been parsing bare args and are now done.
[opt-env-conf] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] -                -- pop the args as they come.
[opt-env-conf] -                _ ->
[opt-env-conf] -                  let go = \case
[opt-env-conf] -                        [] -> Nothing
[opt-env-conf] -                        (Dead : rest) -> go rest
[opt-env-conf] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] -                   in case go afters of
[opt-env-conf] -                        Nothing -> [(Nothing, as)]
[opt-env-conf] -                        Just (firstLive, rest) ->
[opt-env-conf] -                          -- We need to leave the dead argument there so that
[opt-env-conf] -                          -- we don't consume the double-dash as an argument
[opt-env-conf] -                          -- after consuming all the arguments after it as bare
[opt-env-conf] -                          -- arguments.
[opt-env-conf] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] -                            )
[opt-env-conf] -                          ]
[opt-env-conf] -              ArgDashed {} ->
[opt-env-conf] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] -                --   * The dashed is an argument
[opt-env-conf] -                -- TODO we need to continue looking too
[opt-env-conf] -                let switchCase =
[opt-env-conf] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                           ]
[opt-env-conf] -                 in case afters of
[opt-env-conf] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] -                      [] -> switchCase
[opt-env-conf] -                      (Dead : _) -> switchCase
[opt-env-conf] -                      (Live a' : rest) ->
[opt-env-conf] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] -                        --   * The dashed is an option and the live is the value
[opt-env-conf] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] -                        --   * The dashed is an argument
[opt-env-conf] -                        ( case a' of
[opt-env-conf] -                            ArgDashed {} ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] -                                     (Just (renderArg a), consumed)
[opt-env-conf] -                                   ]
[opt-env-conf] -                        )
[opt-env-conf] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf] +    [] -> []
[opt-env-conf] +    (firstArg : afters) ->
[opt-env-conf] +      let befores = argsBefore as
[opt-env-conf] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf] +       in case firstArg of
[opt-env-conf] +            -- Skip any dead argument
[opt-env-conf] +            Dead -> consumeArgument consumed
[opt-env-conf] +            Live a -> case a of
[opt-env-conf] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf] +              -- A single dash is always an argument
[opt-env-conf] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf] +              -- Bare double-dash
[opt-env-conf] +              ArgBareDoubleDash -> case afters of
[opt-env-conf] +                -- If it's the last argument, consume it as an argument
[opt-env-conf] +                [] -> [(Just "--", consumed)]
[opt-env-conf] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf] +                -- means we've been parsing bare args and are now done.
[opt-env-conf] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf] +                -- pop the args as they come.
[opt-env-conf] +                _ ->
[opt-env-conf] +                  let go = \case
[opt-env-conf] +                        [] -> Nothing
[opt-env-conf] +                        (Dead : rest) -> go rest
[opt-env-conf] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf] +                   in case go afters of
[opt-env-conf] +                        Nothing -> [(Nothing, as)]
[opt-env-conf] +                        Just (firstLive, rest) ->
[opt-env-conf] +                          -- We need to leave the dead argument there so that
[opt-env-conf] +                          -- we don't consume the double-dash as an argument
[opt-env-conf] +                          -- after consuming all the arguments after it as bare
[opt-env-conf] +                          -- arguments.
[opt-env-conf] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf] +                            )
[opt-env-conf] +                          ]
[opt-env-conf] +              ArgDashed {} ->
[opt-env-conf] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf] +                --   * The dashed is an argument
[opt-env-conf] +                -- TODO we need to continue looking too
[opt-env-conf] +                let switchCase =
[opt-env-conf] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                           ]
[opt-env-conf] +                 in case afters of
[opt-env-conf] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf] +                      [] -> switchCase
[opt-env-conf] +                      (Dead : _) -> switchCase
[opt-env-conf] +                      (Live a' : rest) ->
[opt-env-conf] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf] +                        --   * The dashed is an option and the live is the value
[opt-env-conf] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf] +                        --   * The dashed is an argument
[opt-env-conf] +                        ( case a' of
[opt-env-conf] +                            ArgDashed {} ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf] +                                     (Just (renderArg a), consumed)
[opt-env-conf] +                                   ]
[opt-env-conf] +                        )
[opt-env-conf]  
[opt-env-conf]  -- | Consume an option.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf] @@ -222,9 +222,9 @@
[opt-env-conf]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf]      Nothing ->
[opt-env-conf]        -- TODO option value on the border
[opt-env-conf] -      case go (argsAfter as) of
[opt-env-conf] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] -        Nothing -> Nothing
[opt-env-conf] +      case go (argsAfter as) of
[opt-env-conf] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] +        Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf]      go = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf] @@ -222,9 +222,9 @@
[opt-env-conf]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf]      Nothing ->
[opt-env-conf]        -- TODO option value on the border
[opt-env-conf] -      case go (argsAfter as) of
[opt-env-conf] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] -        Nothing -> Nothing
[opt-env-conf] +      case go (argsAfter as) of
[opt-env-conf] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf] +        Nothing -> Nothing
[opt-env-conf]    where
[opt-env-conf]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf]      go = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds True cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds False cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +            case consumeDashedShorthandOption dasheds not (isLong) cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds True cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds False cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf] @@ -242,7 +242,7 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                    case consumeDashedOption dasheds not (isLong) cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf] @@ -245,7 +245,7 @@
[opt-env-conf]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf] @@ -242,10 +242,10 @@
[opt-env-conf]                Nothing ->
[opt-env-conf]                  case rest of
[opt-env-conf]                    (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf]                    _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf] @@ -240,13 +240,13 @@
[opt-env-conf]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf] @@ -240,13 +240,13 @@
[opt-env-conf]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf]                Just v -> Just (v, Dead : rest)
[opt-env-conf]                Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf] @@ -237,16 +237,16 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf] @@ -237,16 +237,16 @@
[opt-env-conf]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf]            ArgBareDoubleDash -> Nothing
[opt-env-conf]            ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf]            _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf] @@ -233,21 +233,21 @@
[opt-env-conf]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf]        -- If we find a live key, try to consume it.
[opt-env-conf]        (Live k : rest) ->
[opt-env-conf] -        case k of
[opt-env-conf] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] -          ArgBareDoubleDash -> Nothing
[opt-env-conf] -          ArgDashed isLong cs ->
[opt-env-conf] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] -              Just v -> Just (v, Dead : rest)
[opt-env-conf] -              Nothing ->
[opt-env-conf] -                case rest of
[opt-env-conf] -                  (Live v : rest') ->
[opt-env-conf] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf] -          _ -> second (Live k :) <$> go rest
[opt-env-conf] +        case k of
[opt-env-conf] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf] +          ArgBareDoubleDash -> Nothing
[opt-env-conf] +          ArgDashed isLong cs ->
[opt-env-conf] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf] +              Just v -> Just (v, Dead : rest)
[opt-env-conf] +              Nothing ->
[opt-env-conf] +                case rest of
[opt-env-conf] +                  (Live v : rest') ->
[opt-env-conf] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf] +          _ -> second (Live k :) <$> go rest
[opt-env-conf]  
[opt-env-conf]  consumeDashedShorthandOption ::
[opt-env-conf]    [Dashed] ->
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  parseArg = \case
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf] @@ -74,9 +74,9 @@
[opt-env-conf]  
[opt-env-conf]  parseArg :: String -> Arg
[opt-env-conf]  parseArg = \case
[opt-env-conf] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDoubleDash
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf] @@ -74,9 +74,9 @@
[opt-env-conf]  
[opt-env-conf]  parseArg :: String -> Arg
[opt-env-conf]  parseArg = \case
[opt-env-conf] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDoubleDash
[opt-env-conf] -    Just ne -> ArgDashed True ne
[opt-env-conf] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDoubleDash
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf]      Just ne -> ArgDashed False ne
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
[opt-env-conf] @@ -79,7 +79,7 @@
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +    Just ne -> ArgDashed True ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDash
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf]      Nothing -> ArgBareDoubleDash
[opt-env-conf]      Just ne -> ArgDashed True ne
[opt-env-conf] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] -    Nothing -> ArgBareDash
[opt-env-conf] -    Just ne -> ArgDashed False ne
[opt-env-conf] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf] +    Nothing -> ArgBareDash
[opt-env-conf] +    Just ne -> ArgDashed False ne
[opt-env-conf]    s -> ArgPlain s
[opt-env-conf]  
[opt-env-conf]  renderArg :: Arg -> String
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf] @@ -396,10 +396,10 @@
[opt-env-conf]  instance Validity Dashed
[opt-env-conf]  
[opt-env-conf]  instance IsString Dashed where
[opt-env-conf] -  fromString s = case fromString s of
[opt-env-conf] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] -    _ -> error "Invalid dashed"
[opt-env-conf] +  fromString s = case fromString s of
[opt-env-conf] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf] +    _ -> error "Invalid dashed"
[opt-env-conf]  
[opt-env-conf]  renderDashed :: Dashed -> String
[opt-env-conf]  renderDashed = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
[opt-env-conf] @@ -64,7 +64,7 @@
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] +            ('-' : _) -> True
[opt-env-conf]              _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
[opt-env-conf] @@ -65,7 +65,7 @@
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf]              ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +            _ -> False
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,7 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,7 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ False
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ not (case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True)
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf] @@ -63,9 +63,9 @@
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf]          case arg of
[opt-env-conf]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf]            _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf] @@ -61,12 +61,12 @@
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf]        [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf] @@ -60,14 +60,7 @@
[opt-env-conf]  instance Validity Arg where
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf] -      [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf]    fromString = parseArg
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf] @@ -60,14 +60,14 @@
[opt-env-conf]  instance Validity Arg where
[opt-env-conf]    validate arg =
[opt-env-conf]      mconcat
[opt-env-conf] -      [ genericValidate arg,
[opt-env-conf] -        case arg of
[opt-env-conf] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] -            ('-' : _) -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] -          _ -> valid
[opt-env-conf] -      ]
[opt-env-conf] +      [ genericValidate arg,
[opt-env-conf] +        case arg of
[opt-env-conf] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf] +            ('-' : _) -> False
[opt-env-conf] +            _ -> True
[opt-env-conf] +          _ -> valid
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  instance IsString Arg where
[opt-env-conf]    fromString = parseArg
[opt-env-conf] added 139 mutations
[opt-env-conf] [ 2 of 22] Compiling OptEnvConf.Capability ( src/OptEnvConf/Capability.hs, dist/build/OptEnvConf/Capability.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Capability
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 3 of 22] Compiling OptEnvConf.Casing ( src/OptEnvConf/Casing.hs, dist/build/OptEnvConf/Casing.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Casing
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 4 of 22] Compiling OptEnvConf.Completer ( src/OptEnvConf/Completer.hs, dist/build/OptEnvConf/Completer.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Completer
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf] @@ -269,9 +269,9 @@
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf]  applyComponent d ".." = parent d
[opt-env-conf] -applyComponent d c = case parseRelDir c of
[opt-env-conf] -  Nothing -> d
[opt-env-conf] -  Just rd -> d </> rd
[opt-env-conf] +applyComponent d c = case parseRelDir c of
[opt-env-conf] +  Nothing -> d
[opt-env-conf] +  Just rd -> d </> rd
[opt-env-conf]  
[opt-env-conf]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf] @@ -269,9 +269,9 @@
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf]  applyComponent d ".." = parent d
[opt-env-conf] -applyComponent d c = case parseRelDir c of
[opt-env-conf] -  Nothing -> d
[opt-env-conf] -  Just rd -> d </> rd
[opt-env-conf] +applyComponent d c = case parseRelDir c of
[opt-env-conf] +  Nothing -> d
[opt-env-conf] +  Just rd -> d </> rd
[opt-env-conf]  
[opt-env-conf]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (True)]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (not (null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not True]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not not ((null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | True]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (not (null seg))]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:266:15-37
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (True)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not True] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not not ((null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | True] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:267:22-44
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf]     in case rest of
[opt-env-conf]          [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf] @@ -262,9 +262,9 @@
[opt-env-conf]  splitOnSlash [] = []
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf] -   in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +   in case rest of
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf] @@ -262,9 +262,9 @@
[opt-env-conf]  splitOnSlash [] = []
[opt-env-conf]  splitOnSlash s =
[opt-env-conf]    let (seg, rest) = break (== '/') s
[opt-env-conf] -   in case rest of
[opt-env-conf] -        [] -> [seg | not (null seg)]
[opt-env-conf] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf] +   in case rest of
[opt-env-conf] +        [] -> [seg | not (null seg)]
[opt-env-conf] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf]  
[opt-env-conf]  -- | Apply a single path component to an absolute directory.
[opt-env-conf]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, True] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, not (c == "..")] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Completer.hs:243:28-76
[opt-env-conf] @@ -240,7 +240,7 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completer.hs:244:15-16
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] +        [] -> 1
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf] @@ -240,9 +240,9 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] -        ixs -> maximum ixs
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +        [] -> 0
[opt-env-conf] +        ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf] @@ -240,9 +240,9 @@
[opt-env-conf]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf]        components = splitOnSlash afterCurDir
[opt-env-conf]        -- Find the index after the last "../" component
[opt-env-conf] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] -        [] -> 0
[opt-env-conf] -        ixs -> maximum ixs
[opt-env-conf] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf] +        [] -> 0
[opt-env-conf] +        ixs -> maximum ixs
[opt-env-conf]     in if lastDotDotIdx == 0
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completer.hs:246:27-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if lastDotDotIdx == 1
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if True
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if False
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] +   in if not (lastDotDotIdx == 0)
[opt-env-conf]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf]          else
[opt-env-conf]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | True, not (null remainderComponents) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | not ("/" `isSuffixOf` afterCurDir), not (null remainderComponents) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (True) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not True = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not not ((null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, True = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf]                -- Preserve trailing slash from the original input
[opt-env-conf]                trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf]                  | otherwise = ""
[opt-env-conf]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:246:7-43
[opt-env-conf] @@ -243,19 +243,19 @@
[opt-env-conf]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf]          [] -> 0
[opt-env-conf]          ixs -> maximum ixs
[opt-env-conf] -   in if lastDotDotIdx == 0
[opt-env-conf] -        then (curDirPrefix, afterCurDir, here)
[opt-env-conf] -        else
[opt-env-conf] -          let prefixComponents = take lastDotDotIdx components
[opt-env-conf] -              remainderComponents = drop lastDotDotIdx components
[opt-env-conf] -              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf] -              -- Preserve trailing slash from the original input
[opt-env-conf] -              trailingSlash
[opt-env-conf] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] -                | otherwise = ""
[opt-env-conf] -              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf] -              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] -           in (prefix, remainder, baseDir)
[opt-env-conf] +   in if lastDotDotIdx == 0
[opt-env-conf] +        then (curDirPrefix, afterCurDir, here)
[opt-env-conf] +        else
[opt-env-conf] +          let prefixComponents = take lastDotDotIdx components
[opt-env-conf] +              remainderComponents = drop lastDotDotIdx components
[opt-env-conf] +              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf] +              -- Preserve trailing slash from the original input
[opt-env-conf] +              trailingSlash
[opt-env-conf] +                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf] +                | otherwise = ""
[opt-env-conf] +              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf] +              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf] +           in (prefix, remainder, baseDir)
[opt-env-conf]  
[opt-env-conf]  -- | Split a filepath on @\/@ separators, dropping empty segments.
[opt-env-conf]  splitOnSlash :: FilePath -> [String]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:215:16-20
[opt-env-conf] @@ -212,7 +212,7 @@
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf]  hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] +  ('.' : _) -> False
[opt-env-conf]    _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:216:8-13
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf]  hiddenRel p = case toFilePath p of
[opt-env-conf]    ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +  _ -> True
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,7 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = True
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,7 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = not (case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False)
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf] @@ -211,9 +211,9 @@
[opt-env-conf]      }
[opt-env-conf]  
[opt-env-conf]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf] -hiddenRel p = case toFilePath p of
[opt-env-conf] -  ('.' : _) -> True
[opt-env-conf] -  _ -> False
[opt-env-conf] +hiddenRel p = case toFilePath p of
[opt-env-conf] +  ('.' : _) -> True
[opt-env-conf] +  _ -> False
[opt-env-conf]  
[opt-env-conf]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf]  stripCurDir = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf] @@ -155,11 +155,11 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf] @@ -155,11 +155,11 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf] @@ -154,19 +154,19 @@
[opt-env-conf]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, _) <- listDirRel baseDir
[opt-env-conf] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] -        _ -> pure []
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, _) <- listDirForgiving ad
[opt-env-conf] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, _) <- listDirRel baseDir
[opt-env-conf] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf] +        _ -> pure []
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, _) <- listDirForgiving ad
[opt-env-conf] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf]        Nothing -> pure []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel (dirname af)) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:175:28-91
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]        Nothing -> pure []
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if True
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if False
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if not (fp == ".")
[opt-env-conf]            then do
[opt-env-conf]              (ds, _) <- listDirRel baseDir
[opt-env-conf]              pure (map fromRelDir ds)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:186:32-85
[opt-env-conf] @@ -183,7 +183,7 @@
[opt-env-conf]            else do
[opt-env-conf]              let dir = parent rf
[opt-env-conf]              let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf]              (ds, _) <- listDirForgiving ad
[opt-env-conf]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:179:9-66
[opt-env-conf] @@ -176,16 +176,16 @@
[opt-env-conf]          (ds, _) <- listDirForgiving dir
[opt-env-conf]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]        Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf] @@ -168,24 +168,24 @@
[opt-env-conf]          (ds, _) <- listDirForgiving ad
[opt-env-conf]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf]  
[opt-env-conf] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> pure []
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, _) <- listDirForgiving dir
[opt-env-conf] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] -      Just (Rel rf) ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, _) <- listDirRel baseDir
[opt-env-conf] -            pure (map fromRelDir ds)
[opt-env-conf] -          else do
[opt-env-conf] -            let dir = parent rf
[opt-env-conf] -            let ad = baseDir </> dir
[opt-env-conf] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -            (ds, _) <- listDirForgiving ad
[opt-env-conf] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> pure []
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, _) <- listDirForgiving dir
[opt-env-conf] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf] +      Just (Rel rf) ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, _) <- listDirRel baseDir
[opt-env-conf] +            pure (map fromRelDir ds)
[opt-env-conf] +          else do
[opt-env-conf] +            let dir = parent rf
[opt-env-conf] +            let ad = baseDir </> dir
[opt-env-conf] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +            (ds, _) <- listDirForgiving ad
[opt-env-conf] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf] @@ -189,9 +189,7 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ dirsFromPartialListing,
[opt-env-conf] -          dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf] @@ -189,9 +189,9 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ dirsFromPartialListing,
[opt-env-conf] -          dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ dirsFromPartialListing,
[opt-env-conf] +          dirsFromParentListing
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf] @@ -71,14 +71,14 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf] @@ -71,14 +71,14 @@
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf]        Just (Abs ad) -> do
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf] @@ -70,28 +70,28 @@
[opt-env-conf]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] -      Nothing -> case fp of
[opt-env-conf] -        [] -> do
[opt-env-conf] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf] -          pure
[opt-env-conf] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] -            )
[opt-env-conf] -        _ -> pure ([], [])
[opt-env-conf] -      Just (Abs ad) -> do
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rd) -> do
[opt-env-conf] -        let ad = baseDir </> rd
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf] +      Nothing -> case fp of
[opt-env-conf] +        [] -> do
[opt-env-conf] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf] +          pure
[opt-env-conf] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf] +            )
[opt-env-conf] +        _ -> pure ([], [])
[opt-env-conf] +      Just (Abs ad) -> do
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rd) -> do
[opt-env-conf] +        let ad = baseDir </> rd
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if True
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if False
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf] @@ -95,7 +95,7 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] +        if not (fp == ".")
[opt-env-conf]            then do
[opt-env-conf]              (ds, fs) <- listDirRel baseDir
[opt-env-conf]              pure
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:98:9-29
[opt-env-conf] @@ -95,14 +95,14 @@
[opt-env-conf]  
[opt-env-conf]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf]        Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf]          let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel (filename af)) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:108:28-92
[opt-env-conf] @@ -105,7 +105,7 @@
[opt-env-conf]            else pure ([], [])
[opt-env-conf]        Just (Abs af) -> do
[opt-env-conf]          let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving dir
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completer.hs:117:28-81
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]        Just (Rel rf) -> do
[opt-env-conf]          let dir = parent rf
[opt-env-conf]          let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf]          (ds, fs) <- listDirForgiving ad
[opt-env-conf]          pure
[opt-env-conf]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf] @@ -93,33 +93,33 @@
[opt-env-conf]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf]            )
[opt-env-conf]  
[opt-env-conf] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] -      Nothing ->
[opt-env-conf] -        if fp == "."
[opt-env-conf] -          then do
[opt-env-conf] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf] -            pure
[opt-env-conf] -              ( map fromRelDir ds,
[opt-env-conf] -                map fromRelFile fs
[opt-env-conf] -              )
[opt-env-conf] -          else pure ([], [])
[opt-env-conf] -      Just (Abs af) -> do
[opt-env-conf] -        let dir = parent af
[opt-env-conf] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] -      Just (Rel rf) -> do
[opt-env-conf] -        let dir = parent rf
[opt-env-conf] -        let ad = baseDir </> dir
[opt-env-conf] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf] -        pure
[opt-env-conf] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] -          )
[opt-env-conf] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf] +      Nothing ->
[opt-env-conf] +        if fp == "."
[opt-env-conf] +          then do
[opt-env-conf] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf] +            pure
[opt-env-conf] +              ( map fromRelDir ds,
[opt-env-conf] +                map fromRelFile fs
[opt-env-conf] +              )
[opt-env-conf] +          else pure ([], [])
[opt-env-conf] +      Just (Abs af) -> do
[opt-env-conf] +        let dir = parent af
[opt-env-conf] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf] +      Just (Rel rf) -> do
[opt-env-conf] +        let dir = parent rf
[opt-env-conf] +        let ad = baseDir </> dir
[opt-env-conf] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf] +        pure
[opt-env-conf] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf] +          )
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,7 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,11 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ map fileResult filesFromPartialListing,
[opt-env-conf] +          map fileResult filesFromParentListing,
[opt-env-conf] +          map dirResult dirsFromPartialListing,
[opt-env-conf] +          map dirResult dirsFromParentListing
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf] @@ -123,11 +123,10 @@
[opt-env-conf]  
[opt-env-conf]      pure $
[opt-env-conf]        concat
[opt-env-conf] -        [ map fileResult filesFromPartialListing,
[opt-env-conf] -          map fileResult filesFromParentListing,
[opt-env-conf] -          map dirResult dirsFromPartialListing,
[opt-env-conf] -          map dirResult dirsFromParentListing
[opt-env-conf] -        ]
[opt-env-conf] +        [ map fileResult filesFromPartialListing,
[opt-env-conf] +          map fileResult filesFromParentListing,
[opt-env-conf] +          map dirResult dirsFromPartialListing
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | True = True
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | not ("/" `isSuffixOf` completionResultValue cr) = True
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completer.hs:144:53-57
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    pure $ filter matchesExtension results
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] +      | "/" `isSuffixOf` completionResultValue cr = False
[opt-env-conf]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = True
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = False
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]    where
[opt-env-conf]      matchesExtension cr
[opt-env-conf]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf] +      | otherwise = not (any (`isSuffixOf` completionResultValue cr) exts)
[opt-env-conf]  
[opt-env-conf]  directoryPath :: Completer
[opt-env-conf]  directoryPath = Completer $ \fp' -> do
[opt-env-conf] added 95 mutations
[opt-env-conf] [ 5 of 22] Compiling OptEnvConf.EnvMap ( src/OptEnvConf/EnvMap.hs, dist/build/OptEnvConf/EnvMap.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.EnvMap
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 6 of 22] Compiling OptEnvConf.NonDet ( src/OptEnvConf/NonDet.hs, dist/build/OptEnvConf/NonDet.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.NonDet
[opt-env-conf] added 0 mutations
[opt-env-conf] [ 7 of 22] Compiling OptEnvConf.Reader ( src/OptEnvConf/Reader.hs, dist/build/OptEnvConf/Reader.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Reader
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf] @@ -75,9 +75,9 @@
[opt-env-conf]  
[opt-env-conf]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf] @@ -75,9 +75,9 @@
[opt-env-conf]  
[opt-env-conf]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Reader.hs:70:32-36
[opt-env-conf] @@ -67,7 +67,7 @@
[opt-env-conf]  --
[opt-env-conf]  -- > exists = Reader $ const $ pure True
[opt-env-conf]  exists :: Reader Bool
[opt-env-conf] -exists = Reader $ const $ pure True
[opt-env-conf] +exists = Reader $ const $ pure False
[opt-env-conf]  
[opt-env-conf]  -- | Read a value as if it were specified as a 'String' and parsed via the given 'Codec'.
[opt-env-conf]  viaStringCodec :: (HasCodec a) => Reader a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf] @@ -59,9 +59,9 @@
[opt-env-conf]  --
[opt-env-conf]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf]  auto :: (Read a) => Reader a
[opt-env-conf] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Always return True
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf] @@ -59,9 +59,9 @@
[opt-env-conf]  --
[opt-env-conf]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf]  auto :: (Read a) => Reader a
[opt-env-conf] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] -  Just a -> Right a
[opt-env-conf] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf] +  Just a -> Right a
[opt-env-conf]  
[opt-env-conf]  -- | Always return True
[opt-env-conf]  --
[opt-env-conf] added 5 mutations
[opt-env-conf] [ 8 of 22] Compiling OptEnvConf.Setting ( src/OptEnvConf/Setting.hs, dist/build/OptEnvConf/Setting.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Setting
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:416:43-48
[opt-env-conf] @@ -413,7 +413,7 @@
[opt-env-conf]    let t =
[opt-env-conf]          ConfigValSetting
[opt-env-conf]            { configValSettingPath = k :| [],
[opt-env-conf] -            configValSettingAllowPrefix = False,
[opt-env-conf] +            configValSettingAllowPrefix = True,
[opt-env-conf]              configValSettingCodec = c
[opt-env-conf]            }
[opt-env-conf]     in Builder [BuildAddConf t]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:397:43-47
[opt-env-conf] @@ -394,7 +394,7 @@
[opt-env-conf]    let t =
[opt-env-conf]          ConfigValSetting
[opt-env-conf]            { configValSettingPath = k :| [],
[opt-env-conf] -            configValSettingAllowPrefix = True,
[opt-env-conf] +            configValSettingAllowPrefix = False,
[opt-env-conf]              configValSettingCodec = c
[opt-env-conf]            }
[opt-env-conf]     in Builder [BuildAddConf t]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:379:57-62
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf]  unprefixedEnv :: String -> Builder a
[opt-env-conf] -unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf] +unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf]  
[opt-env-conf]  -- | Try to parse a configuration value at the given key.
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:375:47-51
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]  --
[opt-env-conf]  -- Multiple 'env's will be tried in order.
[opt-env-conf]  env :: String -> Builder a
[opt-env-conf] -env v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf] +env v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf]  
[opt-env-conf]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf]  unprefixedEnv :: String -> Builder a
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,7 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,11 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long (toArgCase s),
[opt-env-conf] +      env (toEnvCase s),
[opt-env-conf] +      conf (toConfigCase s)
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf] @@ -424,11 +424,11 @@
[opt-env-conf]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf]  name s =
[opt-env-conf]    mconcat
[opt-env-conf] -    [ option,
[opt-env-conf] -      long (toArgCase s),
[opt-env-conf] -      env (toEnvCase s),
[opt-env-conf] -      conf (toConfigCase s)
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long (toArgCase s),
[opt-env-conf] +      env (toEnvCase s),
[opt-env-conf] +      conf (toConfigCase s)
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Set the default value
[opt-env-conf]  --
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:276:47-51
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]  applyBuildInstruction bi s = case bi of
[opt-env-conf]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = False}
[opt-env-conf]    BuildTryOption -> s {settingTryOption = True}
[opt-env-conf]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:277:43-47
[opt-env-conf] @@ -274,7 +274,7 @@
[opt-env-conf]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf]    BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = False}
[opt-env-conf]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf]    BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:286:40-44
[opt-env-conf] @@ -283,7 +283,7 @@
[opt-env-conf]    BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf]    BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf]    BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = False}
[opt-env-conf]    BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf]    BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf] @@ -270,22 +270,22 @@
[opt-env-conf]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf]  
[opt-env-conf]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf] -applyBuildInstruction bi s = case bi of
[opt-env-conf] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf] +applyBuildInstruction bi s = case bi of
[opt-env-conf] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf]  
[opt-env-conf]  instance Semigroup (Builder f) where
[opt-env-conf]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:244:13-17
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]  
[opt-env-conf]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf]  showNonEmptyWith func (a :| as) =
[opt-env-conf] -  showParen True $
[opt-env-conf] +  showParen False $
[opt-env-conf]      func a
[opt-env-conf]        . showString " :| "
[opt-env-conf]        . showListWith func as
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:240:41-45
[opt-env-conf] @@ -237,7 +237,7 @@
[opt-env-conf]  
[opt-env-conf]  showMaybeWith :: (a -> ShowS) -> Maybe a -> ShowS
[opt-env-conf]  showMaybeWith _ Nothing = showString "Nothing"
[opt-env-conf] -showMaybeWith func (Just a) = showParen True $ showString "Just " . func a
[opt-env-conf] +showMaybeWith func (Just a) = showParen False $ showString "Just " . func a
[opt-env-conf]  
[opt-env-conf]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf]  showNonEmptyWith func (a :| as) =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec 0 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec 1 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf]    showString "ConfigValSetting "
[opt-env-conf] -    . showsPrec 11 configValSettingPath
[opt-env-conf] +    . showsPrec -11 configValSettingPath
[opt-env-conf]      . showString " "
[opt-env-conf]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:201:17-21
[opt-env-conf] @@ -198,7 +198,7 @@
[opt-env-conf]  showSettingABit :: Setting a -> ShowS
[opt-env-conf]  showSettingABit Setting {..} =
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf] -   in showParen True $
[opt-env-conf] +   in showParen False $
[opt-env-conf]          showString "Setting "
[opt-env-conf]            . showsPrec 11 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec 0 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec 1 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf] @@ -200,7 +200,7 @@
[opt-env-conf]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf]     in showParen True $
[opt-env-conf]          showString "Setting "
[opt-env-conf] -          . showsPrec 11 settingDasheds
[opt-env-conf] +          . showsPrec -11 settingDasheds
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 0 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 1 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec -11 settingTryArgument
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryArgument
[opt-env-conf] +          . showsPrec 11 not (settingTryArgument)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 0 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 1 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec -11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf] @@ -208,7 +208,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingTryOption
[opt-env-conf] +          . showsPrec 11 not (settingTryOption)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec 0 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec 1 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf] @@ -210,7 +210,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingTryOption
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingEnvVars
[opt-env-conf] +          . showsPrec -11 settingEnvVars
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec 0 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec 1 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf] @@ -216,7 +216,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingExamples
[opt-env-conf] +          . showsPrec -11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 0 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 1 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec -11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 True
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 False
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf] @@ -218,7 +218,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingExamples
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHidden
[opt-env-conf] +          . showsPrec 11 not (settingHidden)
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec 0 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec 1 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf] @@ -220,7 +220,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHidden
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingMetavar
[opt-env-conf] +          . showsPrec -11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec 0 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec 1 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showsPrec 11 settingMetavar
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingHelp
[opt-env-conf] +          . showsPrec -11 settingHelp
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec 0 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec 1 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf] @@ -226,7 +226,7 @@
[opt-env-conf]            . showString " "
[opt-env-conf]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf]            . showString " "
[opt-env-conf] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf] +          . showsPrec -11 settingRequiredCapabilities
[opt-env-conf]  
[opt-env-conf]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:183:28-33
[opt-env-conf] @@ -180,7 +180,7 @@
[opt-env-conf]    Setting
[opt-env-conf]      { settingDasheds = [],
[opt-env-conf]        settingReaders = [],
[opt-env-conf] -      settingTryArgument = False,
[opt-env-conf] +      settingTryArgument = True,
[opt-env-conf]        settingSwitchValue = Nothing,
[opt-env-conf]        settingTryOption = False,
[opt-env-conf]        settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:185:26-31
[opt-env-conf] @@ -182,7 +182,7 @@
[opt-env-conf]        settingReaders = [],
[opt-env-conf]        settingTryArgument = False,
[opt-env-conf]        settingSwitchValue = Nothing,
[opt-env-conf] -      settingTryOption = False,
[opt-env-conf] +      settingTryOption = True,
[opt-env-conf]        settingEnvVars = Nothing,
[opt-env-conf]        settingConfigVals = Nothing,
[opt-env-conf]        settingMetavar = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Setting.hs:191:23-28
[opt-env-conf] @@ -188,7 +188,7 @@
[opt-env-conf]        settingMetavar = Nothing,
[opt-env-conf]        settingHelp = Nothing,
[opt-env-conf]        settingExamples = [],
[opt-env-conf] -      settingHidden = False,
[opt-env-conf] +      settingHidden = True,
[opt-env-conf]        settingDefaultValue = Nothing,
[opt-env-conf]        settingCompleter = Nothing,
[opt-env-conf]        settingRequiredCapabilities = Set.empty
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf] @@ -170,9 +170,9 @@
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf]    where
[opt-env-conf]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -      Nothing -> (f <> suffix) :| []
[opt-env-conf] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +      Nothing -> (f <> suffix) :| []
[opt-env-conf] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf]  
[opt-env-conf]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf]  emptySetting :: Setting a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf] @@ -170,9 +170,9 @@
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf]    where
[opt-env-conf]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -      Nothing -> (f <> suffix) :| []
[opt-env-conf] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +      Nothing -> (f <> suffix) :| []
[opt-env-conf] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf]  
[opt-env-conf]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf]  emptySetting :: Setting a
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if True
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if False
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf] @@ -162,7 +162,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] +  if not (configValSettingAllowPrefix c)
[opt-env-conf]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf]      else c
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Setting.hs:165:3-11
[opt-env-conf] @@ -162,9 +162,9 @@
[opt-env-conf]  
[opt-env-conf]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  prefixConfigValSetting prefix c =
[opt-env-conf] -  if configValSettingAllowPrefix c
[opt-env-conf] -    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf] -    else c
[opt-env-conf] +  if configValSettingAllowPrefix c
[opt-env-conf] +    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf] +    else c
[opt-env-conf]  
[opt-env-conf]  suffixConfigValSettingKey :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if True
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if False
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf] @@ -145,7 +145,7 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] +  if not (envVarSettingAllowPrefix e)
[opt-env-conf]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf]      else e
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Setting.hs:148:3-11
[opt-env-conf] @@ -145,9 +145,9 @@
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] -  if envVarSettingAllowPrefix e
[opt-env-conf] -    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf] -    else e
[opt-env-conf] +  if envVarSettingAllowPrefix e
[opt-env-conf] +    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf] +    else e
[opt-env-conf]  
[opt-env-conf]  suffixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  suffixEnvVarSetting suffix e = e {envVarSettingVar = envVarSettingVar e <> suffix}
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( 0
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( 1
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf] @@ -120,7 +120,7 @@
[opt-env-conf]  hashSetting :: Setting a -> SettingHash
[opt-env-conf]  hashSetting Setting {..} =
[opt-env-conf]    SettingHash
[opt-env-conf] -    ( 42
[opt-env-conf] +    ( -42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf] @@ -122,7 +122,7 @@
[opt-env-conf]    SettingHash
[opt-env-conf]      ( 42
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf] -        `hashWithSalt` settingTryArgument
[opt-env-conf] +        `hashWithSalt` not (settingTryArgument)
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] +        `hashWithSalt` not (isJust settingSwitchValue)
[opt-env-conf]          `hashWithSalt` settingTryOption
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` True
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` False
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf] @@ -125,7 +125,7 @@
[opt-env-conf]          `hashWithSalt` settingTryArgument
[opt-env-conf]          `hashWithSalt` length settingReaders
[opt-env-conf]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf] -        `hashWithSalt` settingTryOption
[opt-env-conf] +        `hashWithSalt` not (settingTryOption)
[opt-env-conf]          `hashWithSalt` settingEnvVars
[opt-env-conf]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf]      settingReaders :: ![Reader a],
[opt-env-conf]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf] -    settingTryArgument :: !Bool,
[opt-env-conf] +    not (settingTryArgument) :: !Bool,
[opt-env-conf]      -- | What value to parse when the switch exists.
[opt-env-conf]      --
[opt-env-conf]      -- Nothing means this is not a switch.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]      settingSwitchValue :: !(Maybe a),
[opt-env-conf]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf]      -- options.
[opt-env-conf] -    settingTryOption :: !Bool,
[opt-env-conf] +    not (settingTryOption) :: !Bool,
[opt-env-conf]      -- | Which env vars can be read.
[opt-env-conf]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf]      -- | Which and how to parse config values
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf] @@ -103,7 +103,7 @@
[opt-env-conf]      -- | Example values
[opt-env-conf]      settingExamples :: ![String],
[opt-env-conf]      -- | Whether to hide docs
[opt-env-conf] -    settingHidden :: !Bool,
[opt-env-conf] +    not (settingHidden) :: !Bool,
[opt-env-conf]      -- | Which metavar should be show in documentation
[opt-env-conf]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf]      settingHelp :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf] @@ -156,7 +156,7 @@
[opt-env-conf]    = forall void.
[opt-env-conf]    ConfigValSetting
[opt-env-conf]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf] +    not (configValSettingAllowPrefix) :: !Bool,
[opt-env-conf]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf]    }
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    True :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    False :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]  
[opt-env-conf]  data EnvVarSetting = EnvVarSetting
[opt-env-conf]    { envVarSettingVar :: !String,
[opt-env-conf] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf] +    not (envVarSettingAllowPrefix) :: !Bool
[opt-env-conf]    }
[opt-env-conf]    deriving (Show, Eq)
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` True
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` False
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added mutation Negate at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf]      salt
[opt-env-conf]        `hashWithSalt` envVarSettingVar
[opt-env-conf] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf] +      `hashWithSalt` not (envVarSettingAllowPrefix)
[opt-env-conf]  
[opt-env-conf]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf]  prefixEnvVarSetting prefix e =
[opt-env-conf] added 110 mutations
[opt-env-conf] [ 9 of 22] Compiling OptEnvConf.Parser ( src/OptEnvConf/Parser.hs, dist/build/OptEnvConf/Parser.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Parser
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc True caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc False caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf] @@ -1207,7 +1207,7 @@
[opt-env-conf]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc not (forgivable) caps f <$> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing True caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing False caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf] @@ -1170,7 +1170,7 @@
[opt-env-conf]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing not (forgivable) caps f (go p)
[opt-env-conf]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf] @@ -700,9 +700,9 @@
[opt-env-conf]        [] -> (Nothing, [])
[opt-env-conf]        (b : bs) ->
[opt-env-conf]          let (mDefault, cs) = go bs
[opt-env-conf] -         in case b of
[opt-env-conf] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf] +         in case b of
[opt-env-conf] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf] @@ -700,9 +700,9 @@
[opt-env-conf]        [] -> (Nothing, [])
[opt-env-conf]        (b : bs) ->
[opt-env-conf]          let (mDefault, cs) = go bs
[opt-env-conf] -         in case b of
[opt-env-conf] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf] +         in case b of
[opt-env-conf] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:686:41-45
[opt-env-conf] @@ -683,7 +683,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Like 'checkMapIO', but allow trying the other side of any alternative if the result is Nothing.
[opt-env-conf]  checkMapIOForgivable :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf] -checkMapIOForgivable = ParserCheck mLoc True Set.empty
[opt-env-conf] +checkMapIOForgivable = ParserCheck mLoc False Set.empty
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]  checkMapMaybeForgivable func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEitherForgivable
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]  checkMapMaybeForgivable func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEitherForgivable
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' True (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' False (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf] @@ -660,7 +660,7 @@
[opt-env-conf]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] +    ParserCheck mLoc' not (forgivable) (Set.insert cap caps) f p
[opt-env-conf]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:664:25-30
[opt-env-conf] @@ -661,7 +661,7 @@
[opt-env-conf]  checkWithRequiredCapability capName = \case
[opt-env-conf]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf]      ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf] -  p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf] +  p -> ParserCheck mLoc True (Set.singleton cap) (pure . Right) p
[opt-env-conf]    where
[opt-env-conf]      cap = Capability (T.pack capName)
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:618:31-36
[opt-env-conf] @@ -615,7 +615,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Check a 'Parser' after the fact, allowing IO.
[opt-env-conf]  checkMapIO :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf] -checkMapIO = ParserCheck mLoc False Set.empty
[opt-env-conf] +checkMapIO = ParserCheck mLoc True Set.empty
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf] @@ -599,9 +599,9 @@
[opt-env-conf]  checkMapMaybe func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEither
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf] @@ -599,9 +599,9 @@
[opt-env-conf]  checkMapMaybe func p =
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      checkMapEither
[opt-env-conf] -      ( \a -> case func a of
[opt-env-conf] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] -          Just b -> Right b
[opt-env-conf] +      ( \a -> case func a of
[opt-env-conf] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf] +          Just b -> Right b
[opt-env-conf]        )
[opt-env-conf]        p
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,7 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,13 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        [ bareOption,
[opt-env-conf] +          fileOption,
[opt-env-conf] +          bareEnv,
[opt-env-conf] +          fileEnv,
[opt-env-conf] +          bareConf,
[opt-env-conf] +          fileConf
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf] @@ -1016,13 +1016,12 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ bareOption,
[opt-env-conf] -          fileOption,
[opt-env-conf] -          bareEnv,
[opt-env-conf] -          fileEnv,
[opt-env-conf] -          bareConf,
[opt-env-conf] -          fileConf
[opt-env-conf] -        ]
[opt-env-conf] +        [ bareOption,
[opt-env-conf] +          fileOption,
[opt-env-conf] +          bareEnv,
[opt-env-conf] +          fileEnv,
[opt-env-conf] +          bareConf
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,7 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat []
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,7 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf] @@ -1027,7 +1027,8 @@
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      b = mconcat $ bs ++ [reader str]
[opt-env-conf]      bareSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf] +]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,7 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat []
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,7 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf] @@ -1035,7 +1035,8 @@
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf]            T.pack <$> ParserSetting mLoc s
[opt-env-conf]      fileSetting p f = do
[opt-env-conf] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf] +]
[opt-env-conf]        guard $ p s
[opt-env-conf]        pure $
[opt-env-conf]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserCheck {} -> p'
[opt-env-conf]              ParserCommands {} -> p'
[opt-env-conf]              ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserCheck {} -> p'
[opt-env-conf]              ParserCommands {} -> p'
[opt-env-conf]              ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf] @@ -547,21 +547,21 @@
[opt-env-conf]    where
[opt-env-conf]      go p =
[opt-env-conf]        let p' = p <|> pure defaultValue
[opt-env-conf] -       in case p of
[opt-env-conf] -            ParserPure a -> ParserPure a
[opt-env-conf] -            ParserAp {} -> p'
[opt-env-conf] -            ParserSelect {} -> p'
[opt-env-conf] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] -            ParserMany {} -> p'
[opt-env-conf] -            ParserSome {} -> p'
[opt-env-conf] -            ParserAllOrNothing {} -> p'
[opt-env-conf] -            ParserCheck {} -> p'
[opt-env-conf] -            ParserCommands {} -> p'
[opt-env-conf] -            ParserWithConfig {} -> p'
[opt-env-conf] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] -              Just _ -> p
[opt-env-conf] +       in case p of
[opt-env-conf] +            ParserPure a -> ParserPure a
[opt-env-conf] +            ParserAp {} -> p'
[opt-env-conf] +            ParserSelect {} -> p'
[opt-env-conf] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf] +            ParserMany {} -> p'
[opt-env-conf] +            ParserSome {} -> p'
[opt-env-conf] +            ParserAllOrNothing {} -> p'
[opt-env-conf] +            ParserCheck {} -> p'
[opt-env-conf] +            ParserCommands {} -> p'
[opt-env-conf] +            ParserWithConfig {} -> p'
[opt-env-conf] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf] +              Just _ -> p
[opt-env-conf]  
[opt-env-conf]  -- | Try a list of parsers in order
[opt-env-conf]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,7 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,13 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        [ Just parseDummy,
[opt-env-conf] +          Just parseDisableSwitch,
[opt-env-conf] +          Just parseEnableSwitch,
[opt-env-conf] +          parseEnv,
[opt-env-conf] +          parseConfigVal,
[opt-env-conf] +          parseDefaultVal
[opt-env-conf] +        ]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf] @@ -874,13 +874,12 @@
[opt-env-conf]    withFrozenCallStack $
[opt-env-conf]      choice $
[opt-env-conf]        catMaybes
[opt-env-conf] -        [ Just parseDummy,
[opt-env-conf] -          Just parseDisableSwitch,
[opt-env-conf] -          Just parseEnableSwitch,
[opt-env-conf] -          parseEnv,
[opt-env-conf] -          parseConfigVal,
[opt-env-conf] -          parseDefaultVal
[opt-env-conf] -        ]
[opt-env-conf] +        [ Just parseDummy,
[opt-env-conf] +          Just parseDisableSwitch,
[opt-env-conf] +          Just parseEnableSwitch,
[opt-env-conf] +          parseEnv,
[opt-env-conf] +          parseConfigVal
[opt-env-conf] +]
[opt-env-conf]    where
[opt-env-conf]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf]      s = buildSetting builders
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure True
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure False
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf] @@ -887,7 +887,7 @@
[opt-env-conf]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf]      parseDefaultVal = do
[opt-env-conf]        (dv, _) <- settingDefaultValue s
[opt-env-conf] -      pure $ pure dv
[opt-env-conf] +      pure $ pure not (dv)
[opt-env-conf]  
[opt-env-conf]      parseEnableSwitch :: Parser Bool
[opt-env-conf]      parseEnableSwitch =
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:898:34-39
[opt-env-conf] @@ -895,7 +895,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just True,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:899:39-43
[opt-env-conf] @@ -896,7 +896,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just True,
[opt-env-conf] +            settingSwitchValue = Just False,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:900:32-37
[opt-env-conf] @@ -897,7 +897,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just True,
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:905:29-33
[opt-env-conf] @@ -902,7 +902,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = True,
[opt-env-conf] +            settingHidden = False,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = Nothing,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:917:34-39
[opt-env-conf] @@ -914,7 +914,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just False,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:918:39-44
[opt-env-conf] @@ -915,7 +915,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just False,
[opt-env-conf] +            settingSwitchValue = Just True,
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:919:32-37
[opt-env-conf] @@ -916,7 +916,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just False,
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:924:29-33
[opt-env-conf] @@ -921,7 +921,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = True,
[opt-env-conf] +            settingHidden = False,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = Nothing,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:939:36-41
[opt-env-conf] @@ -936,7 +936,7 @@
[opt-env-conf]            Setting
[opt-env-conf]              { settingDasheds = [],
[opt-env-conf]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf] -              settingTryArgument = False,
[opt-env-conf] +              settingTryArgument = True,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf]                settingTryOption = False,
[opt-env-conf]                settingEnvVars = Just ne,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:941:34-39
[opt-env-conf] @@ -938,7 +938,7 @@
[opt-env-conf]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf]                settingTryArgument = False,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf] -              settingTryOption = False,
[opt-env-conf] +              settingTryOption = True,
[opt-env-conf]                settingEnvVars = Just ne,
[opt-env-conf]                settingConfigVals = Nothing,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:946:31-36
[opt-env-conf] @@ -943,7 +943,7 @@
[opt-env-conf]                settingConfigVals = Nothing,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf]                settingExamples = [],
[opt-env-conf] -              settingHidden = False,
[opt-env-conf] +              settingHidden = True,
[opt-env-conf]                settingMetavar = Just "BOOL",
[opt-env-conf]                settingHelp = settingHelp s,
[opt-env-conf]                settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:960:36-41
[opt-env-conf] @@ -957,7 +957,7 @@
[opt-env-conf]            Setting
[opt-env-conf]              { settingDasheds = [],
[opt-env-conf]                settingReaders = [],
[opt-env-conf] -              settingTryArgument = False,
[opt-env-conf] +              settingTryArgument = True,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf]                settingTryOption = False,
[opt-env-conf]                settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:962:34-39
[opt-env-conf] @@ -959,7 +959,7 @@
[opt-env-conf]                settingReaders = [],
[opt-env-conf]                settingTryArgument = False,
[opt-env-conf]                settingSwitchValue = Nothing,
[opt-env-conf] -              settingTryOption = False,
[opt-env-conf] +              settingTryOption = True,
[opt-env-conf]                settingEnvVars = Nothing,
[opt-env-conf]                settingConfigVals = Just ne,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:967:31-36
[opt-env-conf] @@ -964,7 +964,7 @@
[opt-env-conf]                settingConfigVals = Just ne,
[opt-env-conf]                settingDefaultValue = Nothing,
[opt-env-conf]                settingExamples = [],
[opt-env-conf] -              settingHidden = False,
[opt-env-conf] +              settingHidden = True,
[opt-env-conf]                settingMetavar = Nothing,
[opt-env-conf]                settingHelp = settingHelp s,
[opt-env-conf]                settingCompleter = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:979:34-39
[opt-env-conf] @@ -976,7 +976,7 @@
[opt-env-conf]          Setting
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf] -            settingTryArgument = False,
[opt-env-conf] +            settingTryArgument = True,
[opt-env-conf]              settingSwitchValue = Just True, -- Unused
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:980:39-43
[opt-env-conf] @@ -977,7 +977,7 @@
[opt-env-conf]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf] -            settingSwitchValue = Just True, -- Unused
[opt-env-conf] +            settingSwitchValue = Just False, -- Unused
[opt-env-conf]              settingTryOption = False,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:981:32-37
[opt-env-conf] @@ -978,7 +978,7 @@
[opt-env-conf]              settingReaders = [],
[opt-env-conf]              settingTryArgument = False,
[opt-env-conf]              settingSwitchValue = Just True, -- Unused
[opt-env-conf] -            settingTryOption = False,
[opt-env-conf] +            settingTryOption = True,
[opt-env-conf]              settingEnvVars = Nothing,
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:986:29-34
[opt-env-conf] @@ -983,7 +983,7 @@
[opt-env-conf]              settingConfigVals = Nothing,
[opt-env-conf]              settingDefaultValue = Nothing,
[opt-env-conf]              settingExamples = [],
[opt-env-conf] -            settingHidden = False,
[opt-env-conf] +            settingHidden = True,
[opt-env-conf]              settingMetavar = Nothing,
[opt-env-conf]              settingHelp = settingHelp s,
[opt-env-conf]              settingCompleter = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,7 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ []
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,10 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "FILE_PATH",
[opt-env-conf] +               completer filePath
[opt-env-conf] +             ]
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf] @@ -480,10 +480,9 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "FILE_PATH",
[opt-env-conf] -               completer filePath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "FILE_PATH"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | A setting for @Path Abs dir@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf] @@ -826,7 +826,7 @@
[opt-env-conf]        long "config-file",
[opt-env-conf]        env "CONFIG_FILE",
[opt-env-conf]        help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +      completer (filePathWithExtensions [])
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf] @@ -826,7 +826,7 @@
[opt-env-conf]        long "config-file",
[opt-env-conf]        env "CONFIG_FILE",
[opt-env-conf]        help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,7 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,12 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long "config-file",
[opt-env-conf] +      env "CONFIG_FILE",
[opt-env-conf] +      help "Path to the configuration file",
[opt-env-conf] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf] @@ -822,12 +822,12 @@
[opt-env-conf]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf]  configuredConfigFile =
[opt-env-conf]    filePathSetting
[opt-env-conf] -    [ option,
[opt-env-conf] -      long "config-file",
[opt-env-conf] -      env "CONFIG_FILE",
[opt-env-conf] -      help "Path to the configuration file",
[opt-env-conf] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf] -    ]
[opt-env-conf] +    [ option,
[opt-env-conf] +      long "config-file",
[opt-env-conf] +      env "CONFIG_FILE",
[opt-env-conf] +      help "Path to the configuration file",
[opt-env-conf] +      completer (filePathWithExtensions [".yaml"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,7 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ []
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,10 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "DIRECTORY_PATH",
[opt-env-conf] +               completer directoryPath
[opt-env-conf] +             ]
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf] @@ -497,10 +497,9 @@
[opt-env-conf]      withFrozenCallStack $
[opt-env-conf]        setting $
[opt-env-conf]          builders
[opt-env-conf] -          ++ [ reader str,
[opt-env-conf] -               metavar "DIRECTORY_PATH",
[opt-env-conf] -               completer directoryPath
[opt-env-conf] -             ]
[opt-env-conf] +          ++ [ reader str,
[opt-env-conf] +               metavar "DIRECTORY_PATH"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf]  --
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf] @@ -785,11 +785,11 @@
[opt-env-conf]  xdgYamlConfigFile subdir =
[opt-env-conf]    mapIO
[opt-env-conf]      ( \mXdgDir -> do
[opt-env-conf] -        xdgDir <- case mXdgDir of
[opt-env-conf] -          Just d -> resolveDir' d
[opt-env-conf] -          Nothing -> do
[opt-env-conf] -            home <- getHomeDir
[opt-env-conf] -            resolveDir home ".config"
[opt-env-conf] +        xdgDir <- case mXdgDir of
[opt-env-conf] +          Just d -> resolveDir' d
[opt-env-conf] +          Nothing -> do
[opt-env-conf] +            home <- getHomeDir
[opt-env-conf] +            resolveDir home ".config"
[opt-env-conf]          configDir <- resolveDir xdgDir subdir
[opt-env-conf]          resolveFile configDir "config.yaml"
[opt-env-conf]      )
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf] @@ -785,11 +785,11 @@
[opt-env-conf]  xdgYamlConfigFile subdir =
[opt-env-conf]    mapIO
[opt-env-conf]      ( \mXdgDir -> do
[opt-env-conf] -        xdgDir <- case mXdgDir of
[opt-env-conf] -          Just d -> resolveDir' d
[opt-env-conf] -          Nothing -> do
[opt-env-conf] -            home <- getHomeDir
[opt-env-conf] -            resolveDir home ".config"
[opt-env-conf] +        xdgDir <- case mXdgDir of
[opt-env-conf] +          Just d -> resolveDir' d
[opt-env-conf] +          Nothing -> do
[opt-env-conf] +            home <- getHomeDir
[opt-env-conf] +            resolveDir home ".config"
[opt-env-conf]          configDir <- resolveDir xdgDir subdir
[opt-env-conf]          resolveFile configDir "config.yaml"
[opt-env-conf]      )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,7 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,12 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      [ help "Path to the XDG configuration directory",
[opt-env-conf] +        reader str,
[opt-env-conf] +        env "XDG_CONFIG_HOME",
[opt-env-conf] +        metavar "DIRECTORY",
[opt-env-conf] +        hidden
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf] @@ -796,12 +796,11 @@
[opt-env-conf]      $ optional
[opt-env-conf]      $ withFrozenCallStack
[opt-env-conf]      $ setting
[opt-env-conf] -      [ help "Path to the XDG configuration directory",
[opt-env-conf] -        reader str,
[opt-env-conf] -        env "XDG_CONFIG_HOME",
[opt-env-conf] -        metavar "DIRECTORY",
[opt-env-conf] -        hidden
[opt-env-conf] -      ]
[opt-env-conf] +      [ help "Path to the XDG configuration directory",
[opt-env-conf] +        reader str,
[opt-env-conf] +        env "XDG_CONFIG_HOME",
[opt-env-conf] +        metavar "DIRECTORY"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > 0) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > 1) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (d > -10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (True) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (False) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen (not (d > 10)) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen True $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen False $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf] @@ -301,7 +301,7 @@
[opt-env-conf]    where
[opt-env-conf]      go :: Int -> Parser a -> ShowS
[opt-env-conf]      go d = \case
[opt-env-conf] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf] +      ParserPure _ -> showParen not ((d > 10)) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf] @@ -303,7 +303,7 @@
[opt-env-conf]      go d = \case
[opt-env-conf]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 0 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 1 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]        ParserAp pf pa ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Ap "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go -11 pf
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go 0 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go 1 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf] @@ -307,7 +307,7 @@
[opt-env-conf]            showString "Ap "
[opt-env-conf]              . go 11 pf
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pa
[opt-env-conf] +            . go -11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pa
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go 0 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go 1 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]        ParserSelect pe pf ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Select "
[opt-env-conf] -            . go 11 pe
[opt-env-conf] +            . go -11 pe
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 0 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go 1 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf] @@ -313,7 +313,7 @@
[opt-env-conf]            showString "Select "
[opt-env-conf]              . go 11 pe
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 pf
[opt-env-conf] +            . go -11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec 0 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec 1 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]              . go 11 pf
[opt-env-conf]        ParserEmpty mLoc ->
[opt-env-conf]          showString "Empty "
[opt-env-conf] -          . showsPrec 11 mLoc
[opt-env-conf] +          . showsPrec -11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf] @@ -318,7 +318,7 @@
[opt-env-conf]          showString "Empty "
[opt-env-conf]            . showsPrec 11 mLoc
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 0 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 1 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]        ParserAlt p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Alt "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go -11 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 0 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 1 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf] @@ -322,7 +322,7 @@
[opt-env-conf]            showString "Alt "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go -11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf] @@ -324,7 +324,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]        ParserMany mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Many "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf] @@ -328,7 +328,7 @@
[opt-env-conf]            showString "Many "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf] @@ -330,7 +330,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]        ParserSome mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Some "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf] @@ -334,7 +334,7 @@
[opt-env-conf]            showString "Some "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf] @@ -336,7 +336,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]        ParserAllOrNothing mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf] @@ -340,7 +340,7 @@
[opt-env-conf]            showString "AllOrNothing "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf] @@ -342,7 +342,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf] @@ -344,7 +344,7 @@
[opt-env-conf]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Check "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 0 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 1 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec -11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 True
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 False
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf] @@ -346,7 +346,7 @@
[opt-env-conf]            showString "Check "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 forgivable
[opt-env-conf] +            . showsPrec 11 not (forgivable)
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec 0 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec 1 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf] @@ -348,7 +348,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 forgivable
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 caps
[opt-env-conf] +            . showsPrec -11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 0 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go 1 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf] @@ -350,7 +350,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 caps
[opt-env-conf]              . showString " _ "
[opt-env-conf] -            . go 11 p
[opt-env-conf] +            . go -11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf] @@ -352,7 +352,7 @@
[opt-env-conf]              . showString " _ "
[opt-env-conf]              . go 11 p
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf] @@ -354,7 +354,7 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Commands "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showsPrec 11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec 0 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec 1 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf] @@ -356,7 +356,7 @@
[opt-env-conf]            showString "Commands "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . showsPrec 11 mDefault
[opt-env-conf] +            . showsPrec -11 mDefault
[opt-env-conf]              . showString " "
[opt-env-conf]              . showListWith
[opt-env-conf]                showCommandABit
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf] @@ -362,7 +362,7 @@
[opt-env-conf]                showCommandABit
[opt-env-conf]                cs
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 0 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go 1 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf] @@ -366,7 +366,7 @@
[opt-env-conf]            showString "WithConfig _ "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p1
[opt-env-conf] +            . go -11 p1
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 0 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go 1 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf] @@ -368,7 +368,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p1
[opt-env-conf]              . showString " "
[opt-env-conf] -            . go 11 p2
[opt-env-conf] +            . go -11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 0) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > 1) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (d > -10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (True) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (False) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen (not (d > 10)) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen True $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen False $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]              . showString " "
[opt-env-conf]              . go 11 p2
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf] -        showParen (d > 10) $
[opt-env-conf] +        showParen not ((d > 10)) $
[opt-env-conf]            showString "Setting "
[opt-env-conf]              . showsPrec 11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 0 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec 1 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf] @@ -372,7 +372,7 @@
[opt-env-conf]        ParserSetting mLoc p ->
[opt-env-conf]          showParen (d > 10) $
[opt-env-conf]            showString "Setting "
[opt-env-conf] -            . showsPrec 11 mLoc
[opt-env-conf] +            . showsPrec -11 mLoc
[opt-env-conf]              . showString " "
[opt-env-conf]              . showSettingABit p
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec 0 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec 1 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf] @@ -131,7 +131,7 @@
[opt-env-conf]  showCommandABit :: Command a -> ShowS
[opt-env-conf]  showCommandABit Command {..} =
[opt-env-conf]    showString "Command "
[opt-env-conf] -    . showsPrec 11 commandArg
[opt-env-conf] +    . showsPrec -11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec 0 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec 1 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf] @@ -133,7 +133,7 @@
[opt-env-conf]    showString "Command "
[opt-env-conf]      . showsPrec 11 commandArg
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showsPrec 11 commandHelp
[opt-env-conf] +    . showsPrec -11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf]      . showParserPrec 11 commandParser
[opt-env-conf]  
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec 0 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec 1 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf] @@ -135,7 +135,7 @@
[opt-env-conf]      . showString " "
[opt-env-conf]      . showsPrec 11 commandHelp
[opt-env-conf]      . showString " "
[opt-env-conf] -    . showParserPrec 11 commandParser
[opt-env-conf] +    . showParserPrec -11 commandParser
[opt-env-conf]  
[opt-env-conf]  -- | A 'Parser' structure
[opt-env-conf]  --
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Parser.hs:297:39-40
[opt-env-conf] @@ -294,7 +294,7 @@
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf]  showParserABit :: Parser a -> String
[opt-env-conf] -showParserABit = flip (showParserPrec 0) ""
[opt-env-conf] +showParserABit = flip (showParserPrec 1) ""
[opt-env-conf]  
[opt-env-conf]  showParserPrec :: Int -> Parser a -> ShowS
[opt-env-conf]  showParserPrec = go
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:255:27-32
[opt-env-conf] @@ -252,7 +252,7 @@
[opt-env-conf]    (<|>) p1 p2 =
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf] -          ParserPure _ -> False
[opt-env-conf] +          ParserPure _ -> True
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> True && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> False && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && True
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && False
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> True
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> False
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf] @@ -253,7 +253,7 @@
[opt-env-conf]      let isEmpty :: Parser a -> Bool
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] +          ParserAp pf pa -> not (isEmpty pf && isEmpty pa)
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> True && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> False && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> not (isEmpty pe) && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && True
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && False
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> isEmpty pe && not (isEmpty pf)
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> True
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> False
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf] @@ -254,7 +254,7 @@
[opt-env-conf]          isEmpty = \case
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] +          ParserSelect pe pf -> not (isEmpty pe && isEmpty pf)
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:258:28-32
[opt-env-conf] @@ -255,7 +255,7 @@
[opt-env-conf]            ParserPure _ -> False
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf] -          ParserEmpty _ -> True
[opt-env-conf] +          ParserEmpty _ -> False
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:259:28-33
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf] -          ParserAlt _ _ -> False
[opt-env-conf] +          ParserAlt _ _ -> True
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> True
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> False
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf] @@ -257,7 +257,7 @@
[opt-env-conf]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf] -          ParserMany _ p -> isEmpty p
[opt-env-conf] +          ParserMany _ p -> not (isEmpty p)
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> True
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> False
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]            ParserEmpty _ -> True
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf] -          ParserSome _ p -> isEmpty p
[opt-env-conf] +          ParserSome _ p -> not (isEmpty p)
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> True
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> False
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]            ParserAlt _ _ -> False
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] +          ParserAllOrNothing _ p -> not (isEmpty p)
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> True
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> False
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf] @@ -260,7 +260,7 @@
[opt-env-conf]            ParserMany _ p -> isEmpty p
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] +          ParserCheck _ _ _ _ p -> not (isEmpty p)
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> True
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> False
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf] @@ -261,7 +261,7 @@
[opt-env-conf]            ParserSome _ p -> isEmpty p
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf] -          ParserCommands _ _ cs -> null cs
[opt-env-conf] +          ParserCommands _ _ cs -> not (null cs)
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> True && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> False && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> not (isEmpty pc) && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && True
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && False
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> isEmpty pc && not (isEmpty ps)
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> True
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> False
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf] @@ -262,7 +262,7 @@
[opt-env-conf]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] +          ParserWithConfig _ pc ps -> not (isEmpty pc && isEmpty ps)
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:266:32-37
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf] -          ParserSetting _ _ -> False
[opt-env-conf] +          ParserSetting _ _ -> True
[opt-env-conf]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (True, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (False, isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (not (isEmpty p1), isEmpty p2) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, True) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, False) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf] @@ -264,7 +264,7 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +     in case (isEmpty p1, not (isEmpty p2)) of
[opt-env-conf]            (True, True) -> ParserEmpty Nothing
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf] @@ -269,26 +269,26 @@
[opt-env-conf]            (True, False) -> p2
[opt-env-conf]            (False, True) -> p1
[opt-env-conf]            (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf]               in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf] @@ -264,32 +264,32 @@
[opt-env-conf]            ParserCommands _ _ cs -> null cs
[opt-env-conf]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf]            ParserSetting _ _ -> False
[opt-env-conf] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf] -          (True, False) -> p2
[opt-env-conf] -          (False, True) -> p1
[opt-env-conf] -          (False, False) ->
[opt-env-conf] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] -                  -- alts to always be right-leaning
[opt-env-conf] -                  --
[opt-env-conf] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] -                  --    p
[opt-env-conf] -                  --   / \
[opt-env-conf] -                  -- p1   p2
[opt-env-conf] -                  --     /  \
[opt-env-conf] -                  --    p3   p4
[opt-env-conf] -                  --
[opt-env-conf] -                  -- We need to rearrange it to
[opt-env-conf] -                  --          p
[opt-env-conf] -                  --         / \
[opt-env-conf] -                  -- p1 ++ p3   p4
[opt-env-conf] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] -                    go (go p1' p3') p4'
[opt-env-conf] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] -                  _ -> ParserAlt p1' p2'
[opt-env-conf] -             in go p1 p2
[opt-env-conf] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf] +          (True, False) -> p2
[opt-env-conf] +          (False, True) -> p1
[opt-env-conf] +          (False, False) ->
[opt-env-conf] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf] +                  -- alts to always be right-leaning
[opt-env-conf] +                  --
[opt-env-conf] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf] +                  --    p
[opt-env-conf] +                  --   / \
[opt-env-conf] +                  -- p1   p2
[opt-env-conf] +                  --     /  \
[opt-env-conf] +                  --    p3   p4
[opt-env-conf] +                  --
[opt-env-conf] +                  -- We need to rearrange it to
[opt-env-conf] +                  --          p
[opt-env-conf] +                  --         / \
[opt-env-conf] +                  -- p1 ++ p3   p4
[opt-env-conf] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf] +                    go (go p1' p3') p4'
[opt-env-conf] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf] +                  _ -> ParserAlt p1' p2'
[opt-env-conf] +             in go p1 p2
[opt-env-conf]    many = ParserMany Nothing
[opt-env-conf]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] -    -- Homomorphism law for applicative
[opt-env-conf] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] -    _ -> ParserAp p1 p2
[opt-env-conf] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] +    -- Homomorphism law for applicative
[opt-env-conf] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] +    _ -> ParserAp p1 p2
[opt-env-conf]  
[opt-env-conf]  instance Selective Parser where
[opt-env-conf]    select = ParserSelect
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] -    -- Homomorphism law for applicative
[opt-env-conf] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] -    _ -> ParserAp p1 p2
[opt-env-conf] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf] +    -- Homomorphism law for applicative
[opt-env-conf] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf] +    _ -> ParserAp p1 p2
[opt-env-conf]  
[opt-env-conf]  instance Selective Parser where
[opt-env-conf]    select = ParserSelect
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc True caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc False caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation Negate at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf] @@ -231,7 +231,7 @@
[opt-env-conf]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc not (forgivable) caps (fmap (fmap f) . g) p
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Parser.hs:238:30-34
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf] -    p -> ParserCheck Nothing True Set.empty (pure . Right . f) p
[opt-env-conf] +    p -> ParserCheck Nothing False Set.empty (pure . Right . f) p
[opt-env-conf]  
[opt-env-conf]  instance Applicative Parser where
[opt-env-conf]    pure = ParserPure
[opt-env-conf] added 327 mutations
[opt-env-conf] [10 of 22] Compiling OptEnvConf.Output ( src/OptEnvConf/Output.hs, dist/build/OptEnvConf/Output.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Output
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,5 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = []
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,5 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf] @@ -120,5 +120,6 @@
[opt-env-conf]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf]  
[opt-env-conf]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf] +bracketise [c] = [fore cyan "[", c
[opt-env-conf] +]
[opt-env-conf]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Output.hs:112:34-39
[opt-env-conf] @@ -109,7 +109,7 @@
[opt-env-conf]      cleanPackage pkg =
[opt-env-conf]        T.unpack $
[opt-env-conf]          T.intercalate "-" $
[opt-env-conf] -          takeWhile (not . maybe False (Char.isDigit . fst) . T.uncons) $
[opt-env-conf] +          takeWhile (not . maybe True (Char.isDigit . fst) . T.uncons) $
[opt-env-conf]              T.splitOn "-" (T.pack pkg)
[opt-env-conf]  
[opt-env-conf]  indent :: [[Chunk]] -> [[Chunk]]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf] @@ -84,9 +84,9 @@
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf]  
[opt-env-conf]  capabilityChunk :: Capability -> Chunk
[opt-env-conf]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf] @@ -84,9 +84,9 @@
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf]  
[opt-env-conf]  capabilityChunk :: Capability -> Chunk
[opt-env-conf]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf] @@ -78,7 +78,7 @@
[opt-env-conf]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  headerChunks :: Text -> [Chunk]
[opt-env-conf] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf] +headerChunks t = []
[opt-env-conf]  
[opt-env-conf]  syntaxChunk :: String -> Chunk
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf] @@ -78,7 +78,7 @@
[opt-env-conf]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf]  
[opt-env-conf]  headerChunks :: Text -> [Chunk]
[opt-env-conf] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf] +headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf]  
[opt-env-conf]  syntaxChunk :: String -> Chunk
[opt-env-conf]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  [val] -> []
[opt-env-conf]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf] @@ -69,7 +69,7 @@
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +  _ -> []
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf] @@ -69,7 +69,7 @@
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf]    [] -> []
[opt-env-conf]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf] @@ -66,10 +66,10 @@
[opt-env-conf]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf] -exampleValuesChunks vals = case vals of
[opt-env-conf] -  [] -> []
[opt-env-conf] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf] +exampleValuesChunks vals = case vals of
[opt-env-conf] +  [] -> []
[opt-env-conf] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf]  
[opt-env-conf]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf]  
[opt-env-conf]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +defaultValueChunks val = []
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf]  
[opt-env-conf]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf] +defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf]  
[opt-env-conf]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf]  exampleValuesChunks vals = case vals of
[opt-env-conf] added 17 mutations
[opt-env-conf] [11 of 22] Compiling OptEnvConf.Nix   ( src/OptEnvConf/Nix.hs, dist/build/OptEnvConf/Nix.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Nix
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf] @@ -93,6 +93,6 @@
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +      _ -> OptionTypeOneOf []
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf] @@ -93,6 +93,6 @@
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf] @@ -91,8 +91,8 @@
[opt-env-conf]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf] @@ -91,8 +91,8 @@
[opt-env-conf]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf]      goCommand :: Command a -> Map Text Option
[opt-env-conf]      goCommand = go . commandParser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf] @@ -85,10 +85,10 @@
[opt-env-conf]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] -      (Nothing, _) -> o2
[opt-env-conf] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] +      (Nothing, _) -> o2
[opt-env-conf] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf]  
[opt-env-conf]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf] @@ -72,17 +72,17 @@
[opt-env-conf]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] -                    Nothing ->
[opt-env-conf] -                      let oc =
[opt-env-conf] -                            maybe
[opt-env-conf] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] -                              (T.pack <$> settingHelp s)
[opt-env-conf] -                       in objectCodecNixOptions oc
[opt-env-conf] -                    Just rest ->
[opt-env-conf] -                      let m = go' rest
[opt-env-conf] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] +                    Nothing ->
[opt-env-conf] +                      let oc =
[opt-env-conf] +                            maybe
[opt-env-conf] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] +                              (T.pack <$> settingHelp s)
[opt-env-conf] +                       in objectCodecNixOptions oc
[opt-env-conf] +                    Just rest ->
[opt-env-conf] +                      let m = go' rest
[opt-env-conf] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf] @@ -72,17 +72,17 @@
[opt-env-conf]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] -                    Nothing ->
[opt-env-conf] -                      let oc =
[opt-env-conf] -                            maybe
[opt-env-conf] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] -                              (T.pack <$> settingHelp s)
[opt-env-conf] -                       in objectCodecNixOptions oc
[opt-env-conf] -                    Just rest ->
[opt-env-conf] -                      let m = go' rest
[opt-env-conf] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf] +                    Nothing ->
[opt-env-conf] +                      let oc =
[opt-env-conf] +                            maybe
[opt-env-conf] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf] +                              (T.pack <$> settingHelp s)
[opt-env-conf] +                       in objectCodecNixOptions oc
[opt-env-conf] +                    Just rest ->
[opt-env-conf] +                      let m = go' rest
[opt-env-conf] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf]      combineOption :: Option -> Option -> Option
[opt-env-conf]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf] @@ -35,7 +35,7 @@
[opt-env-conf]          ("# " <>)
[opt-env-conf]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf]            "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          unwords [],
[opt-env-conf]            T.unpack content
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf] @@ -35,7 +35,7 @@
[opt-env-conf]          ("# " <>)
[opt-env-conf]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf]            "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          unwords [progname, "--render-nix-options"],
[opt-env-conf]            T.unpack content
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,7 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,11 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] +          "This file was generated by running",
[opt-env-conf] +          unwords [progname, "--render-nix-options"],
[opt-env-conf] +          T.unpack content
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf] @@ -33,11 +33,10 @@
[opt-env-conf]      unlines $
[opt-env-conf]        map
[opt-env-conf]          ("# " <>)
[opt-env-conf] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] -          "This file was generated by running",
[opt-env-conf] -          unwords [progname, "--render-nix-options"],
[opt-env-conf] -          T.unpack content
[opt-env-conf] -        ]
[opt-env-conf] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf] +          "This file was generated by running",
[opt-env-conf] +          unwords [progname, "--render-nix-options"]
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf] added 14 mutations
[opt-env-conf] [12 of 22] Compiling OptEnvConf.Doc   ( src/OptEnvConf/Doc.hs, dist/build/OptEnvConf/Doc.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Doc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (True)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not True],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not not ((null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | True],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:819:7-73
[opt-env-conf] @@ -816,7 +816,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf] @@ -821,7 +821,7 @@
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf]                [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +                [[] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf]                  [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf] @@ -821,7 +821,7 @@
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf]              case jsonSchemaChunkLines schema of
[opt-env-conf]                [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf]                  [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf] @@ -823,7 +823,7 @@
[opt-env-conf]                [line] ->
[opt-env-conf]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +                [] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf] @@ -823,7 +823,7 @@
[opt-env-conf]                [line] ->
[opt-env-conf]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf]                ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf] @@ -819,11 +819,11 @@
[opt-env-conf]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf] @@ -819,11 +819,11 @@
[opt-env-conf]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf]        concatMap
[opt-env-conf]          ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf]          )
[opt-env-conf]          (NE.toList confDocKeys)
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,4 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,16 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      concatMap
[opt-env-conf] +        ( \(key, schema) ->
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key, ":"] : indent ls
[opt-env-conf] +        )
[opt-env-conf] +        (NE.toList confDocKeys)
[opt-env-conf] +    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf] @@ -814,16 +814,14 @@
[opt-env-conf]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf]  renderConfDoc ConfDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] -      concatMap
[opt-env-conf] -        ( \(key, schema) ->
[opt-env-conf] -            case jsonSchemaChunkLines schema of
[opt-env-conf] -              [line] ->
[opt-env-conf] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf] -              ls ->
[opt-env-conf] -                [confValChunk key, ":"] : indent ls
[opt-env-conf] -        )
[opt-env-conf] -        (NE.toList confDocKeys)
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf] +      concatMap
[opt-env-conf] +        ( \(key, schema) ->
[opt-env-conf] +            case jsonSchemaChunkLines schema of
[opt-env-conf] +              [line] ->
[opt-env-conf] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf] +              ls ->
[opt-env-conf] +                [confValChunk key
[opt-env-conf] +]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf] @@ -766,10 +766,7 @@
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf] @@ -766,10 +766,10 @@
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf] @@ -765,13 +765,7 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf] @@ -765,13 +765,13 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (True)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not not ((null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:776:7-71
[opt-env-conf] @@ -773,7 +773,7 @@
[opt-env-conf]          [mHelpChunk envDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,7 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,16 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf] @@ -765,16 +765,16 @@
[opt-env-conf]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf]  renderEnvDoc EnvDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ envVarChunksNE envDocVars,
[opt-env-conf] -            [ mMetavarChunk envDocMetavar
[opt-env-conf] -            ]
[opt-env-conf] -          ],
[opt-env-conf] -        [mHelpChunk envDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ envVarChunksNE envDocVars,
[opt-env-conf] +            [ mMetavarChunk envDocMetavar
[opt-env-conf] +            ]
[opt-env-conf] +          ],
[opt-env-conf] +        [mHelpChunk envDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf] @@ -724,7 +724,7 @@
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf]                  ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf] @@ -724,7 +724,7 @@
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf]                  ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] +              | not (optDocTryArgument)
[opt-env-conf]                ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:725:15-16
[opt-env-conf] @@ -722,10 +722,10 @@
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf]              ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf] @@ -721,12 +721,7 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] +            [],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf] @@ -721,12 +721,12 @@
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks $
[opt-env-conf]            concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf] @@ -719,16 +719,7 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf] @@ -719,16 +719,16 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (True)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not not ((null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | True]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:733:7-71
[opt-env-conf] @@ -730,7 +730,7 @@
[opt-env-conf]          [mHelpChunk optDocHelp]
[opt-env-conf]        ],
[opt-env-conf]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,7 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,19 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf] @@ -719,19 +719,19 @@
[opt-env-conf]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf]  renderOptDocLong OptDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks $
[opt-env-conf] -          concat
[opt-env-conf] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] -                ]
[opt-env-conf] -              | optDocTryArgument
[opt-env-conf] -              ]
[opt-env-conf] -            ],
[opt-env-conf] -        [mHelpChunk optDocHelp]
[opt-env-conf] -      ],
[opt-env-conf] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks $
[opt-env-conf] +          concat
[opt-env-conf] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf] +                ]
[opt-env-conf] +              | optDocTryArgument
[opt-env-conf] +              ]
[opt-env-conf] +            ],
[opt-env-conf] +        [mHelpChunk optDocHelp]
[opt-env-conf] +      ],
[opt-env-conf] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> []) . fromMaybe [] . go False
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:632:107-112
[opt-env-conf] @@ -629,7 +629,7 @@
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go True
[opt-env-conf]    where
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:637:38-43
[opt-env-conf] @@ -634,7 +634,7 @@
[opt-env-conf]      withoutNothings =
[opt-env-conf]        filter
[opt-env-conf]          ( \case
[opt-env-conf] -            AnyDocsSingle Nothing -> False
[opt-env-conf] +            AnyDocsSingle Nothing -> True
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf]              _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:638:30-35
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]        filter
[opt-env-conf]          ( \case
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf] -            AnyDocsAnd [] -> False
[opt-env-conf] +            AnyDocsAnd [] -> True
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf]              _ -> True
[opt-env-conf]          )
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:639:29-34
[opt-env-conf] @@ -636,7 +636,7 @@
[opt-env-conf]          ( \case
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf] -            AnyDocsOr [] -> False
[opt-env-conf] +            AnyDocsOr [] -> True
[opt-env-conf]              _ -> True
[opt-env-conf]          )
[opt-env-conf]      go ::
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:640:18-22
[opt-env-conf] @@ -637,7 +637,7 @@
[opt-env-conf]              AnyDocsSingle Nothing -> False
[opt-env-conf]              AnyDocsAnd [] -> False
[opt-env-conf]              AnyDocsOr [] -> False
[opt-env-conf] -            _ -> True
[opt-env-conf] +            _ -> False
[opt-env-conf]          )
[opt-env-conf]      go ::
[opt-env-conf]        -- Need parens
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf] @@ -646,9 +646,9 @@
[opt-env-conf]        Maybe [Chunk]
[opt-env-conf]      go b =
[opt-env-conf]        \case
[opt-env-conf] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] -          Nothing -> Just ["COMMAND"]
[opt-env-conf] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] +          Nothing -> Just ["COMMAND"]
[opt-env-conf] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf] @@ -646,9 +646,9 @@
[opt-env-conf]        Maybe [Chunk]
[opt-env-conf]      go b =
[opt-env-conf]        \case
[opt-env-conf] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] -          Nothing -> Just ["COMMAND"]
[opt-env-conf] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf] +          Nothing -> Just ["COMMAND"]
[opt-env-conf] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:653:29-34
[opt-env-conf] @@ -650,7 +650,7 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if True then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if not (b) then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:656:27-57
[opt-env-conf] @@ -653,7 +653,7 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf] @@ -650,10 +650,10 @@
[opt-env-conf]            Nothing -> Just ["COMMAND"]
[opt-env-conf]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf]          AnyDocsAnd ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            [c] -> Just c
[opt-env-conf] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            [c] -> Just c
[opt-env-conf] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:658:29-34
[opt-env-conf] @@ -655,7 +655,7 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf] @@ -655,9 +655,9 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf] @@ -655,9 +655,9 @@
[opt-env-conf]              [c] -> Just c
[opt-env-conf]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf]          AnyDocsOr ds ->
[opt-env-conf] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] -            [] -> Nothing
[opt-env-conf] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf] +            [] -> Nothing
[opt-env-conf] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if True
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if False
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf] @@ -662,7 +662,7 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] +              $ ( if not (isJust optDocDefault)
[opt-env-conf]                      then bracketise
[opt-env-conf]                      else id
[opt-env-conf]                  )
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:665:19-28
[opt-env-conf] @@ -662,9 +662,9 @@
[opt-env-conf]            Nothing -> Nothing
[opt-env-conf]            Just OptDoc {..} ->
[opt-env-conf]              Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf] @@ -669,7 +669,7 @@
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] +                  | True
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf] @@ -669,7 +669,7 @@
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] +                  | not (optDocTryArgument)
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:671:19-20
[opt-env-conf] @@ -668,9 +668,9 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf] @@ -672,7 +672,7 @@
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] +                  | True
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf] @@ -672,7 +672,7 @@
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] +                  | not (optDocTrySwitch)
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:674:19-20
[opt-env-conf] @@ -671,9 +671,9 @@
[opt-env-conf]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf]                    | optDocTryArgument
[opt-env-conf]                    ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf] @@ -678,7 +678,7 @@
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] +                  | True
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf] @@ -678,7 +678,7 @@
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] +                  | not (optDocTryOption)
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf] @@ -676,7 +676,7 @@
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                        []
[opt-env-conf]                        ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf] @@ -676,7 +676,7 @@
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf]                        ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf] @@ -675,9 +675,7 @@
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] +                      []
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf] @@ -675,9 +675,9 @@
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf]                    | optDocTryOption
[opt-env-conf]                    ]
[opt-env-conf]                  ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:677:19-20
[opt-env-conf] @@ -674,12 +674,12 @@
[opt-env-conf]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf]                    | optDocTrySwitch
[opt-env-conf]                    ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf]                  ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,7 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                []
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,19 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf] @@ -668,19 +668,16 @@
[opt-env-conf]                  )
[opt-env-conf]                $ unwordsChunks
[opt-env-conf]                $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" "
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf] @@ -658,29 +658,29 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] -          Nothing -> Nothing
[opt-env-conf] -          Just OptDoc {..} ->
[opt-env-conf] -            Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] -                )
[opt-env-conf] -              $ unwordsChunks
[opt-env-conf] -              $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] +          Nothing -> Nothing
[opt-env-conf] +          Just OptDoc {..} ->
[opt-env-conf] +            Just
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf] +                )
[opt-env-conf] +              $ unwordsChunks
[opt-env-conf] +              $ concat
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf] @@ -658,29 +658,29 @@
[opt-env-conf]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf]              [] -> Nothing
[opt-env-conf]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] -          Nothing -> Nothing
[opt-env-conf] -          Just OptDoc {..} ->
[opt-env-conf] -            Just
[opt-env-conf] -              $ ( if isJust optDocDefault
[opt-env-conf] -                    then bracketise
[opt-env-conf] -                    else id
[opt-env-conf] -                )
[opt-env-conf] -              $ unwordsChunks
[opt-env-conf] -              $ concat
[opt-env-conf] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] -                  | optDocTryArgument
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] -                  | optDocTrySwitch
[opt-env-conf] -                  ],
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] -                      ]
[opt-env-conf] -                  | optDocTryOption
[opt-env-conf] -                  ]
[opt-env-conf] -                ]
[opt-env-conf] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf] +          Nothing -> Nothing
[opt-env-conf] +          Just OptDoc {..} ->
[opt-env-conf] +            Just
[opt-env-conf] +              $ ( if isJust optDocDefault
[opt-env-conf] +                    then bracketise
[opt-env-conf] +                    else id
[opt-env-conf] +                )
[opt-env-conf] +              $ unwordsChunks
[opt-env-conf] +              $ concat
[opt-env-conf] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf] +                  | optDocTryArgument
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf] +                  | optDocTrySwitch
[opt-env-conf] +                  ],
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf] +                      ]
[opt-env-conf] +                  | optDocTryOption
[opt-env-conf] +                  ]
[opt-env-conf] +                ]
[opt-env-conf]  
[opt-env-conf]  orChunk :: Chunk
[opt-env-conf]  orChunk = fore cyan "|"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {True}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {False}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf] @@ -625,7 +625,7 @@
[opt-env-conf]        optDocExamples = setDocExamples
[opt-env-conf]        optDocMetavar = setDocMetavar
[opt-env-conf]        optDocHelp = setDocHelp
[opt-env-conf] -  pure OptDoc {..}
[opt-env-conf] +  pure OptDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  -- | Render short-form documentation of options
[opt-env-conf]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:476:31-36
[opt-env-conf] @@ -473,7 +473,7 @@
[opt-env-conf]    AnyDocsSingle $
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf] -        { setDocTryArgument = False,
[opt-env-conf] +        { setDocTryArgument = True,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:477:29-33
[opt-env-conf] @@ -474,7 +474,7 @@
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf] -          setDocTrySwitch = True,
[opt-env-conf] +          setDocTrySwitch = False,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:478:29-34
[opt-env-conf] @@ -475,7 +475,7 @@
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf] -          setDocTryOption = False,
[opt-env-conf] +          setDocTryOption = True,
[opt-env-conf]            setDocDasheds = ["--version"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf]            setDocExamples = [],
[opt-env-conf]            setDocMetavar = Nothing,
[opt-env-conf] -          setDocHelp = Just $ case mVersion of
[opt-env-conf] -            Nothing -> "Output version information"
[opt-env-conf] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf] +          setDocHelp = Just $ case mVersion of
[opt-env-conf] +            Nothing -> "Output version information"
[opt-env-conf] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf]          }
[opt-env-conf]  
[opt-env-conf]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf]            setDocExamples = [],
[opt-env-conf]            setDocMetavar = Nothing,
[opt-env-conf] -          setDocHelp = Just $ case mVersion of
[opt-env-conf] -            Nothing -> "Output version information"
[opt-env-conf] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf] +          setDocHelp = Just $ case mVersion of
[opt-env-conf] +            Nothing -> "Output version information"
[opt-env-conf] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf]          }
[opt-env-conf]  
[opt-env-conf]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:459:31-36
[opt-env-conf] @@ -456,7 +456,7 @@
[opt-env-conf]    AnyDocsSingle $
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf] -        { setDocTryArgument = False,
[opt-env-conf] +        { setDocTryArgument = True,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:460:29-33
[opt-env-conf] @@ -457,7 +457,7 @@
[opt-env-conf]      Just
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf] -          setDocTrySwitch = True,
[opt-env-conf] +          setDocTrySwitch = False,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:461:29-34
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]        SetDoc
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf] -          setDocTryOption = False,
[opt-env-conf] +          setDocTryOption = True,
[opt-env-conf]            setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf] @@ -459,7 +459,7 @@
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf] +          setDocDasheds = [],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf] @@ -459,7 +459,7 @@
[opt-env-conf]          { setDocTryArgument = False,
[opt-env-conf]            setDocTrySwitch = True,
[opt-env-conf]            setDocTryOption = False,
[opt-env-conf] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf] +          setDocDasheds = ["-h", "--help"],
[opt-env-conf]            setDocEnvVars = Nothing,
[opt-env-conf]            setDocConfKeys = Nothing,
[opt-env-conf]            setDocDefault = Nothing,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,7 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,10 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [progNameChunk progname],
[opt-env-conf] +      [versionChunk version],
[opt-env-conf] +      ["\n"]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf] @@ -402,10 +402,10 @@
[opt-env-conf]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf]  renderVersionPage progname version =
[opt-env-conf]    unwordsChunks
[opt-env-conf] -    [ [progNameChunk progname],
[opt-env-conf] -      [versionChunk version],
[opt-env-conf] -      ["\n"]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [progNameChunk progname],
[opt-env-conf] +      [versionChunk version],
[opt-env-conf] +      ["\n"]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  -- | Render the output of top-level @--help@
[opt-env-conf]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> True
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> False
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf] @@ -388,7 +388,7 @@
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] +  AnyDocsCommands _ cs -> not (all nullCommandDoc cs)
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:392:19-23
[opt-env-conf] @@ -389,7 +389,7 @@
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf] -  AnyDocsOr [] -> True
[opt-env-conf] +  AnyDocsOr [] -> False
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:393:18-23
[opt-env-conf] @@ -390,7 +390,7 @@
[opt-env-conf]  nullDocs = \case
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf] -  AnyDocsOr _ -> False
[opt-env-conf] +  AnyDocsOr _ -> True
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:394:20-24
[opt-env-conf] @@ -391,7 +391,7 @@
[opt-env-conf]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf] -  AnyDocsAnd [] -> True
[opt-env-conf] +  AnyDocsAnd [] -> False
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf]    where
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:395:19-24
[opt-env-conf] @@ -392,7 +392,7 @@
[opt-env-conf]    AnyDocsOr [] -> True
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf] -  AnyDocsAnd _ -> False
[opt-env-conf] +  AnyDocsAnd _ -> True
[opt-env-conf]    AnyDocsSingle _ -> False
[opt-env-conf]    where
[opt-env-conf]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:396:22-27
[opt-env-conf] @@ -393,7 +393,7 @@
[opt-env-conf]    AnyDocsOr _ -> False
[opt-env-conf]    AnyDocsAnd [] -> True
[opt-env-conf]    AnyDocsAnd _ -> False
[opt-env-conf] -  AnyDocsSingle _ -> False
[opt-env-conf] +  AnyDocsSingle _ -> True
[opt-env-conf]    where
[opt-env-conf]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf]      nullCommandDoc = nullDocs . commandDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf] @@ -229,7 +229,7 @@
[opt-env-conf]            [ ["argument:"],
[opt-env-conf]              [mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] +      | True
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf] @@ -229,7 +229,7 @@
[opt-env-conf]            [ ["argument:"],
[opt-env-conf]              [mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] +      | not (setDocTryArgument)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf] @@ -226,9 +226,7 @@
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf] @@ -226,9 +226,9 @@
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:228:7-8
[opt-env-conf] @@ -225,12 +225,12 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] +      | True,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]            [ ["switch:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] +      | not (setDocTrySwitch),
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf] @@ -232,9 +232,7 @@
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf] @@ -232,9 +232,9 @@
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:234:7-8
[opt-env-conf] @@ -231,13 +231,13 @@
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryArgument
[opt-env-conf]        ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] +      | True,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] +      | not (setDocTryOption),
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ []
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf] @@ -241,7 +241,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["option:"],
[opt-env-conf]              dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf] @@ -239,10 +239,7 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf] @@ -239,10 +239,10 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | setDocTryOption,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:241:7-8
[opt-env-conf] @@ -238,14 +238,14 @@
[opt-env-conf]        | setDocTrySwitch,
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf] @@ -249,7 +249,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ []
[opt-env-conf]            ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf] @@ -249,7 +249,7 @@
[opt-env-conf]        [ unwordsChunks
[opt-env-conf]            [ ["env:"],
[opt-env-conf]              envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf]            ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf] @@ -247,10 +247,7 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf] @@ -247,10 +247,10 @@
[opt-env-conf]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf]        ],
[opt-env-conf]        [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf]        | vars <- maybeToList setDocEnvVars
[opt-env-conf]        ],
[opt-env-conf]        concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [[] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,7 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf] @@ -258,7 +258,8 @@
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf]                  case jsonSchemaChunkLines schema of
[opt-env-conf]                    [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                    [["config: ", confValChunk key
[opt-env-conf] +] ++ line]
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf] @@ -265,7 +265,7 @@
[opt-env-conf]                          ( case ls of
[opt-env-conf]                              [] -> [["TODO"]]
[opt-env-conf]                              (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                              ([] ++ l)
[opt-env-conf]                                  : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf] @@ -265,7 +265,7 @@
[opt-env-conf]                          ( case ls of
[opt-env-conf]                              [] -> [["TODO"]]
[opt-env-conf]                              (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf]                                  : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf] @@ -262,11 +262,11 @@
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf] @@ -262,11 +262,11 @@
[opt-env-conf]                    ls ->
[opt-env-conf]                      ["config:"]
[opt-env-conf]                        : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf]                          )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf] @@ -256,18 +256,18 @@
[opt-env-conf]        concat
[opt-env-conf]          [ concatMap
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf]          | confs <- maybeToList setDocConfKeys
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf] @@ -256,18 +256,18 @@
[opt-env-conf]        concat
[opt-env-conf]          [ concatMap
[opt-env-conf]              ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf]              )
[opt-env-conf]              (NE.toList confs)
[opt-env-conf]          | confs <- maybeToList setDocConfKeys
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (True)
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (not (null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not True
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not not ((null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | True
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf] @@ -276,7 +276,7 @@
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf]        [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] +      | not (not (null setDocExamples))
[opt-env-conf]        ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:278:7-8
[opt-env-conf] @@ -275,9 +275,9 @@
[opt-env-conf]        [ defaultValueChunks dv
[opt-env-conf]        | dv <- maybeToList setDocDefault
[opt-env-conf]        ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] +      [ exampleValuesChunks setDocExamples
[opt-env-conf] +      | not (null setDocExamples)
[opt-env-conf] +      ]
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,7 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,60 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf] +      ],
[opt-env-conf] +      concat
[opt-env-conf] +        [ concatMap
[opt-env-conf] +            ( \(key, schema) ->
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] +                                : indent ll
[opt-env-conf] +                        )
[opt-env-conf] +            )
[opt-env-conf] +            (NE.toList confs)
[opt-env-conf] +        | confs <- maybeToList setDocConfKeys
[opt-env-conf] +        ],
[opt-env-conf] +      [ defaultValueChunks dv
[opt-env-conf] +      | dv <- maybeToList setDocDefault
[opt-env-conf] +      ],
[opt-env-conf] +      [ exampleValuesChunks setDocExamples
[opt-env-conf] +      | not (null setDocExamples)
[opt-env-conf] +      ]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf] @@ -225,60 +225,48 @@
[opt-env-conf]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [ unwordsChunks
[opt-env-conf] -          [ ["argument:"],
[opt-env-conf] -            [mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryArgument
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["switch:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTrySwitch,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["option:"],
[opt-env-conf] -            dashedChunksNE dasheds
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | setDocTryOption,
[opt-env-conf] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] -      ],
[opt-env-conf] -      [ unwordsChunks
[opt-env-conf] -          [ ["env:"],
[opt-env-conf] -            envVarChunksNE vars
[opt-env-conf] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] -          ]
[opt-env-conf] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf] -      ],
[opt-env-conf] -      concat
[opt-env-conf] -        [ concatMap
[opt-env-conf] -            ( \(key, schema) ->
[opt-env-conf] -                case jsonSchemaChunkLines schema of
[opt-env-conf] -                  [line] ->
[opt-env-conf] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] -                  ls ->
[opt-env-conf] -                    ["config:"]
[opt-env-conf] -                      : indent
[opt-env-conf] -                        ( case ls of
[opt-env-conf] -                            [] -> [["TODO"]]
[opt-env-conf] -                            (l : ll) ->
[opt-env-conf] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf] -                                : indent ll
[opt-env-conf] -                        )
[opt-env-conf] -            )
[opt-env-conf] -            (NE.toList confs)
[opt-env-conf] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf] -        ],
[opt-env-conf] -      [ defaultValueChunks dv
[opt-env-conf] -      | dv <- maybeToList setDocDefault
[opt-env-conf] -      ],
[opt-env-conf] -      [ exampleValuesChunks setDocExamples
[opt-env-conf] -      | not (null setDocExamples)
[opt-env-conf] -      ]
[opt-env-conf] -    ]
[opt-env-conf] +    [ [ unwordsChunks
[opt-env-conf] +          [ ["argument:"],
[opt-env-conf] +            [mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryArgument
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["switch:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTrySwitch,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["option:"],
[opt-env-conf] +            dashedChunksNE dasheds
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | setDocTryOption,
[opt-env-conf] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf] +      ],
[opt-env-conf] +      [ unwordsChunks
[opt-env-conf] +          [ ["env:"],
[opt-env-conf] +            envVarChunksNE vars
[opt-env-conf] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf] +          ]
[opt-env-conf] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf] +      ],
[opt-env-conf] +      concat
[opt-env-conf] +        [ concatMap
[opt-env-conf] +            ( \(key, schema) ->
[opt-env-conf] +                case jsonSchemaChunkLines schema of
[opt-env-conf] +                  [line] ->
[opt-env-conf] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf] +                  ls ->
[opt-env-conf] +                    ["config:"]
[opt-env-conf] +                      : indent
[opt-env-conf] +                        ( case ls of
[opt-env-conf] +                            [] -> [["TODO"]]
[opt-env-conf] +                            (l : ll) ->
[opt-env-conf] +                              ([confValChunk key
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  helpLines :: Help -> [[Chunk]]
[opt-env-conf]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,7 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,10 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf] +      [[]]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf] @@ -214,10 +214,10 @@
[opt-env-conf]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf]  renderSetDoc setDoc =
[opt-env-conf]    concat
[opt-env-conf] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf] -      [[]]
[opt-env-conf] -    ]
[opt-env-conf] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf] +      [[]]
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {True}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {False}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf] @@ -206,7 +206,7 @@
[opt-env-conf]    let setDocExamples = settingExamples
[opt-env-conf]    let setDocMetavar = settingMetavar
[opt-env-conf]    let setDocHelp = settingHelp
[opt-env-conf] -  pure SetDoc {..}
[opt-env-conf] +  pure SetDoc {not (..)}
[opt-env-conf]  
[opt-env-conf]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf] @@ -136,9 +136,9 @@
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] -        [a] -> a
[opt-env-conf] -        as -> AnyDocsAnd as
[opt-env-conf] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] +        [a] -> a
[opt-env-conf] +        as -> AnyDocsAnd as
[opt-env-conf]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf] @@ -136,9 +136,9 @@
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] -        [a] -> a
[opt-env-conf] -        as -> AnyDocsAnd as
[opt-env-conf] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf] +        [a] -> a
[opt-env-conf] +        as -> AnyDocsAnd as
[opt-env-conf]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf] @@ -165,7 +165,7 @@
[opt-env-conf]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] +      ParserAp pf pa -> AnyDocsAnd []
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf] @@ -165,7 +165,7 @@
[opt-env-conf]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] +      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf] @@ -166,7 +166,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf] +      ParserSelect p1 p2 -> AnyDocsAnd []
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf] @@ -166,7 +166,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf] +      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] +      ParserAlt p1 p2 -> AnyDocsOr []
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] +      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] +      ParserMany _ p -> AnyDocsOr []
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] +      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf] @@ -170,7 +170,7 @@
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf] +      ParserSome mLoc p -> AnyDocsAnd [] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf] @@ -170,7 +170,7 @@
[opt-env-conf]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf] +      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf] @@ -174,7 +174,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf]  
[opt-env-conf]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf] @@ -174,7 +174,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf]  
[opt-env-conf]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,7 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,7 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf] @@ -446,7 +446,8 @@
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf] @@ -449,7 +449,7 @@
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf]  
[opt-env-conf]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf]  helpDocs =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf] @@ -449,7 +449,7 @@
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf]  
[opt-env-conf]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf]  
[opt-env-conf]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf]  helpDocs =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if True
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if False
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf] @@ -507,7 +507,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if not (setDocHelp d == Just h)
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:510:9-42
[opt-env-conf] @@ -507,11 +507,11 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] -          then
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in (d : sds, rest)
[opt-env-conf] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf] +        if setDocHelp d == Just h
[opt-env-conf] +          then
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in (d : sds, rest)
[opt-env-conf] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf]        ds -> ([], ds)
[opt-env-conf]  
[opt-env-conf]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf] @@ -529,12 +529,12 @@
[opt-env-conf]            [] -> []
[opt-env-conf]            [d] -> [go' d]
[opt-env-conf]            (AnyDocsSingle d : ds) ->
[opt-env-conf] -            case setDocHelp d of
[opt-env-conf] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] -              Just h ->
[opt-env-conf] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf] -                    ne = d :| sds
[opt-env-conf] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf] +            case setDocHelp d of
[opt-env-conf] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] +              Just h ->
[opt-env-conf] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf] +                    ne = d :| sds
[opt-env-conf] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf] @@ -529,12 +529,12 @@
[opt-env-conf]            [] -> []
[opt-env-conf]            [d] -> [go' d]
[opt-env-conf]            (AnyDocsSingle d : ds) ->
[opt-env-conf] -            case setDocHelp d of
[opt-env-conf] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] -              Just h ->
[opt-env-conf] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf] -                    ne = d :| sds
[opt-env-conf] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf] +            case setDocHelp d of
[opt-env-conf] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf] +              Just h ->
[opt-env-conf] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf] +                    ne = d :| sds
[opt-env-conf] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf] @@ -498,9 +498,7 @@
[opt-env-conf]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf]        AnyDocsSingle (d :| ds) ->
[opt-env-conf]          [ concat
[opt-env-conf] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf] @@ -498,9 +498,9 @@
[opt-env-conf]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf]        AnyDocsSingle (d :| ds) ->
[opt-env-conf]          [ concat
[opt-env-conf] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] -            ]
[opt-env-conf] +            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf] +              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf] +            ]
[opt-env-conf]          ]
[opt-env-conf]  
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:541:40-44
[opt-env-conf] @@ -538,7 +538,7 @@
[opt-env-conf]            (d : ds) -> go' d : goOr' ds
[opt-env-conf]  
[opt-env-conf]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] -renderCommandDocs = unlinesChunks . go True . withoutHiddenDocs
[opt-env-conf] +renderCommandDocs = unlinesChunks . go False . withoutHiddenDocs
[opt-env-conf]    where
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if True
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if False
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf] @@ -585,7 +585,7 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] +        if not (setDocHelp d == Just h)
[opt-env-conf]            then
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in (d : sds, rest)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:588:9-42
[opt-env-conf] @@ -585,11 +585,11 @@
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        if setDocHelp d == Just h
[opt-env-conf] -          then
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in (d : sds, rest)
[opt-env-conf] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf] +        if setDocHelp d == Just h
[opt-env-conf] +          then
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in (d : sds, rest)
[opt-env-conf] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf]        ds -> ([], ds)
[opt-env-conf]  
[opt-env-conf]  renderCommandDocsShort :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go True d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go False d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf]      goOr isTopLevel = \case
[opt-env-conf]        [] -> []
[opt-env-conf] -      [d] -> go isTopLevel d
[opt-env-conf] +      [d] -> go not (isTopLevel) d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go True (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go False (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go not (isTopLevel) (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr True ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr False ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf]          case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr not (isTopLevel) ds
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not True
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not not (isTopLevel)
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | True
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf] @@ -576,7 +576,7 @@
[opt-env-conf]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf]                              [[]]
[opt-env-conf]                            ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] +                      | not (not isTopLevel)
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,7 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          []
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,10 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf] @@ -572,10 +572,10 @@
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf]                        [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:574:23-24
[opt-env-conf] @@ -571,13 +571,13 @@
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf]                    [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr True rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr False rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf] @@ -578,7 +578,7 @@
[opt-env-conf]                            ]
[opt-env-conf]                        | not isTopLevel
[opt-env-conf]                        ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] +                    goOr not (isTopLevel) rest
[opt-env-conf]                    ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf] @@ -570,16 +570,7 @@
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +                  []
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf] @@ -570,16 +570,16 @@
[opt-env-conf]            Just h ->
[opt-env-conf]              let (sds, rest) = goSameHelp h ds
[opt-env-conf]               in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf] @@ -565,21 +565,21 @@
[opt-env-conf]        [] -> []
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] -          Just h ->
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +        case setDocHelp d of
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Just h ->
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in concat
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf] @@ -565,21 +565,21 @@
[opt-env-conf]        [] -> []
[opt-env-conf]        [d] -> go isTopLevel d
[opt-env-conf]        (AnyDocsSingle d : ds) ->
[opt-env-conf] -        case setDocHelp d of
[opt-env-conf] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] -          Just h ->
[opt-env-conf] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf] -             in concat
[opt-env-conf] -                  [ concat
[opt-env-conf] -                      [ concat
[opt-env-conf] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] -                            [[]]
[opt-env-conf] -                          ]
[opt-env-conf] -                      | not isTopLevel
[opt-env-conf] -                      ],
[opt-env-conf] -                    goOr isTopLevel rest
[opt-env-conf] -                  ]
[opt-env-conf] +        case setDocHelp d of
[opt-env-conf] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf] +          Just h ->
[opt-env-conf] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf] +             in concat
[opt-env-conf] +                  [ concat
[opt-env-conf] +                      [ concat
[opt-env-conf] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf] +                            [[]]
[opt-env-conf] +                          ]
[opt-env-conf] +                      | not isTopLevel
[opt-env-conf] +                      ],
[opt-env-conf] +                    goOr isTopLevel rest
[opt-env-conf] +                  ]
[opt-env-conf]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go True d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go False d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go not (isTopLevel) d ++ goOr isTopLevel ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr True ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr False ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf] @@ -580,7 +580,7 @@
[opt-env-conf]                        ],
[opt-env-conf]                      goOr isTopLevel rest
[opt-env-conf]                    ]
[opt-env-conf] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf] +      (d : ds) -> go isTopLevel d ++ goOr not (isTopLevel) ds
[opt-env-conf]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf]      goSameHelp h = \case
[opt-env-conf]        [] -> ([], [])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = True
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = False
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf] @@ -552,7 +552,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +        let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if True then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if False then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:556:22-60
[opt-env-conf] @@ -553,7 +553,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        indent $
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf] +            suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,7 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : []
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,7 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf] @@ -555,7 +555,8 @@
[opt-env-conf]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] +              : ["command: ", commandChunk commandDocArgument
[opt-env-conf] +]
[opt-env-conf]                : go False commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Doc.hs:559:20-25
[opt-env-conf] @@ -556,7 +556,7 @@
[opt-env-conf]              suffix = if isDefault then " (default)" else ""
[opt-env-conf]           in [helpChunk commandDocHelp]
[opt-env-conf]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf] -              : go False commandDocs
[opt-env-conf] +              : go True commandDocs
[opt-env-conf]                ++ [[]]
[opt-env-conf]  
[opt-env-conf]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go True) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go False) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf] @@ -543,7 +543,7 @@
[opt-env-conf]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] +      AnyDocsAnd ds -> concatMap (go not (isTopLevel)) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr True ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr False ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf] @@ -544,7 +544,7 @@
[opt-env-conf]      go isTopLevel = \case
[opt-env-conf]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf] +      AnyDocsOr ds -> goOr not (isTopLevel) ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf]          | isTopLevel -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf] @@ -546,7 +546,7 @@
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf] -        | isTopLevel -> []
[opt-env-conf] +        | True -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf] @@ -546,7 +546,7 @@
[opt-env-conf]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf]        AnyDocsSingle d
[opt-env-conf] -        | isTopLevel -> []
[opt-env-conf] +        | not (isTopLevel) -> []
[opt-env-conf]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = True
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = False
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf] @@ -604,7 +604,7 @@
[opt-env-conf]  
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +      let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if True then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if False then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:608:20-58
[opt-env-conf] @@ -605,7 +605,7 @@
[opt-env-conf]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf] +          suffix = if isDefault then " (default)" else ""
[opt-env-conf]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent []]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf] @@ -606,7 +606,7 @@
[opt-env-conf]      goCommand mDefault CommandDoc {..} =
[opt-env-conf]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]            suffix = if isDefault then " (default)" else ""
[opt-env-conf] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf]  
[opt-env-conf]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = True
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = False
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf] @@ -694,7 +694,7 @@
[opt-env-conf]        AnyDocsCommands mDefault cs ->
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] +              let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if True then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if False then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:698:28-66
[opt-env-conf] @@ -695,7 +695,7 @@
[opt-env-conf]          concatMap
[opt-env-conf]            ( \CommandDoc {..} ->
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf] +                  suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks []
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf] @@ -697,7 +697,7 @@
[opt-env-conf]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf]                 in indent $
[opt-env-conf] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf] @@ -701,9 +701,9 @@
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf] @@ -701,9 +701,9 @@
[opt-env-conf]                        : indent (go commandDocs)
[opt-env-conf]            )
[opt-env-conf]            cs
[opt-env-conf] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf] @@ -704,9 +704,9 @@
[opt-env-conf]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf]  
[opt-env-conf]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf] @@ -704,9 +704,9 @@
[opt-env-conf]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf]          Nothing -> concatMap go ds
[opt-env-conf]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] -        Nothing -> concatMap go ds
[opt-env-conf] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf] +        Nothing -> concatMap go ds
[opt-env-conf] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf]  
[opt-env-conf]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,7 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,11 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf] @@ -426,11 +426,10 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          []
[opt-env-conf] +],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf]              if null commandPath
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if True
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if False
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf] @@ -433,7 +433,7 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] +            if not (null commandPath)
[opt-env-conf]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Doc.hs:436:13-37
[opt-env-conf] @@ -433,9 +433,9 @@
[opt-env-conf]          ],
[opt-env-conf]          [ headerChunks "Available settings",
[opt-env-conf]            renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf] @@ -431,12 +431,7 @@
[opt-env-conf]            [],
[opt-env-conf]            unlinesChunks $ progDescLines progDesc
[opt-env-conf]          ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf] @@ -431,12 +431,12 @@
[opt-env-conf]            [],
[opt-env-conf]            unlinesChunks $ progDescLines progDesc
[opt-env-conf]          ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf]          concat
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (True)
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not True
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not not ((null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | True
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf] @@ -441,7 +441,7 @@
[opt-env-conf]            [ [ headerChunks "Available commands",
[opt-env-conf]                renderCommandDocsShort docs
[opt-env-conf]              ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf] @@ -438,9 +438,7 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            | not (null (docsToCommandDocs docs))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf] @@ -438,9 +438,9 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf]            | not (null (docsToCommandDocs docs))
[opt-env-conf]            ]
[opt-env-conf]        ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:441:11-12
[opt-env-conf] @@ -438,11 +438,11 @@
[opt-env-conf]                else withHelpDocs docs
[opt-env-conf]          ],
[opt-env-conf]          concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf]        ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,7 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      []
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,24 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf] +        concat
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf] @@ -426,24 +426,24 @@
[opt-env-conf]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf]    unlinesChunks $
[opt-env-conf]      concat
[opt-env-conf] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] -          [],
[opt-env-conf] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf] -        ],
[opt-env-conf] -        [ headerChunks "Available settings",
[opt-env-conf] -          renderSetDocs $
[opt-env-conf] -            if null commandPath
[opt-env-conf] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] -              else withHelpDocs docs
[opt-env-conf] -        ],
[opt-env-conf] -        concat
[opt-env-conf] -          [ [ headerChunks "Available commands",
[opt-env-conf] -              renderCommandDocsShort docs
[opt-env-conf] -            ]
[opt-env-conf] -          | not (null (docsToCommandDocs docs))
[opt-env-conf] -          ]
[opt-env-conf] -      ]
[opt-env-conf] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf] +          [],
[opt-env-conf] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf] +        ],
[opt-env-conf] +        [ headerChunks "Available settings",
[opt-env-conf] +          renderSetDocs $
[opt-env-conf] +            if null commandPath
[opt-env-conf] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf] +              else withHelpDocs docs
[opt-env-conf] +        ],
[opt-env-conf] +        concat
[opt-env-conf] +          [ [ headerChunks "Available commands",
[opt-env-conf] +              renderCommandDocsShort docs
[opt-env-conf] +            ]
[opt-env-conf] +          | not (null (docsToCommandDocs docs))
[opt-env-conf] +          ]
[opt-env-conf] +      ]
[opt-env-conf]  
[opt-env-conf]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,7 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf] @@ -305,7 +305,8 @@
[opt-env-conf]            [ [ -- Document date
[opt-env-conf]                [".Dd $Mdocdate$"],
[opt-env-conf]                -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              [".Dt ", progNameChunk progname
[opt-env-conf] +],
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] +              [],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf] @@ -309,7 +309,7 @@
[opt-env-conf]                -- Operating system footer
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf] @@ -310,7 +310,7 @@
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf] @@ -310,7 +310,7 @@
[opt-env-conf]                [".Os"],
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf] @@ -311,7 +311,7 @@
[opt-env-conf]                -- Section header
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf] @@ -312,7 +312,7 @@
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] +              [],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf] @@ -312,7 +312,7 @@
[opt-env-conf]                [".Sh ", "NAME"],
[opt-env-conf]                [".Nm ", progNameChunk progname],
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf] @@ -314,7 +314,7 @@
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              [],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf]                [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf] @@ -314,7 +314,7 @@
[opt-env-conf]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf]                [".Sh ", "VERSION"],
[opt-env-conf]                [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf]                [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] +              [],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf] @@ -316,7 +316,7 @@
[opt-env-conf]                [versionChunk version],
[opt-env-conf]                [".Sh ", "SYNOPSIS"],
[opt-env-conf]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,7 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,23 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf] @@ -302,23 +302,22 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"]
[opt-env-conf] +],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not not ((null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf] @@ -323,7 +323,7 @@
[opt-env-conf]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf] @@ -320,7 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf] @@ -320,9 +320,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf] @@ -320,9 +320,9 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:323:15-16
[opt-env-conf] @@ -320,11 +320,11 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not not ((nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf] @@ -329,7 +329,7 @@
[opt-env-conf]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf] @@ -326,7 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf] @@ -326,9 +326,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf] @@ -326,9 +326,9 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
[opt-env-conf] @@ -326,11 +326,11 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not not ((nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf] @@ -335,7 +335,7 @@
[opt-env-conf]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf] @@ -332,7 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf] @@ -332,9 +332,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf] @@ -332,9 +332,9 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:335:15-16
[opt-env-conf] @@ -332,11 +332,11 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not not ((nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf] @@ -341,7 +341,7 @@
[opt-env-conf]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +              [ [ [],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf] @@ -338,7 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf] @@ -338,9 +338,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf] @@ -338,9 +338,9 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:341:15-16
[opt-env-conf] @@ -338,11 +338,11 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,7 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,48 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf] +          ]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf] @@ -302,48 +302,44 @@
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf]          concat
[opt-env-conf] -          [ [ -- Document date
[opt-env-conf] -              [".Dd $Mdocdate$"],
[opt-env-conf] -              -- Document title
[opt-env-conf] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] -              -- Operating system footer
[opt-env-conf] -              [".Os"],
[opt-env-conf] -              -- Section header
[opt-env-conf] -              [".Sh ", "NAME"],
[opt-env-conf] -              [".Nm ", progNameChunk progname],
[opt-env-conf] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] -              [".Sh ", "VERSION"],
[opt-env-conf] -              [versionChunk version],
[opt-env-conf] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] -              [".Sh ", "SETTINGS"],
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ -- Document date
[opt-env-conf] +              [".Dd $Mdocdate$"],
[opt-env-conf] +              -- Document title
[opt-env-conf] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf] +              -- Operating system footer
[opt-env-conf] +              [".Os"],
[opt-env-conf] +              -- Section header
[opt-env-conf] +              [".Sh ", "NAME"],
[opt-env-conf] +              [".Nm ", progNameChunk progname],
[opt-env-conf] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf] +              [".Sh ", "VERSION"],
[opt-env-conf] +              [versionChunk version],
[opt-env-conf] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf] +              [".Sh ", "SETTINGS"],
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ [".Sh ", "CONFIGURATION VALUES"]
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  -- | Render reference documentation
[opt-env-conf]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,7 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,11 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf] @@ -355,11 +355,10 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings"
[opt-env-conf] +],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not not ((null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf] @@ -364,7 +364,7 @@
[opt-env-conf]                [ [ headerChunks "All commands",
[opt-env-conf]                    renderCommandDocs docs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] +              | not (not (null commandDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf] @@ -361,9 +361,7 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf] @@ -361,9 +361,9 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:364:15-16
[opt-env-conf] @@ -361,11 +361,11 @@
[opt-env-conf]                renderSetDocs docs
[opt-env-conf]              ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not not ((nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf] @@ -370,7 +370,7 @@
[opt-env-conf]                [ [ headerChunks "Options",
[opt-env-conf]                    renderLongOptDocs optDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] +              | not (not (nullDocs optDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf] @@ -367,9 +367,7 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf] @@ -367,9 +367,9 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
[opt-env-conf] @@ -367,11 +367,11 @@
[opt-env-conf]                | not (null commandDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not not ((nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf] @@ -376,7 +376,7 @@
[opt-env-conf]                [ [ headerChunks "Environment Variables",
[opt-env-conf]                    renderEnvDocs envDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] +              | not (not (nullDocs envDocs))
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf] @@ -373,9 +373,7 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf] @@ -373,9 +373,9 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:376:15-16
[opt-env-conf] @@ -373,11 +373,11 @@
[opt-env-conf]                | not (nullDocs optDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf]              concat
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (True)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not not ((nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | True
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf] @@ -382,7 +382,7 @@
[opt-env-conf]                [ [ headerChunks "Configuration Values",
[opt-env-conf]                    renderConfDocs confDocs
[opt-env-conf]                  ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] +              | not (not (nullDocs confDocs))
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf] @@ -379,9 +379,7 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf] @@ -379,9 +379,9 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf]                | not (nullDocs confDocs)
[opt-env-conf]                ]
[opt-env-conf]            ]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Doc.hs:382:15-16
[opt-env-conf] @@ -379,11 +379,11 @@
[opt-env-conf]                | not (nullDocs envDocs)
[opt-env-conf]                ],
[opt-env-conf]              concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf]            ]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,7 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,36 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Configuration Values",
[opt-env-conf] +                  renderConfDocs confDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs confDocs)
[opt-env-conf] +              ]
[opt-env-conf] +          ]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf] @@ -355,36 +355,32 @@
[opt-env-conf]        commandDocs = docsToCommandDocs docs
[opt-env-conf]     in unlinesChunks $
[opt-env-conf]          concat
[opt-env-conf] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] -              [],
[opt-env-conf] -              headerChunks "All settings",
[opt-env-conf] -              renderSetDocs docs
[opt-env-conf] -            ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "All commands",
[opt-env-conf] -                  renderCommandDocs docs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (null commandDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Options",
[opt-env-conf] -                  renderLongOptDocs optDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs optDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Environment Variables",
[opt-env-conf] -                  renderEnvDocs envDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs envDocs)
[opt-env-conf] -              ],
[opt-env-conf] -            concat
[opt-env-conf] -              [ [ headerChunks "Configuration Values",
[opt-env-conf] -                  renderConfDocs confDocs
[opt-env-conf] -                ]
[opt-env-conf] -              | not (nullDocs confDocs)
[opt-env-conf] -              ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf] +              [],
[opt-env-conf] +              headerChunks "All settings",
[opt-env-conf] +              renderSetDocs docs
[opt-env-conf] +            ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "All commands",
[opt-env-conf] +                  renderCommandDocs docs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (null commandDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Options",
[opt-env-conf] +                  renderLongOptDocs optDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs optDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Environment Variables",
[opt-env-conf] +                  renderEnvDocs envDocs
[opt-env-conf] +                ]
[opt-env-conf] +              | not (nullDocs envDocs)
[opt-env-conf] +              ],
[opt-env-conf] +            concat
[opt-env-conf] +              [ [ headerChunks "Configuration Values"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf]  nullDocs = \case
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { True :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { False :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf] @@ -74,7 +74,7 @@
[opt-env-conf]    deriving (Show)
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf] -  { optDocTryArgument :: !Bool,
[opt-env-conf] +  { not (optDocTryArgument) :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf] @@ -75,7 +75,7 @@
[opt-env-conf]  
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf] -    optDocTrySwitch :: !Bool,
[opt-env-conf] +    not (optDocTrySwitch) :: !Bool,
[opt-env-conf]      optDocTryOption :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf] @@ -76,7 +76,7 @@
[opt-env-conf]  data OptDoc = OptDoc
[opt-env-conf]    { optDocTryArgument :: !Bool,
[opt-env-conf]      optDocTrySwitch :: !Bool,
[opt-env-conf] -    optDocTryOption :: !Bool,
[opt-env-conf] +    not (optDocTryOption) :: !Bool,
[opt-env-conf]      optDocDasheds :: ![Dashed],
[opt-env-conf]      optDocDefault :: !(Maybe String),
[opt-env-conf]      optDocExamples :: ![String],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { True :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { False :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]  import Text.Colour.Layout
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf] -  { setDocTryArgument :: !Bool,
[opt-env-conf] +  { not (setDocTryArgument) :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]  
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf] -    setDocTrySwitch :: !Bool,
[opt-env-conf] +    not (setDocTrySwitch) :: !Bool,
[opt-env-conf]      setDocTryOption :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    True :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    False :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added mutation Negate at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]  data SetDoc = SetDoc
[opt-env-conf]    { setDocTryArgument :: !Bool,
[opt-env-conf]      setDocTrySwitch :: !Bool,
[opt-env-conf] -    setDocTryOption :: !Bool,
[opt-env-conf] +    not (setDocTryOption) :: !Bool,
[opt-env-conf]      setDocDasheds :: ![Dashed],
[opt-env-conf]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf] added 424 mutations
[opt-env-conf] [13 of 22] Compiling OptEnvConf.Error ( src/OptEnvConf/Error.hs, dist/build/OptEnvConf/Error.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Error
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,4 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,7 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  [ commandChunk commandDocArgument,
[opt-env-conf] +    ": ",
[opt-env-conf] +    helpChunk commandDocHelp
[opt-env-conf] +  ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf] @@ -142,7 +142,6 @@
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] -  [ commandChunk commandDocArgument,
[opt-env-conf] -    ": ",
[opt-env-conf] -    helpChunk commandDocHelp
[opt-env-conf] -  ]
[opt-env-conf] +  [ commandChunk commandDocArgument,
[opt-env-conf] +    ": "
[opt-env-conf] +]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf] @@ -86,9 +86,7 @@
[opt-env-conf]          ParseErrorEmptySetting ->
[opt-env-conf]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf]          ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf] @@ -86,9 +86,9 @@
[opt-env-conf]          ParseErrorEmptySetting ->
[opt-env-conf]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf]          ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf] @@ -90,7 +90,7 @@
[opt-env-conf]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf]            ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +          []
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf]            [ "Missing argument: "
[opt-env-conf]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf] @@ -90,7 +90,7 @@
[opt-env-conf]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf]            ]
[opt-env-conf]          ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf]          ParseErrorMissingArgument o ->
[opt-env-conf]            [ "Missing argument: "
[opt-env-conf]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +          [ [],
[opt-env-conf]              [fore blue "available commands:"]
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf] @@ -124,7 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf]              [fore blue "available commands:"]
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf] @@ -124,9 +124,7 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf] @@ -124,9 +124,9 @@
[opt-env-conf]            ["Missing command, available commands:"]
[opt-env-conf]              : availableCommandsLines cs
[opt-env-conf]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf] @@ -129,9 +129,7 @@
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf]          ParseErrorUnrecognised leftovers ->
[opt-env-conf]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf] @@ -129,9 +129,9 @@
[opt-env-conf]            ]
[opt-env-conf]              ++ availableCommandsLines cs
[opt-env-conf]          ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf]          ParseErrorUnrecognised leftovers ->
[opt-env-conf]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf] @@ -80,63 +80,63 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf] @@ -80,65 +80,7 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf] @@ -80,65 +80,65 @@
[opt-env-conf]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf]  renderError ParseError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ case parseErrorMessage of
[opt-env-conf] -        ParseErrorEmpty ->
[opt-env-conf] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] -        ParseErrorEmptySetting ->
[opt-env-conf] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] -        ParseErrorNoReaders ->
[opt-env-conf] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorCheckFailed _ err ->
[opt-env-conf] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] -        ParseErrorMissingArgument o ->
[opt-env-conf] -          [ "Missing argument: "
[opt-env-conf] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] -          ]
[opt-env-conf] -        ParseErrorArgumentRead md errs ->
[opt-env-conf] -          ["Failed to read argument: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingOption o ->
[opt-env-conf] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorMissingSwitch o ->
[opt-env-conf] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] -        ParseErrorOptionRead md errs ->
[opt-env-conf] -          ["Failed to read option: "]
[opt-env-conf] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingEnvVar md ->
[opt-env-conf] -          ["Missing env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -        ParseErrorEnvRead md errs ->
[opt-env-conf] -          ["Failed to read env var: "]
[opt-env-conf] -            : maybe [] renderEnvDoc md
[opt-env-conf] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] -        ParseErrorMissingConfVal md ->
[opt-env-conf] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] -        ParseErrorConfigRead md s ->
[opt-env-conf] -          ["Failed to parse configuration: "]
[opt-env-conf] -            : maybe [] renderConfDoc md
[opt-env-conf] -            ++ [[chunk $ T.pack s]]
[opt-env-conf] -        ParseErrorMissingCommand cs ->
[opt-env-conf] -          ["Missing command, available commands:"]
[opt-env-conf] -            : availableCommandsLines cs
[opt-env-conf] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] -            [fore blue "available commands:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ availableCommandsLines cs
[opt-env-conf] -        ParseErrorAllOrNothing locs ->
[opt-env-conf] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] -            ["The following settings have been parsed:"]
[opt-env-conf] -          ]
[opt-env-conf] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] -        ParseErrorMissingCapability cap ->
[opt-env-conf] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ case parseErrorMessage of
[opt-env-conf] +        ParseErrorEmpty ->
[opt-env-conf] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf] +        ParseErrorEmptySetting ->
[opt-env-conf] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf] +        ParseErrorNoReaders ->
[opt-env-conf] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorCheckFailed _ err ->
[opt-env-conf] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf] +        ParseErrorMissingArgument o ->
[opt-env-conf] +          [ "Missing argument: "
[opt-env-conf] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf] +          ]
[opt-env-conf] +        ParseErrorArgumentRead md errs ->
[opt-env-conf] +          ["Failed to read argument: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingOption o ->
[opt-env-conf] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorMissingSwitch o ->
[opt-env-conf] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf] +        ParseErrorOptionRead md errs ->
[opt-env-conf] +          ["Failed to read option: "]
[opt-env-conf] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingEnvVar md ->
[opt-env-conf] +          ["Missing env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +        ParseErrorEnvRead md errs ->
[opt-env-conf] +          ["Failed to read env var: "]
[opt-env-conf] +            : maybe [] renderEnvDoc md
[opt-env-conf] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf] +        ParseErrorMissingConfVal md ->
[opt-env-conf] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf] +        ParseErrorConfigRead md s ->
[opt-env-conf] +          ["Failed to parse configuration: "]
[opt-env-conf] +            : maybe [] renderConfDoc md
[opt-env-conf] +            ++ [[chunk $ T.pack s]]
[opt-env-conf] +        ParseErrorMissingCommand cs ->
[opt-env-conf] +          ["Missing command, available commands:"]
[opt-env-conf] +            : availableCommandsLines cs
[opt-env-conf] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf] +            [fore blue "available commands:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ availableCommandsLines cs
[opt-env-conf] +        ParseErrorAllOrNothing locs ->
[opt-env-conf] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf] +            ["The following settings have been parsed:"]
[opt-env-conf] +          ]
[opt-env-conf] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf] +        ParseErrorMissingCapability cap ->
[opt-env-conf] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf] +      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:52:22-26
[opt-env-conf] @@ -49,7 +49,7 @@
[opt-env-conf]  
[opt-env-conf]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf] -  ParseErrorEmpty -> True
[opt-env-conf] +  ParseErrorEmpty -> False
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:53:29-34
[opt-env-conf] @@ -50,7 +50,7 @@
[opt-env-conf]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf] -  ParseErrorEmptySetting -> False
[opt-env-conf] +  ParseErrorEmptySetting -> True
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:54:26-31
[opt-env-conf] @@ -51,7 +51,7 @@
[opt-env-conf]  errorMessageIsForgivable = \case
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf] -  ParseErrorNoReaders -> False
[opt-env-conf] +  ParseErrorNoReaders -> True
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> True
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> False
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf] @@ -52,7 +52,7 @@
[opt-env-conf]    ParseErrorEmpty -> True
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] +  ParseErrorCheckFailed forgivable _ -> not (forgivable)
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:56:34-38
[opt-env-conf] @@ -53,7 +53,7 @@
[opt-env-conf]    ParseErrorEmptySetting -> False
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf] -  ParseErrorMissingArgument _ -> True
[opt-env-conf] +  ParseErrorMissingArgument _ -> False
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:57:33-38
[opt-env-conf] @@ -54,7 +54,7 @@
[opt-env-conf]    ParseErrorNoReaders -> False
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf] -  ParseErrorArgumentRead _ _ -> False
[opt-env-conf] +  ParseErrorArgumentRead _ _ -> True
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:58:32-36
[opt-env-conf] @@ -55,7 +55,7 @@
[opt-env-conf]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingSwitch _ -> True
[opt-env-conf] +  ParseErrorMissingSwitch _ -> False
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:59:31-36
[opt-env-conf] @@ -56,7 +56,7 @@
[opt-env-conf]    ParseErrorMissingArgument _ -> True
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf] -  ParseErrorOptionRead _ _ -> False
[opt-env-conf] +  ParseErrorOptionRead _ _ -> True
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:60:32-36
[opt-env-conf] @@ -57,7 +57,7 @@
[opt-env-conf]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingOption _ -> True
[opt-env-conf] +  ParseErrorMissingOption _ -> False
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:61:32-36
[opt-env-conf] @@ -58,7 +58,7 @@
[opt-env-conf]    ParseErrorMissingSwitch _ -> True
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf] -  ParseErrorMissingEnvVar _ -> True
[opt-env-conf] +  ParseErrorMissingEnvVar _ -> False
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:62:28-33
[opt-env-conf] @@ -59,7 +59,7 @@
[opt-env-conf]    ParseErrorOptionRead _ _ -> False
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf] -  ParseErrorEnvRead _ _ -> False
[opt-env-conf] +  ParseErrorEnvRead _ _ -> True
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:63:33-37
[opt-env-conf] @@ -60,7 +60,7 @@
[opt-env-conf]    ParseErrorMissingOption _ -> True
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingConfVal _ -> True
[opt-env-conf] +  ParseErrorMissingConfVal _ -> False
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:64:31-36
[opt-env-conf] @@ -61,7 +61,7 @@
[opt-env-conf]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf] -  ParseErrorConfigRead _ _ -> False
[opt-env-conf] +  ParseErrorConfigRead _ _ -> True
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ True
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ False
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not $ not (null cs)
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> True
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> False
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf] @@ -62,7 +62,7 @@
[opt-env-conf]    ParseErrorEnvRead _ _ -> False
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] +  ParseErrorMissingCommand cs -> not (not $ null cs)
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:66:40-45
[opt-env-conf] @@ -63,7 +63,7 @@
[opt-env-conf]    ParseErrorMissingConfVal _ -> True
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf] -  ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] +  ParseErrorUnrecognisedCommand _ _ -> True
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:67:31-36
[opt-env-conf] @@ -64,7 +64,7 @@
[opt-env-conf]    ParseErrorConfigRead _ _ -> False
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf] -  ParseErrorAllOrNothing _ -> False
[opt-env-conf] +  ParseErrorAllOrNothing _ -> True
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:68:31-36
[opt-env-conf] @@ -65,7 +65,7 @@
[opt-env-conf]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf] -  ParseErrorUnrecognised _ -> False
[opt-env-conf] +  ParseErrorUnrecognised _ -> True
[opt-env-conf]    ParseErrorMissingCapability _ -> False
[opt-env-conf]  
[opt-env-conf]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Error.hs:69:36-41
[opt-env-conf] @@ -66,7 +66,7 @@
[opt-env-conf]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf]    ParseErrorAllOrNothing _ -> False
[opt-env-conf]    ParseErrorUnrecognised _ -> False
[opt-env-conf] -  ParseErrorMissingCapability _ -> False
[opt-env-conf] +  ParseErrorMissingCapability _ -> True
[opt-env-conf]  
[opt-env-conf]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf]  eraseErrorSrcLocs = fmap eraseErrorSrcLoc
[opt-env-conf] added 58 mutations
[opt-env-conf] [14 of 22] Compiling OptEnvConf.Completion ( src/OptEnvConf/Completion.hs, dist/build/OptEnvConf/Completion.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Completion
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf] @@ -304,9 +304,9 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just cs1 -> do
[opt-env-conf]            p2s <- tryOrRestore $ go p2
[opt-env-conf] -          pure $ case p2s of
[opt-env-conf] -            Nothing -> Nothing
[opt-env-conf] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf] +          pure $ case p2s of
[opt-env-conf] +            Nothing -> Nothing
[opt-env-conf] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      -- Nothing means "this branch was not valid"
[opt-env-conf]      -- Just [] means "no completions"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf] @@ -304,9 +304,9 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just cs1 -> do
[opt-env-conf]            p2s <- tryOrRestore $ go p2
[opt-env-conf] -          pure $ case p2s of
[opt-env-conf] -            Nothing -> Nothing
[opt-env-conf] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf] +          pure $ case p2s of
[opt-env-conf] +            Nothing -> Nothing
[opt-env-conf] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      -- Nothing means "this branch was not valid"
[opt-env-conf]      -- Just [] means "no completions"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf] @@ -291,11 +291,11 @@
[opt-env-conf]      orCompletions p1 p2 = do
[opt-env-conf]        p1s <- tryOrRestore $ go p1
[opt-env-conf]        p2s <- tryOrRestore $ go p2
[opt-env-conf] -      pure $ case (p1s, p2s) of
[opt-env-conf] -        (Nothing, Nothing) -> Nothing
[opt-env-conf] -        (Just cs, Nothing) -> Just cs
[opt-env-conf] -        (Nothing, Just cs) -> Just cs
[opt-env-conf] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf] +      pure $ case (p1s, p2s) of
[opt-env-conf] +        (Nothing, Nothing) -> Nothing
[opt-env-conf] +        (Just cs, Nothing) -> Just cs
[opt-env-conf] +        (Nothing, Just cs) -> Just cs
[opt-env-conf] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf]  
[opt-env-conf]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf]      andCompletions p1 p2 = do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if True
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if False
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          Nothing -> pure Nothing
[opt-env-conf]          Just os -> do
[opt-env-conf]            after <- get
[opt-env-conf] -          if after == before
[opt-env-conf] +          if not (after == before)
[opt-env-conf]              then -- State did not advance; return these completions.
[opt-env-conf]                pure $ Just os
[opt-env-conf]              else -- State advanced: something was consumed. Try the
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf] @@ -284,7 +284,7 @@
[opt-env-conf]                      -- dashed suggestions (state didn't advance
[opt-env-conf]                      -- further), prefer our completions which came
[opt-env-conf]                      -- from the advancing iteration.
[opt-env-conf] -                    | null os -> pure $ Just more
[opt-env-conf] +                    | True -> pure $ Just more
[opt-env-conf]                      | otherwise -> pure $ Just os
[opt-env-conf]  
[opt-env-conf]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf] @@ -284,7 +284,7 @@
[opt-env-conf]                      -- dashed suggestions (state didn't advance
[opt-env-conf]                      -- further), prefer our completions which came
[opt-env-conf]                      -- from the advancing iteration.
[opt-env-conf] -                    | null os -> pure $ Just more
[opt-env-conf] +                    | not (null os) -> pure $ Just more
[opt-env-conf]                      | otherwise -> pure $ Just os
[opt-env-conf]  
[opt-env-conf]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if True
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if False
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf]              case mArg of
[opt-env-conf]                Nothing -> do
[opt-env-conf] -                if argsAtEnd rest
[opt-env-conf] +                if not (argsAtEnd rest)
[opt-env-conf]                    then do
[opt-env-conf]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf] @@ -357,11 +357,11 @@
[opt-env-conf]                    -- name then the remaining args have nowhere to go.
[opt-env-conf]                      pure Nothing
[opt-env-conf]                Just arg ->
[opt-env-conf] -                case find ((== arg) . commandArg) cs of
[opt-env-conf] -                  Just c -> do
[opt-env-conf] -                    put rest
[opt-env-conf] -                    goCommand c
[opt-env-conf] -                  Nothing -> pure Nothing
[opt-env-conf] +                case find ((== arg) . commandArg) cs of
[opt-env-conf] +                  Just c -> do
[opt-env-conf] +                    put rest
[opt-env-conf] +                    goCommand c
[opt-env-conf] +                  Nothing -> pure Nothing
[opt-env-conf]          -- If there is a default command, also try completing within
[opt-env-conf]          -- the default command's parser, since that is what would run
[opt-env-conf]          -- if the user provides no command.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf] @@ -357,11 +357,11 @@
[opt-env-conf]                    -- name then the remaining args have nowhere to go.
[opt-env-conf]                      pure Nothing
[opt-env-conf]                Just arg ->
[opt-env-conf] -                case find ((== arg) . commandArg) cs of
[opt-env-conf] -                  Just c -> do
[opt-env-conf] -                    put rest
[opt-env-conf] -                    goCommand c
[opt-env-conf] -                  Nothing -> pure Nothing
[opt-env-conf] +                case find ((== arg) . commandArg) cs of
[opt-env-conf] +                  Just c -> do
[opt-env-conf] +                    put rest
[opt-env-conf] +                    goCommand c
[opt-env-conf] +                  Nothing -> pure Nothing
[opt-env-conf]          -- If there is a default command, also try completing within
[opt-env-conf]          -- the default command's parser, since that is what would run
[opt-env-conf]          -- if the user provides no command.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | True -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | not (argsAtEnd as) -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | argsAtEnd as -> pure $ combineOptions []
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf] @@ -375,7 +375,7 @@
[opt-env-conf]                  -- If no args were consumed (we were already at end),
[opt-env-conf]                  -- combine the explicit command listing with the default
[opt-env-conf]                  -- command's completions.
[opt-env-conf] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf] +                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf]                  | otherwise -> do
[opt-env-conf]                      -- The default command consumed args, so its
[opt-env-conf]                      -- completions are valid.  But we must restore
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if True then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if False then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf] @@ -395,7 +395,7 @@
[opt-env-conf]                pure Completion {..}
[opt-env-conf]          let completeWithCompleterAtEnd = do
[opt-env-conf]                as <- get
[opt-env-conf] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf] +              if not (argsAtEnd as) then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completion.hs:401:37-41
[opt-env-conf] @@ -398,7 +398,7 @@
[opt-env-conf]                if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf] -                    DashedLong _ -> True
[opt-env-conf] +                    DashedLong _ -> False
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Completion.hs:402:38-43
[opt-env-conf] @@ -399,7 +399,7 @@
[opt-env-conf]          let completeWithDasheds = do
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf] -                    DashedShort _ -> False
[opt-env-conf] +                    DashedShort _ -> True
[opt-env-conf]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if True then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if False then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if not (any isLong settingDasheds) then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:403:38-120
[opt-env-conf] @@ -400,7 +400,7 @@
[opt-env-conf]                let isLong = \case
[opt-env-conf]                      DashedLong _ -> True
[opt-env-conf]                      DashedShort _ -> False
[opt-env-conf] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf] +              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf]                let completions =
[opt-env-conf]                      map
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if True
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if False
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf] @@ -411,7 +411,7 @@
[opt-env-conf]                        )
[opt-env-conf]                        suggestions
[opt-env-conf]                pure $ Just completions
[opt-env-conf] -        if settingHidden
[opt-env-conf] +        if not (settingHidden)
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if True
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if False
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf] @@ -415,7 +415,7 @@
[opt-env-conf]            then pure $ Just []
[opt-env-conf]            else do
[opt-env-conf]              as <- get
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if not (settingTryArgument)
[opt-env-conf]                then do
[opt-env-conf]                  let possibilities = Args.consumeArgument as
[opt-env-conf]                  -- Try all possible consumptions of the argument.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf] @@ -432,11 +432,11 @@
[opt-env-conf]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf]                      -- fallback matched.  In both cases, offer the
[opt-env-conf]                      -- completer if we are at the end.
[opt-env-conf] -                    case possibilities of
[opt-env-conf] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf] -                      (_, as') : _ -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        completeWithCompleterAtEnd
[opt-env-conf] +                    case possibilities of
[opt-env-conf] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf] +                      (_, as') : _ -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf]                  if isJust settingSwitchValue
[opt-env-conf]                    then do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf] @@ -432,11 +432,11 @@
[opt-env-conf]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf]                      -- fallback matched.  In both cases, offer the
[opt-env-conf]                      -- completer if we are at the end.
[opt-env-conf] -                    case possibilities of
[opt-env-conf] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf] -                      (_, as') : _ -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        completeWithCompleterAtEnd
[opt-env-conf] +                    case possibilities of
[opt-env-conf] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf] +                      (_, as') : _ -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf]                  if isJust settingSwitchValue
[opt-env-conf]                    then do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if True
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if False
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf] @@ -438,7 +438,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] +                if not (isJust settingSwitchValue)
[opt-env-conf]                    then do
[opt-env-conf]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf]                      -- it's already been parsed.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if True
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if False
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf] @@ -450,7 +450,7 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          pure $ Just []
[opt-env-conf]                    else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if not (settingTryOption)
[opt-env-conf]                        then do
[opt-env-conf]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf]                          case Args.consumeOption settingDasheds as of
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if True
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if False
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf] @@ -458,7 +458,7 @@
[opt-env-conf]                              put as'
[opt-env-conf]                              pure $ Just []
[opt-env-conf]                            Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] +                            if not (argsAtEnd as)
[opt-env-conf]                                then completeWithDasheds
[opt-env-conf]                                else do
[opt-env-conf]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:441:17-39
[opt-env-conf] @@ -438,50 +438,50 @@
[opt-env-conf]                          put as'
[opt-env-conf]                          completeWithCompleterAtEnd
[opt-env-conf]                else
[opt-env-conf] -                if isJust settingSwitchValue
[opt-env-conf] -                  then do
[opt-env-conf] -                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf] -                    -- it's already been parsed.
[opt-env-conf] -                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf] -                      Nothing ->
[opt-env-conf] -                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf] -                        completeWithDasheds
[opt-env-conf] -                      Just as' -> do
[opt-env-conf] -                        put as'
[opt-env-conf] -                        pure $ Just []
[opt-env-conf] -                  else do
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf] -                        case Args.consumeOption settingDasheds as of
[opt-env-conf] -                          Just (_, as') -> do
[opt-env-conf] -                            put as'
[opt-env-conf] -                            pure $ Just []
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            if argsAtEnd as
[opt-env-conf] -                              then completeWithDasheds
[opt-env-conf] -                              else do
[opt-env-conf] -                                -- If we're not at the end, we may be between an option's
[opt-env-conf] -                                -- dashed an the option value being tab-completed In that case
[opt-env-conf] -                                -- we need to parse the dashed as normal and check if that
[opt-env-conf] -                                -- brings us to the end.
[opt-env-conf] -                                --
[opt-env-conf] -                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf] -                                -- the option because consumeOption would try to
[opt-env-conf] -                                -- consume the option argument too.
[opt-env-conf] -                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf] -                                  Nothing -> pure $ Just []
[opt-env-conf] -                                  Just as' -> do
[opt-env-conf] -                                    put as'
[opt-env-conf] -                                    completeWithCompleterAtEnd
[opt-env-conf] -                      else do
[opt-env-conf] -                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf] -                        -- or config values, but this path is still valid.
[opt-env-conf] -                        --
[opt-env-conf] -                        -- If we checked whether the env var is set or the
[opt-env-conf] -                        -- config val is present, we could return Nothing when
[opt-env-conf] -                        -- they are absent. That would let alternatives reject
[opt-env-conf] -                        -- this branch, improving completions when one branch
[opt-env-conf] -                        -- is env/conf-only and the other has args/options.
[opt-env-conf] -                        -- This would require IO or an environment parameter.
[opt-env-conf] -                        pure $ Just []
[opt-env-conf] +                if isJust settingSwitchValue
[opt-env-conf] +                  then do
[opt-env-conf] +                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf] +                    -- it's already been parsed.
[opt-env-conf] +                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf] +                      Nothing ->
[opt-env-conf] +                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf] +                        completeWithDasheds
[opt-env-conf] +                      Just as' -> do
[opt-env-conf] +                        put as'
[opt-env-conf] +                        pure $ Just []
[opt-env-conf] +                  else do
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf] +                        case Args.consumeOption settingDasheds as of
[opt-env-conf] +                          Just (_, as') -> do
[opt-env-conf] +                            put as'
[opt-env-conf] +                            pure $ Just []
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            if argsAtEnd as
[opt-env-conf] +                              then completeWithDasheds
[opt-env-conf] +                              else do
[opt-env-conf] +                                -- If we're not at the end, we may be between an option's
[opt-env-conf] +                                -- dashed an the option value being tab-completed In that case
[opt-env-conf] +                                -- we need to parse the dashed as normal and check if that
[opt-env-conf] +                                -- brings us to the end.
[opt-env-conf] +                                --
[opt-env-conf] +                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf] +                                -- the option because consumeOption would try to
[opt-env-conf] +                                -- consume the option argument too.
[opt-env-conf] +                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf] +                                  Nothing -> pure $ Just []
[opt-env-conf] +                                  Just as' -> do
[opt-env-conf] +                                    put as'
[opt-env-conf] +                                    completeWithCompleterAtEnd
[opt-env-conf] +                      else do
[opt-env-conf] +                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf] +                        -- or config values, but this path is still valid.
[opt-env-conf] +                        --
[opt-env-conf] +                        -- If we checked whether the env var is set or the
[opt-env-conf] +                        -- config val is present, we could return Nothing when
[opt-env-conf] +                        -- they are absent. That would let alternatives reject
[opt-env-conf] +                        -- this branch, improving completions when one branch
[opt-env-conf] +                        -- is env/conf-only and the other has args/options.
[opt-env-conf] +                        -- This would require IO or an environment parameter.
[opt-env-conf] +                        pure $ Just []
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf] @@ -160,7 +160,7 @@
[opt-env-conf]    --
[opt-env-conf]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf]    let index = pred index'
[opt-env-conf] -  let ws = drop 1 ws'
[opt-env-conf] +  let ws = drop 0 ws'
[opt-env-conf]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf]    let completions = pureCompletionQuery parser index ws
[opt-env-conf]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf] @@ -160,7 +160,7 @@
[opt-env-conf]    --
[opt-env-conf]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf]    let index = pred index'
[opt-env-conf] -  let ws = drop 1 ws'
[opt-env-conf] +  let ws = drop -1 ws'
[opt-env-conf]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf]    let completions = pureCompletionQuery parser index ws
[opt-env-conf]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if True
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if False
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf] @@ -168,7 +168,7 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] +  if not (enriched)
[opt-env-conf]      then
[opt-env-conf]        putStr $
[opt-env-conf]          unlines $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = True
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = False
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf] @@ -175,7 +175,7 @@
[opt-env-conf]            map
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                    notFinal = not (completionResultFinality completionSuggestion == CompletionNotFinal)
[opt-env-conf]                   in case (notFinal, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (True, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (False, completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation Negate at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf] @@ -176,7 +176,7 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] +                 in case (not (notFinal), completionDescription) of
[opt-env-conf]                        (False, Nothing) -> val
[opt-env-conf]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf] @@ -176,11 +176,11 @@
[opt-env-conf]              ( \Completion {..} ->
[opt-env-conf]                  let val = completionResultValue completionSuggestion
[opt-env-conf]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf]              )
[opt-env-conf]              evaluatedCompletions
[opt-env-conf]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Completion.hs:171:3-100
[opt-env-conf] @@ -168,22 +168,22 @@
[opt-env-conf]    -- import System.IO
[opt-env-conf]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf] -  if enriched
[opt-env-conf] -    then
[opt-env-conf] -      putStr $
[opt-env-conf] -        unlines $
[opt-env-conf] -          map
[opt-env-conf] -            ( \Completion {..} ->
[opt-env-conf] -                let val = completionResultValue completionSuggestion
[opt-env-conf] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] -                 in case (notFinal, completionDescription) of
[opt-env-conf] -                      (False, Nothing) -> val
[opt-env-conf] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] -            )
[opt-env-conf] -            evaluatedCompletions
[opt-env-conf] -    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf] +  if enriched
[opt-env-conf] +    then
[opt-env-conf] +      putStr $
[opt-env-conf] +        unlines $
[opt-env-conf] +          map
[opt-env-conf] +            ( \Completion {..} ->
[opt-env-conf] +                let val = completionResultValue completionSuggestion
[opt-env-conf] +                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf] +                 in case (notFinal, completionDescription) of
[opt-env-conf] +                      (False, Nothing) -> val
[opt-env-conf] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf] +            )
[opt-env-conf] +            evaluatedCompletions
[opt-env-conf] +    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf]    pure ()
[opt-env-conf]  
[opt-env-conf]  -- Because the first arg has already been skipped we get input like this here:
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,7 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,27 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        [ " function " ++ functionName,
[opt-env-conf] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] +          "    # Hack around fish issue #3934",
[opt-env-conf] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] +          "    set -l cn (count $cn)",
[opt-env-conf] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] +          "    for arg in $cl",
[opt-env-conf] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] +          "      if test -d $val",
[opt-env-conf] +          "        echo -E \"$val/\"",
[opt-env-conf] +          "      else",
[opt-env-conf] +          "        echo -E \"$val\"",
[opt-env-conf] +          "      end",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "end",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf] @@ -113,27 +113,27 @@
[opt-env-conf]  fishCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ " function " ++ functionName,
[opt-env-conf] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] -          "    # Hack around fish issue #3934",
[opt-env-conf] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] -          "    set -l cn (count $cn)",
[opt-env-conf] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] -          "    for arg in $cl",
[opt-env-conf] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] -          "      if test -d $val",
[opt-env-conf] -          "        echo -E \"$val/\"",
[opt-env-conf] -          "      else",
[opt-env-conf] -          "        echo -E \"$val\"",
[opt-env-conf] -          "      end",
[opt-env-conf] -          "    end",
[opt-env-conf] -          "end",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] -        ]
[opt-env-conf] +        [ " function " ++ functionName,
[opt-env-conf] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf] +          "    # Hack around fish issue #3934",
[opt-env-conf] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf] +          "    set -l cn (count $cn)",
[opt-env-conf] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf] +          "    for arg in $cl",
[opt-env-conf] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf] +          "      if test -d $val",
[opt-env-conf] +          "        echo -E \"$val/\"",
[opt-env-conf] +          "      else",
[opt-env-conf] +          "        echo -E \"$val\"",
[opt-env-conf] +          "      end",
[opt-env-conf] +          "    end",
[opt-env-conf] +          "end",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf]  progNameToFunctionName :: String -> String
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,7 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,46 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    [ "#compdef " ++ progname,
[opt-env-conf] +      "",
[opt-env-conf] +      "local request",
[opt-env-conf] +      "local completions",
[opt-env-conf] +      "local word",
[opt-env-conf] +      "local index=$((CURRENT - 1))",
[opt-env-conf] +      "",
[opt-env-conf] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] +      "for arg in ${words[@]}; do",
[opt-env-conf] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] +      "done",
[opt-env-conf] +      "",
[opt-env-conf] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "for word in $completions; do",
[opt-env-conf] +      "  local -a parts",
[opt-env-conf] +      "",
[opt-env-conf] +      "  # Split the line at a tab if there is one.",
[opt-env-conf] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] +      "     else",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] +      "     fi",
[opt-env-conf] +      "  else",
[opt-env-conf] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] +      "    else",
[opt-env-conf] +      "      compadd -f -- $parts[1]",
[opt-env-conf] +      "    fi",
[opt-env-conf] +      "  fi",
[opt-env-conf] +      "done"
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf] @@ -64,46 +64,45 @@
[opt-env-conf]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf]  zshCompletionScript progPath progname =
[opt-env-conf]    unlines
[opt-env-conf] -    [ "#compdef " ++ progname,
[opt-env-conf] -      "",
[opt-env-conf] -      "local request",
[opt-env-conf] -      "local completions",
[opt-env-conf] -      "local word",
[opt-env-conf] -      "local index=$((CURRENT - 1))",
[opt-env-conf] -      "",
[opt-env-conf] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] -      "for arg in ${words[@]}; do",
[opt-env-conf] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] -      "done",
[opt-env-conf] -      "",
[opt-env-conf] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "for word in $completions; do",
[opt-env-conf] -      "  local -a parts",
[opt-env-conf] -      "",
[opt-env-conf] -      "  # Split the line at a tab if there is one.",
[opt-env-conf] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] -      "",
[opt-env-conf] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] -      "     else",
[opt-env-conf] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] -      "     fi",
[opt-env-conf] -      "  else",
[opt-env-conf] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] -      "    else",
[opt-env-conf] -      "      compadd -f -- $parts[1]",
[opt-env-conf] -      "    fi",
[opt-env-conf] -      "  fi",
[opt-env-conf] -      "done"
[opt-env-conf] -    ]
[opt-env-conf] +    [ "#compdef " ++ progname,
[opt-env-conf] +      "",
[opt-env-conf] +      "local request",
[opt-env-conf] +      "local completions",
[opt-env-conf] +      "local word",
[opt-env-conf] +      "local index=$((CURRENT - 1))",
[opt-env-conf] +      "",
[opt-env-conf] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf] +      "for arg in ${words[@]}; do",
[opt-env-conf] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf] +      "done",
[opt-env-conf] +      "",
[opt-env-conf] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "for word in $completions; do",
[opt-env-conf] +      "  local -a parts",
[opt-env-conf] +      "",
[opt-env-conf] +      "  # Split the line at a tab if there is one.",
[opt-env-conf] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf] +      "",
[opt-env-conf] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf] +      "     else",
[opt-env-conf] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf] +      "     fi",
[opt-env-conf] +      "  else",
[opt-env-conf] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf] +      "    else",
[opt-env-conf] +      "      compadd -f -- $parts[1]",
[opt-env-conf] +      "    fi",
[opt-env-conf] +      "  fi"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,7 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,22 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        [ functionName ++ "()",
[opt-env-conf] +          "{",
[opt-env-conf] +          "    local CMDLINE",
[opt-env-conf] +          "    local IFS=$'\\n'",
[opt-env-conf] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] +          "",
[opt-env-conf] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] +          "    done",
[opt-env-conf] +          "",
[opt-env-conf] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] +          "}",
[opt-env-conf] +          "",
[opt-env-conf] +          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] +        ]
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf] @@ -40,22 +40,21 @@
[opt-env-conf]  bashCompletionScript progPath progname =
[opt-env-conf]    let functionName = progNameToFunctionName progname
[opt-env-conf]     in unlines
[opt-env-conf] -        [ functionName ++ "()",
[opt-env-conf] -          "{",
[opt-env-conf] -          "    local CMDLINE",
[opt-env-conf] -          "    local IFS=$'\\n'",
[opt-env-conf] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] -          "",
[opt-env-conf] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] -          "    done",
[opt-env-conf] -          "",
[opt-env-conf] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] -          "}",
[opt-env-conf] -          "",
[opt-env-conf] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf] -        ]
[opt-env-conf] +        [ functionName ++ "()",
[opt-env-conf] +          "{",
[opt-env-conf] +          "    local CMDLINE",
[opt-env-conf] +          "    local IFS=$'\\n'",
[opt-env-conf] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf] +          "",
[opt-env-conf] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf] +          "    done",
[opt-env-conf] +          "",
[opt-env-conf] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf] +          "}",
[opt-env-conf] +          ""
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf] added 72 mutations
[opt-env-conf] [15 of 22] Compiling OptEnvConf.Terminal ( src/OptEnvConf/Terminal.hs, dist/build/OptEnvConf/Terminal.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Terminal
[opt-env-conf] added 0 mutations
[opt-env-conf] [16 of 22] Compiling OptEnvConf.Validation ( src/OptEnvConf/Validation.hs, dist/build/OptEnvConf/Validation.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Validation
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf] @@ -78,9 +78,9 @@
[opt-env-conf]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] -    Left a -> f a
[opt-env-conf] -    Right b -> b
[opt-env-conf] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] +    Left a -> f a
[opt-env-conf] +    Right b -> b
[opt-env-conf]  
[opt-env-conf]  validationFailure :: e -> Validation e a
[opt-env-conf]  validationFailure e = Failure (e :| [])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf] @@ -78,9 +78,9 @@
[opt-env-conf]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] -    Left a -> f a
[opt-env-conf] -    Right b -> b
[opt-env-conf] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf] +    Left a -> f a
[opt-env-conf] +    Right b -> b
[opt-env-conf]  
[opt-env-conf]  validationFailure :: e -> Validation e a
[opt-env-conf]  validationFailure e = Failure (e :| [])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf] @@ -66,9 +66,9 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative (Validation e) where
[opt-env-conf]    pure = Success
[opt-env-conf] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] -    Success _ -> e1
[opt-env-conf] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] +    Success _ -> e1
[opt-env-conf]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf]    Success f <*> Success a = Success (f a)
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf] @@ -66,9 +66,9 @@
[opt-env-conf]  
[opt-env-conf]  instance Applicative (Validation e) where
[opt-env-conf]    pure = Success
[opt-env-conf] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] -    Success _ -> e1
[opt-env-conf] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf] +    Success _ -> e1
[opt-env-conf]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf]    Success f <*> Success a = Success (f a)
[opt-env-conf]  
[opt-env-conf] added 4 mutations
[opt-env-conf] [17 of 22] Compiling OptEnvConf.Run   ( src/OptEnvConf/Run.hs, dist/build/OptEnvConf/Run.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Run
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf] @@ -709,11 +709,11 @@
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeSwitch ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just args' -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just ())
[opt-env-conf] +  case Args.consumeSwitch ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just args' -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just ())
[opt-env-conf]  
[opt-env-conf]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf] @@ -709,11 +709,11 @@
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeSwitch ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just args' -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just ())
[opt-env-conf] +  case Args.consumeSwitch ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just args' -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just ())
[opt-env-conf]  
[opt-env-conf]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf] @@ -700,11 +700,11 @@
[opt-env-conf]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf]  ppOpt ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeOption ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just (a, args') -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just a)
[opt-env-conf] +  case Args.consumeOption ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just (a, args') -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just a)
[opt-env-conf]  
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf] @@ -700,11 +700,11 @@
[opt-env-conf]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf]  ppOpt ds = do
[opt-env-conf]    args <- gets ppStateArgs
[opt-env-conf] -  case Args.consumeOption ds args of
[opt-env-conf] -    Nothing -> pure Nothing
[opt-env-conf] -    Just (a, args') -> do
[opt-env-conf] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] -      pure (Just a)
[opt-env-conf] +  case Args.consumeOption ds args of
[opt-env-conf] +    Nothing -> pure Nothing
[opt-env-conf] +    Just (a, args') -> do
[opt-env-conf] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf] +      pure (Just a)
[opt-env-conf]  
[opt-env-conf]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf]  ppSwitch ds = do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if True
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if False
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf] @@ -635,7 +635,7 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] +      if not (all errorIsForgivable errs)
[opt-env-conf]          then do
[opt-env-conf]            pure Nothing
[opt-env-conf]          else ppErrors' errs
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:638:7-28
[opt-env-conf] @@ -635,10 +635,10 @@
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf]    case errOrRes of
[opt-env-conf]      Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf]      Success a -> do
[opt-env-conf]        put s' -- Only set state if parsing succeeded.
[opt-env-conf]        pure $ Just a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf] @@ -633,15 +633,15 @@
[opt-env-conf]    e <- ask
[opt-env-conf]    results <- liftIO $ runPP pp s e
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf] -  case errOrRes of
[opt-env-conf] -    Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] -    Success a -> do
[opt-env-conf] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf] -      pure $ Just a
[opt-env-conf] +  case errOrRes of
[opt-env-conf] +    Failure errs ->
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf] +    Success a -> do
[opt-env-conf] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf] +      pure $ Just a
[opt-env-conf]  
[opt-env-conf]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf]  ppNonDet = PP . lift . lift . lift
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf] @@ -633,15 +633,15 @@
[opt-env-conf]    e <- ask
[opt-env-conf]    results <- liftIO $ runPP pp s e
[opt-env-conf]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf] -  case errOrRes of
[opt-env-conf] -    Failure errs ->
[opt-env-conf] -      if all errorIsForgivable errs
[opt-env-conf] -        then do
[opt-env-conf] -          pure Nothing
[opt-env-conf] -        else ppErrors' errs
[opt-env-conf] -    Success a -> do
[opt-env-conf] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf] -      pure $ Just a
[opt-env-conf] +  case errOrRes of
[opt-env-conf] +    Failure errs ->
[opt-env-conf] +      if all errorIsForgivable errs
[opt-env-conf] +        then do
[opt-env-conf] +          pure Nothing
[opt-env-conf] +        else ppErrors' errs
[opt-env-conf] +    Success a -> do
[opt-env-conf] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf] +      pure $ Just a
[opt-env-conf]  
[opt-env-conf]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf]  ppNonDet = PP . lift . lift . lift
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
[opt-env-conf] @@ -508,7 +508,7 @@
[opt-env-conf]            { ppEnvEnv = EnvMap.empty,
[opt-env-conf]              ppEnvConf = Nothing,
[opt-env-conf]              ppEnvDebug = mDebugMode,
[opt-env-conf] -            ppEnvIndent = 0
[opt-env-conf] +            ppEnvIndent = 1
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf] @@ -513,9 +513,9 @@
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf]      Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf] @@ -513,9 +513,9 @@
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf]    case mResOrNext of
[opt-env-conf]      Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf] @@ -511,11 +511,11 @@
[opt-env-conf]              ppEnvIndent = 0
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf] -  case mResOrNext of
[opt-env-conf] -    Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +  case mResOrNext of
[opt-env-conf] +    Nothing -> pure $ Right Nothing
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf] @@ -511,11 +511,11 @@
[opt-env-conf]              ppEnvIndent = 0
[opt-env-conf]            }
[opt-env-conf]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf] -  case mResOrNext of
[opt-env-conf] -    Nothing -> pure $ Right Nothing
[opt-env-conf] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] -      Failure errs -> Left errs
[opt-env-conf] -      Success mDocs -> Right mDocs
[opt-env-conf] +  case mResOrNext of
[opt-env-conf] +    Nothing -> pure $ Right Nothing
[opt-env-conf] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf] +      Failure errs -> Left errs
[opt-env-conf] +      Success mDocs -> Right mDocs
[opt-env-conf]    where
[opt-env-conf]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
[opt-env-conf] @@ -526,12 +526,12 @@
[opt-env-conf]              ParserPure _ -> do
[opt-env-conf]                debug [syntaxChunk "pure value"]
[opt-env-conf]                pure Nothing
[opt-env-conf] -            ParserAp ff fa -> do
[opt-env-conf] -              debug [syntaxChunk "Ap"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                mf <- go ff
[opt-env-conf] -                ma <- go fa
[opt-env-conf] -                pure $ ma <|> mf -- Reverse order
[opt-env-conf] +            ParserAp ff fa -> do
[opt-env-conf] +              debug [syntaxChunk "Ap"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                mf <- go ff
[opt-env-conf] +                ma <- go fa
[opt-env-conf] +                pure $ ma <|> mf -- Reverse order
[opt-env-conf]              ParserSelect fe ff -> do
[opt-env-conf]                debug [syntaxChunk "Select"]
[opt-env-conf]                ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
[opt-env-conf] @@ -532,12 +532,12 @@
[opt-env-conf]                  mf <- go ff
[opt-env-conf]                  ma <- go fa
[opt-env-conf]                  pure $ ma <|> mf -- Reverse order
[opt-env-conf] -            ParserSelect fe ff -> do
[opt-env-conf] -              debug [syntaxChunk "Select"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                me <- go fe
[opt-env-conf] -                mf <- go ff
[opt-env-conf] -                pure $ mf <|> me -- Reverse order
[opt-env-conf] +            ParserSelect fe ff -> do
[opt-env-conf] +              debug [syntaxChunk "Select"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                me <- go fe
[opt-env-conf] +                mf <- go ff
[opt-env-conf] +                pure $ mf <|> me -- Reverse order
[opt-env-conf]              ParserEmpty mLoc -> do
[opt-env-conf]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
[opt-env-conf] @@ -550,9 +550,9 @@
[opt-env-conf]                    Just a -> do
[opt-env-conf]                      debug ["Left side succeeded."]
[opt-env-conf]                      pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf] @@ -546,13 +546,13 @@
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  debug ["Trying left side."]
[opt-env-conf]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf] @@ -546,13 +546,13 @@
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  debug ["Trying left side."]
[opt-env-conf]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
[opt-env-conf] @@ -541,18 +541,18 @@
[opt-env-conf]              ParserEmpty mLoc -> do
[opt-env-conf]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] -            ParserAlt p1 p2 -> do
[opt-env-conf] -              debug [syntaxChunk "Alt"]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                debug ["Trying left side."]
[opt-env-conf] -                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -                case eor of
[opt-env-conf] -                  Just a -> do
[opt-env-conf] -                    debug ["Left side succeeded."]
[opt-env-conf] -                    pure a
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["Left side failed, trying right side."]
[opt-env-conf] -                    ppIndent $ go p2
[opt-env-conf] +            ParserAlt p1 p2 -> do
[opt-env-conf] +              debug [syntaxChunk "Alt"]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                debug ["Trying left side."]
[opt-env-conf] +                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] +                case eor of
[opt-env-conf] +                  Just a -> do
[opt-env-conf] +                    debug ["Left side succeeded."]
[opt-env-conf] +                    pure a
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["Left side failed, trying right side."]
[opt-env-conf] +                    ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,7 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,7 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf] @@ -554,7 +554,8 @@
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Many", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
[opt-env-conf] @@ -553,9 +553,9 @@
[opt-env-conf]                    Nothing -> do
[opt-env-conf]                      debug ["Left side failed, trying right side."]
[opt-env-conf]                      ppIndent $ go p2
[opt-env-conf] -            ParserMany mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserMany mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,7 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,7 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf] @@ -557,7 +557,8 @@
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Some", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
[opt-env-conf] @@ -556,9 +556,9 @@
[opt-env-conf]              ParserMany mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserSome mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserSome mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,7 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,7 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf] @@ -560,7 +560,8 @@
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
[opt-env-conf] @@ -559,9 +559,9 @@
[opt-env-conf]              ParserSome mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserAllOrNothing mLoc p' -> do
[opt-env-conf] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,7 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf] @@ -563,7 +563,8 @@
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
[opt-env-conf] @@ -562,9 +562,9 @@
[opt-env-conf]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ go p'
[opt-env-conf] +            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug []
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,7 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf] @@ -566,7 +566,8 @@
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": "
[opt-env-conf] +]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mNewConfig <- go pc
[opt-env-conf]                  mRes <- go pa
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
[opt-env-conf] @@ -565,12 +565,12 @@
[opt-env-conf]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                ppIndent $ go p'
[opt-env-conf] -            ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -              ppIndent $ do
[opt-env-conf] -                mNewConfig <- go pc
[opt-env-conf] -                mRes <- go pa
[opt-env-conf] -                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf] +            ParserWithConfig mLoc pc pa -> do
[opt-env-conf] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +              ppIndent $ do
[opt-env-conf] +                mNewConfig <- go pc
[opt-env-conf] +                mRes <- go pa
[opt-env-conf] +                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf]              ParserSetting mLoc _ -> do
[opt-env-conf]                debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf]                pure Nothing
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf] @@ -591,9 +591,9 @@
[opt-env-conf]                        Just c -> do
[opt-env-conf]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf] @@ -591,9 +591,9 @@
[opt-env-conf]                        Just c -> do
[opt-env-conf]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf] @@ -584,16 +584,16 @@
[opt-env-conf]                      debug ["No argument found for choosing a command."]
[opt-env-conf]                      pure Nothing
[opt-env-conf]                    Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf] @@ -584,16 +584,16 @@
[opt-env-conf]                      debug ["No argument found for choosing a command."]
[opt-env-conf]                      pure Nothing
[opt-env-conf]                    Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf] @@ -579,21 +579,21 @@
[opt-env-conf]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["No argument found for choosing a command."]
[opt-env-conf] -                    pure Nothing
[opt-env-conf] -                  Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["No argument found for choosing a command."]
[opt-env-conf] +                    pure Nothing
[opt-env-conf] +                  Just s -> do
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf] @@ -579,21 +579,21 @@
[opt-env-conf]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf]                ppIndent $ do
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["No argument found for choosing a command."]
[opt-env-conf] -                    pure Nothing
[opt-env-conf] -                  Just s -> do
[opt-env-conf] -                    case find ((== s) . commandArg) cs of
[opt-env-conf] -                      Nothing -> do
[opt-env-conf] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] -                        pure Nothing
[opt-env-conf] -                      Just c -> do
[opt-env-conf] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] -                        pure $ case mRes of
[opt-env-conf] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] -                          Just res -> pure res
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["No argument found for choosing a command."]
[opt-env-conf] +                    pure Nothing
[opt-env-conf] +                  Just s -> do
[opt-env-conf] +                    case find ((== s) . commandArg) cs of
[opt-env-conf] +                      Nothing -> do
[opt-env-conf] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf] +                        pure Nothing
[opt-env-conf] +                      Just c -> do
[opt-env-conf] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf] +                        pure $ case mRes of
[opt-env-conf] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf] +                          Just res -> pure res
[opt-env-conf]  
[opt-env-conf]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf]    deriving
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf] @@ -487,9 +487,9 @@
[opt-env-conf]        Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf] -      (r : rl) -> case runReader r s of
[opt-env-conf] -        Left err -> go' (err <| errs) rl
[opt-env-conf] -        Right a -> Right a
[opt-env-conf] +      (r : rl) -> case runReader r s of
[opt-env-conf] +        Left err -> go' (err <| errs) rl
[opt-env-conf] +        Right a -> Right a
[opt-env-conf]  
[opt-env-conf]  runHelpParser ::
[opt-env-conf]    -- DebugMode
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf] @@ -487,9 +487,9 @@
[opt-env-conf]        Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf] -      (r : rl) -> case runReader r s of
[opt-env-conf] -        Left err -> go' (err <| errs) rl
[opt-env-conf] -        Right a -> Right a
[opt-env-conf] +      (r : rl) -> case runReader r s of
[opt-env-conf] +        Left err -> go' (err <| errs) rl
[opt-env-conf] +        Right a -> Right a
[opt-env-conf]  
[opt-env-conf]  runHelpParser ::
[opt-env-conf]    -- DebugMode
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf]    where
[opt-env-conf] -    go (r :| rl) = case runReader r s of
[opt-env-conf] -      Left err -> go' (err :| []) rl
[opt-env-conf] -      Right a -> Right a
[opt-env-conf] +    go (r :| rl) = case runReader r s of
[opt-env-conf] +      Left err -> go' (err :| []) rl
[opt-env-conf] +      Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf]        (r : rl) -> case runReader r s of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf] @@ -482,9 +482,9 @@
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf]    where
[opt-env-conf] -    go (r :| rl) = case runReader r s of
[opt-env-conf] -      Left err -> go' (err :| []) rl
[opt-env-conf] -      Right a -> Right a
[opt-env-conf] +    go (r :| rl) = case runReader r s of
[opt-env-conf] +      Left err -> go' (err :| []) rl
[opt-env-conf] +      Right a -> Right a
[opt-env-conf]      go' errs = \case
[opt-env-conf]        [] -> Left errs
[opt-env-conf]        (r : rl) -> case runReader r s of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf] @@ -474,9 +474,9 @@
[opt-env-conf]    | Found a
[opt-env-conf]  
[opt-env-conf]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] -  Just ne -> pure ne
[opt-env-conf] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] +  Just ne -> pure ne
[opt-env-conf]  
[opt-env-conf]  -- Try the readers in order
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf] @@ -474,9 +474,9 @@
[opt-env-conf]    | Found a
[opt-env-conf]  
[opt-env-conf]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] -  Just ne -> pure ne
[opt-env-conf] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf] +  Just ne -> pure ne
[opt-env-conf]  
[opt-env-conf]  -- Try the readers in order
[opt-env-conf]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
[opt-env-conf] @@ -461,11 +461,11 @@
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf]    case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf]      Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf] @@ -460,13 +460,13 @@
[opt-env-conf]    PP a ->
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] -    Nothing -> func
[opt-env-conf] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf]    = NotRun
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf] @@ -460,13 +460,13 @@
[opt-env-conf]    PP a ->
[opt-env-conf]    PP a
[opt-env-conf]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] -    Just missings -> do
[opt-env-conf] -      debug $
[opt-env-conf] -        "Missing capabilities: "
[opt-env-conf] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] -    Nothing -> func
[opt-env-conf] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf] +    Just missings -> do
[opt-env-conf] +      debug $
[opt-env-conf] +        "Missing capabilities: "
[opt-env-conf] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf] +    Nothing -> func
[opt-env-conf]  
[opt-env-conf]  data ParseResult a
[opt-env-conf]    = NotRun
[opt-env-conf] added mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
[opt-env-conf] @@ -72,7 +72,7 @@
[opt-env-conf]            { ppEnvEnv = envVars,
[opt-env-conf]              ppEnvConf = mConfig,
[opt-env-conf]              ppEnvDebug = mDebugMode,
[opt-env-conf] -            ppEnvIndent = 0
[opt-env-conf] +            ppEnvIndent = 1
[opt-env-conf]            }
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf]          leftoverArgs <- gets ppStateArgs
[opt-env-conf] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf] -          Nothing -> pure result
[opt-env-conf] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf] +          Nothing -> pure result
[opt-env-conf] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf] @@ -77,9 +77,9 @@
[opt-env-conf]    let go' = do
[opt-env-conf]          result <- go parser
[opt-env-conf]          leftoverArgs <- gets ppStateArgs
[opt-env-conf] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf] -          Nothing -> pure result
[opt-env-conf] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf] +          Nothing -> pure result
[opt-env-conf] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf] @@ -94,9 +94,9 @@
[opt-env-conf]                    pure $
[opt-env-conf]                      Left $
[opt-env-conf]                        -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf]                    Success a -> pure (Right a)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf] @@ -94,9 +94,9 @@
[opt-env-conf]                    pure $
[opt-env-conf]                      Left $
[opt-env-conf]                        -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf]                    Success a -> pure (Right a)
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf] @@ -98,9 +98,9 @@
[opt-env-conf]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf]                              Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf] @@ -98,9 +98,9 @@
[opt-env-conf]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf]                              Just _ -> id
[opt-env-conf]                         in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf] @@ -89,18 +89,18 @@
[opt-env-conf]          let goNexts ns = do
[opt-env-conf]                -- TODO: Consider keeping around all errors?
[opt-env-conf]                mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf] @@ -89,18 +89,18 @@
[opt-env-conf]          let goNexts ns = do
[opt-env-conf]                -- TODO: Consider keeping around all errors?
[opt-env-conf]                mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf]           in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf] @@ -83,25 +83,25 @@
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf] @@ -83,25 +83,25 @@
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf]    case mTup of
[opt-env-conf]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf] @@ -81,27 +81,27 @@
[opt-env-conf]            Nothing -> pure result
[opt-env-conf]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf] -  case mTup of
[opt-env-conf] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +  case mTup of
[opt-env-conf] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf] @@ -81,27 +81,27 @@
[opt-env-conf]            Nothing -> pure result
[opt-env-conf]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf] -  case mTup of
[opt-env-conf] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] -      Success a -> pure (Right a)
[opt-env-conf] -      Failure firstErrors ->
[opt-env-conf] -        let goNexts ns = do
[opt-env-conf] -              -- TODO: Consider keeping around all errors?
[opt-env-conf] -              mNext <- runNonDetTLazy ns
[opt-env-conf] -              case mNext of
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  pure $
[opt-env-conf] -                    Left $
[opt-env-conf] -                      -- Only show source locations in debug mode.
[opt-env-conf] -                      let f = case mDebugMode of
[opt-env-conf] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] -                            Just _ -> id
[opt-env-conf] -                       in f firstErrors
[opt-env-conf] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] -                  Success a -> pure (Right a)
[opt-env-conf] -                  Failure _ -> goNexts ns'
[opt-env-conf] -         in goNexts nexts
[opt-env-conf] +  case mTup of
[opt-env-conf] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf] +      Success a -> pure (Right a)
[opt-env-conf] +      Failure firstErrors ->
[opt-env-conf] +        let goNexts ns = do
[opt-env-conf] +              -- TODO: Consider keeping around all errors?
[opt-env-conf] +              mNext <- runNonDetTLazy ns
[opt-env-conf] +              case mNext of
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  pure $
[opt-env-conf] +                    Left $
[opt-env-conf] +                      -- Only show source locations in debug mode.
[opt-env-conf] +                      let f = case mDebugMode of
[opt-env-conf] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf] +                            Just _ -> id
[opt-env-conf] +                       in f firstErrors
[opt-env-conf] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf] +                  Success a -> pure (Right a)
[opt-env-conf] +                  Failure _ -> goNexts ns'
[opt-env-conf] +         in goNexts nexts
[opt-env-conf]    where
[opt-env-conf]      go ::
[opt-env-conf]        Parser a ->
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
[opt-env-conf] @@ -110,9 +110,9 @@
[opt-env-conf]        ParserPure a -> do
[opt-env-conf]          debug [syntaxChunk "pure value"]
[opt-env-conf]          pure a
[opt-env-conf] -      ParserAp ff fa -> do
[opt-env-conf] -        debug [syntaxChunk "Ap"]
[opt-env-conf] -        ppIndent $ go ff <*> go fa
[opt-env-conf] +      ParserAp ff fa -> do
[opt-env-conf] +        debug [syntaxChunk "Ap"]
[opt-env-conf] +        ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,7 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf] @@ -114,7 +114,8 @@
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Empty", ": "
[opt-env-conf] +]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
[opt-env-conf] @@ -113,9 +113,9 @@
[opt-env-conf]        ParserAp ff fa -> do
[opt-env-conf]          debug [syntaxChunk "Ap"]
[opt-env-conf]          ppIndent $ go ff <*> go fa
[opt-env-conf] -      ParserEmpty mLoc -> do
[opt-env-conf] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppError mLoc ParseErrorEmpty
[opt-env-conf] +      ParserEmpty mLoc -> do
[opt-env-conf] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppError mLoc ParseErrorEmpty
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf]          ppIndent $ select (go fe) (go ff)
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
[opt-env-conf] @@ -116,9 +116,9 @@
[opt-env-conf]        ParserEmpty mLoc -> do
[opt-env-conf]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppError mLoc ParseErrorEmpty
[opt-env-conf] -      ParserSelect fe ff -> do
[opt-env-conf] -        debug [syntaxChunk "Select"]
[opt-env-conf] -        ppIndent $ select (go fe) (go ff)
[opt-env-conf] +      ParserSelect fe ff -> do
[opt-env-conf] +        debug [syntaxChunk "Select"]
[opt-env-conf] +        ppIndent $ select (go fe) (go ff)
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          debug [syntaxChunk "Alt"]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
[opt-env-conf] @@ -128,9 +128,9 @@
[opt-env-conf]              Just a -> do
[opt-env-conf]                debug ["Left side succeeded."]
[opt-env-conf]                pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf] @@ -124,13 +124,13 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["Trying left side."]
[opt-env-conf]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf] @@ -124,13 +124,13 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["Trying left side."]
[opt-env-conf]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
[opt-env-conf] @@ -119,18 +119,18 @@
[opt-env-conf]        ParserSelect fe ff -> do
[opt-env-conf]          debug [syntaxChunk "Select"]
[opt-env-conf]          ppIndent $ select (go fe) (go ff)
[opt-env-conf] -      ParserAlt p1 p2 -> do
[opt-env-conf] -        debug [syntaxChunk "Alt"]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          debug ["Trying left side."]
[opt-env-conf] -          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] -          case eor of
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              debug ["Left side succeeded."]
[opt-env-conf] -              pure a
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["Left side failed, trying right side."]
[opt-env-conf] -              ppIndent $ go p2
[opt-env-conf] +      ParserAlt p1 p2 -> do
[opt-env-conf] +        debug [syntaxChunk "Alt"]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          debug ["Trying left side."]
[opt-env-conf] +          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              debug ["Left side succeeded."]
[opt-env-conf] +              pure a
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["Left side failed, trying right side."]
[opt-env-conf] +              ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,7 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,7 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf] @@ -132,7 +132,8 @@
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf]        ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Many", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf]            case eor of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf] @@ -135,11 +135,11 @@
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf] @@ -135,11 +135,11 @@
[opt-env-conf]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
[opt-env-conf] @@ -131,15 +131,15 @@
[opt-env-conf]              Nothing -> do
[opt-env-conf]                debug ["Left side failed, trying right side."]
[opt-env-conf]                ppIndent $ go p2
[opt-env-conf] -      ParserMany mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          eor <- tryPP $ go p'
[opt-env-conf] -          case eor of
[opt-env-conf] -            Nothing -> pure []
[opt-env-conf] -            Just a -> do
[opt-env-conf] -              as <- go (ParserMany mLoc p')
[opt-env-conf] -              pure (a : as)
[opt-env-conf] +      ParserMany mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          eor <- tryPP $ go p'
[opt-env-conf] +          case eor of
[opt-env-conf] +            Nothing -> pure []
[opt-env-conf] +            Just a -> do
[opt-env-conf] +              as <- go (ParserMany mLoc p')
[opt-env-conf] +              pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,7 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf] @@ -141,7 +141,8 @@
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf]        ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "Some", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            a <- go p'
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
[opt-env-conf] @@ -140,13 +140,13 @@
[opt-env-conf]              Just a -> do
[opt-env-conf]                as <- go (ParserMany mLoc p')
[opt-env-conf]                pure (a : as)
[opt-env-conf] -      ParserSome mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          a <- go p'
[opt-env-conf] -          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] -          as <- go (ParserMany mLoc p')
[opt-env-conf] -          pure (a :| as)
[opt-env-conf] +      ParserSome mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          a <- go p'
[opt-env-conf] +          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf] +          as <- go (ParserMany mLoc p')
[opt-env-conf] +          pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,7 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,7 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf] @@ -148,7 +148,8 @@
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            e <- ask
[opt-env-conf]            s <- get
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ True
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ False
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not $ not (all errorIsForgivable errs)
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if True
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if False
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] +              if not (not $ all errorIsForgivable errs)
[opt-env-conf]                  then ppErrors' errs
[opt-env-conf]                  else do
[opt-env-conf]                    -- Settings available below
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if True
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if False
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] +                  if not (null parsedSettingsMap)
[opt-env-conf]                      then ppErrors' errs
[opt-env-conf]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:175:19-112
[opt-env-conf] @@ -172,9 +172,9 @@
[opt-env-conf]                    -- with only forgivable errors
[opt-env-conf]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf]                    -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:161:15-112
[opt-env-conf] @@ -158,23 +158,23 @@
[opt-env-conf]            case result of
[opt-env-conf]              Success a -> pure a
[opt-env-conf]              Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf] @@ -155,26 +155,26 @@
[opt-env-conf]            results <- liftIO $ runPP (go p') s e
[opt-env-conf]            (result, s') <- ppNonDetList results
[opt-env-conf]            put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf] @@ -155,26 +155,26 @@
[opt-env-conf]            results <- liftIO $ runPP (go p') s e
[opt-env-conf]            (result, s') <- ppNonDetList results
[opt-env-conf]            put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
[opt-env-conf] @@ -149,32 +149,32 @@
[opt-env-conf]            pure (a :| as)
[opt-env-conf]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          e <- ask
[opt-env-conf] -          s <- get
[opt-env-conf] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf] -          (result, s') <- ppNonDetList results
[opt-env-conf] -          put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          e <- ask
[opt-env-conf] +          s <- get
[opt-env-conf] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf] +          (result, s') <- ppNonDetList results
[opt-env-conf] +          put s'
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
[opt-env-conf] @@ -147,34 +147,34 @@
[opt-env-conf]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf]            as <- go (ParserMany mLoc p')
[opt-env-conf]            pure (a :| as)
[opt-env-conf] -      ParserAllOrNothing mLoc p' -> do
[opt-env-conf] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          e <- ask
[opt-env-conf] -          s <- get
[opt-env-conf] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf] -          (result, s') <- ppNonDetList results
[opt-env-conf] -          put s'
[opt-env-conf] -          case result of
[opt-env-conf] -            Success a -> pure a
[opt-env-conf] -            Failure errs -> do
[opt-env-conf] -              if not $ all errorIsForgivable errs
[opt-env-conf] -                then ppErrors' errs
[opt-env-conf] -                else do
[opt-env-conf] -                  -- Settings available below
[opt-env-conf] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf] -                  -- Settings that have been parsed
[opt-env-conf] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] -                  -- Settings that have been parsed below
[opt-env-conf] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf] -                  -- with only forgivable errors
[opt-env-conf] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] -                  -- then this should be an unforgivable error.
[opt-env-conf] -                  if null parsedSettingsMap
[opt-env-conf] -                    then ppErrors' errs
[opt-env-conf] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf] +      ParserAllOrNothing mLoc p' -> do
[opt-env-conf] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          e <- ask
[opt-env-conf] +          s <- get
[opt-env-conf] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf] +          (result, s') <- ppNonDetList results
[opt-env-conf] +          put s'
[opt-env-conf] +          case result of
[opt-env-conf] +            Success a -> pure a
[opt-env-conf] +            Failure errs -> do
[opt-env-conf] +              if not $ all errorIsForgivable errs
[opt-env-conf] +                then ppErrors' errs
[opt-env-conf] +                else do
[opt-env-conf] +                  -- Settings available below
[opt-env-conf] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf] +                  -- Settings that have been parsed
[opt-env-conf] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf] +                  -- Settings that have been parsed below
[opt-env-conf] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf] +                  -- with only forgivable errors
[opt-env-conf] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf] +                  -- then this should be an unforgivable error.
[opt-env-conf] +                  if null parsedSettingsMap
[opt-env-conf] +                    then ppErrors' errs
[opt-env-conf] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show True]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug []
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf] @@ -193,7 +193,7 @@
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed True err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed False err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf] @@ -194,7 +194,7 @@
[opt-env-conf]                case errOrB of
[opt-env-conf]                  Left err -> do
[opt-env-conf]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
[opt-env-conf] @@ -192,9 +192,9 @@
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf]                case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf]                  Right b -> do
[opt-env-conf]                    debug ["succeeded"]
[opt-env-conf]                    pure b
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf] @@ -191,13 +191,13 @@
[opt-env-conf]            ppIndent $
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf] -              case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] -                Right b -> do
[opt-env-conf] -                  debug ["succeeded"]
[opt-env-conf] -                  pure b
[opt-env-conf] +              case errOrB of
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Right b -> do
[opt-env-conf] +                  debug ["succeeded"]
[opt-env-conf] +                  pure b
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf] @@ -191,13 +191,13 @@
[opt-env-conf]            ppIndent $
[opt-env-conf]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf]                errOrB <- liftIO $ f a
[opt-env-conf] -              case errOrB of
[opt-env-conf] -                Left err -> do
[opt-env-conf] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] -                Right b -> do
[opt-env-conf] -                  debug ["succeeded"]
[opt-env-conf] -                  pure b
[opt-env-conf] +              case errOrB of
[opt-env-conf] +                Left err -> do
[opt-env-conf] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf] +                Right b -> do
[opt-env-conf] +                  debug ["succeeded"]
[opt-env-conf] +                  pure b
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf]                  Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  debug []
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf] @@ -213,7 +213,7 @@
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf]                  Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
[opt-env-conf] @@ -212,9 +212,9 @@
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf]                case mDefaultCommand of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf] @@ -210,11 +210,11 @@
[opt-env-conf]                let mDefaultCommand = do
[opt-env-conf]                      d <- mDefault
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf] @@ -210,11 +210,11 @@
[opt-env-conf]                let mDefaultCommand = do
[opt-env-conf]                      d <- mDefault
[opt-env-conf]                      find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf] @@ -219,7 +219,7 @@
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf]                  Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  debug []
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf] @@ -219,7 +219,7 @@
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf]                  Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
[opt-env-conf] @@ -218,9 +218,9 @@
[opt-env-conf]              Just s -> do
[opt-env-conf]                case find ((== s) . commandArg) cs of
[opt-env-conf]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf] @@ -216,11 +216,11 @@
[opt-env-conf]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf] @@ -216,11 +216,11 @@
[opt-env-conf]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf]                    go $ commandParser dc
[opt-env-conf]              Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf] @@ -204,23 +204,23 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            mS <- ppArg
[opt-env-conf]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf] -          case mS of
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["No argument found for choosing a command."]
[opt-env-conf] -              let mDefaultCommand = do
[opt-env-conf] -                    d <- mDefault
[opt-env-conf] -                    find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] -            Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +          case mS of
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["No argument found for choosing a command."]
[opt-env-conf] +              let mDefaultCommand = do
[opt-env-conf] +                    d <- mDefault
[opt-env-conf] +                    find ((== d) . commandArg) cs
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf] +            Just s -> do
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf] @@ -204,23 +204,23 @@
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            mS <- ppArg
[opt-env-conf]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf] -          case mS of
[opt-env-conf] -            Nothing -> do
[opt-env-conf] -              debug ["No argument found for choosing a command."]
[opt-env-conf] -              let mDefaultCommand = do
[opt-env-conf] -                    d <- mDefault
[opt-env-conf] -                    find ((== d) . commandArg) cs
[opt-env-conf] -              case mDefaultCommand of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] -                Just dc -> do
[opt-env-conf] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] -                  go $ commandParser dc
[opt-env-conf] -            Just s -> do
[opt-env-conf] -              case find ((== s) . commandArg) cs of
[opt-env-conf] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] -                Just c -> do
[opt-env-conf] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] -                  go $ commandParser c
[opt-env-conf] +          case mS of
[opt-env-conf] +            Nothing -> do
[opt-env-conf] +              debug ["No argument found for choosing a command."]
[opt-env-conf] +              let mDefaultCommand = do
[opt-env-conf] +                    d <- mDefault
[opt-env-conf] +                    find ((== d) . commandArg) cs
[opt-env-conf] +              case mDefaultCommand of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf] +                Just dc -> do
[opt-env-conf] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf] +                  go $ commandParser dc
[opt-env-conf] +            Just s -> do
[opt-env-conf] +              case find ((== s) . commandArg) cs of
[opt-env-conf] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf] +                Just c -> do
[opt-env-conf] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf] +                  go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug []
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,7 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf] @@ -222,7 +222,8 @@
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": "
[opt-env-conf] +]
[opt-env-conf]          ppIndent $ do
[opt-env-conf]            debug ["loading config"]
[opt-env-conf]            mNewConfig <- ppIndent $ go pc
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
[opt-env-conf] @@ -221,15 +221,15 @@
[opt-env-conf]                  Just c -> do
[opt-env-conf]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf]                    go $ commandParser c
[opt-env-conf] -      ParserWithConfig mLoc pc pa -> do
[opt-env-conf] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] -        ppIndent $ do
[opt-env-conf] -          debug ["loading config"]
[opt-env-conf] -          mNewConfig <- ppIndent $ go pc
[opt-env-conf] -          debug ["with loaded config"]
[opt-env-conf] -          ppIndent $
[opt-env-conf] -            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf] -              go pa
[opt-env-conf] +      ParserWithConfig mLoc pc pa -> do
[opt-env-conf] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf] +        ppIndent $ do
[opt-env-conf] +          debug ["loading config"]
[opt-env-conf] +          mNewConfig <- ppIndent $ go pc
[opt-env-conf] +          debug ["with loaded config"]
[opt-env-conf] +          ppIndent $
[opt-env-conf] +            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf] +              go pa
[opt-env-conf]        ParserSetting mLoc set@Setting {..} -> do
[opt-env-conf]          debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf]          when (not (Set.null settingRequiredCapabilities)) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if True
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if False
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf] @@ -259,7 +259,7 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] +            if not (settingTryArgument)
[opt-env-conf]                then do
[opt-env-conf]                  -- Require readers before finding the argument so the parser
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf] @@ -270,14 +270,14 @@
[opt-env-conf]                      debug ["could not set based on argument: no argument"]
[opt-env-conf]                      pure NotFound
[opt-env-conf]                    Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf] @@ -270,14 +270,14 @@
[opt-env-conf]                      debug ["could not set based on argument: no argument"]
[opt-env-conf]                      pure NotFound
[opt-env-conf]                    Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf] @@ -265,19 +265,19 @@
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf]                  rs <- requireReaders settingReaders
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf] @@ -265,19 +265,19 @@
[opt-env-conf]                  -- always fails if it's missing a reader.
[opt-env-conf]                  rs <- requireReaders settingReaders
[opt-env-conf]                  mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:262:13-31
[opt-env-conf] @@ -259,26 +259,26 @@
[opt-env-conf]                    mLoc
[opt-env-conf]            let mOptDoc = settingOptDoc set
[opt-env-conf]            mArg <-
[opt-env-conf] -            if settingTryArgument
[opt-env-conf] -              then do
[opt-env-conf] -                -- Require readers before finding the argument so the parser
[opt-env-conf] -                -- always fails if it's missing a reader.
[opt-env-conf] -                rs <- requireReaders settingReaders
[opt-env-conf] -                mS <- ppArg
[opt-env-conf] -                case mS of
[opt-env-conf] -                  Nothing -> do
[opt-env-conf] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf] -                    pure NotFound
[opt-env-conf] -                  Just argStr -> cap $
[opt-env-conf] -                    case tryReaders rs argStr of
[opt-env-conf] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] -                      Right a -> do
[opt-env-conf] -                        debug
[opt-env-conf] -                          [ "set based on argument: ",
[opt-env-conf] -                            chunk $ T.pack $ show argStr
[opt-env-conf] -                          ]
[opt-env-conf] -                        pure $ Found a
[opt-env-conf] -              else pure NotRun
[opt-env-conf] +            if settingTryArgument
[opt-env-conf] +              then do
[opt-env-conf] +                -- Require readers before finding the argument so the parser
[opt-env-conf] +                -- always fails if it's missing a reader.
[opt-env-conf] +                rs <- requireReaders settingReaders
[opt-env-conf] +                mS <- ppArg
[opt-env-conf] +                case mS of
[opt-env-conf] +                  Nothing -> do
[opt-env-conf] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf] +                    pure NotFound
[opt-env-conf] +                  Just argStr -> cap $
[opt-env-conf] +                    case tryReaders rs argStr of
[opt-env-conf] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf] +                      Right a -> do
[opt-env-conf] +                        debug
[opt-env-conf] +                          [ "set based on argument: ",
[opt-env-conf] +                            chunk $ T.pack $ show argStr
[opt-env-conf] +                          ]
[opt-env-conf] +                        pure $ Found a
[opt-env-conf] +              else pure NotRun
[opt-env-conf]  
[opt-env-conf]            case mArg of
[opt-env-conf]              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf] @@ -289,16 +289,16 @@
[opt-env-conf]                  Nothing -> pure NotRun
[opt-env-conf]                  Just a -> do
[opt-env-conf]                    mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf] @@ -289,16 +289,16 @@
[opt-env-conf]                  Nothing -> pure NotRun
[opt-env-conf]                  Just a -> do
[opt-env-conf]                    mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf] @@ -285,20 +285,20 @@
[opt-env-conf]                markParsed
[opt-env-conf]                pure a
[opt-env-conf]              _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf] @@ -285,20 +285,20 @@
[opt-env-conf]                markParsed
[opt-env-conf]                pure a
[opt-env-conf]              _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf]  
[opt-env-conf]                case mSwitch of
[opt-env-conf]                  Found a -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if True
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if False
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation Negate at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf] @@ -306,7 +306,7 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] +                    if not (settingTryOption)
[opt-env-conf]                        then do
[opt-env-conf]                          -- Require readers before finding the option so the parser
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf] @@ -320,14 +320,14 @@
[opt-env-conf]                                ]
[opt-env-conf]                              pure NotFound
[opt-env-conf]                            Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf] @@ -320,14 +320,14 @@
[opt-env-conf]                                ]
[opt-env-conf]                              pure NotFound
[opt-env-conf]                            Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf] @@ -312,22 +312,22 @@
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf]                          rs <- requireReaders settingReaders
[opt-env-conf]                          mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf] @@ -312,22 +312,22 @@
[opt-env-conf]                          -- always fails if it's missing a reader.
[opt-env-conf]                          rs <- requireReaders settingReaders
[opt-env-conf]                          mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Run.hs:309:21-39
[opt-env-conf] @@ -306,29 +306,29 @@
[opt-env-conf]                    pure a
[opt-env-conf]                  _ -> do
[opt-env-conf]                    mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf]  
[opt-env-conf]                    case mOpt of
[opt-env-conf]                      Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf] @@ -349,14 +349,14 @@
[opt-env-conf]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf]                            -- result.
[opt-env-conf]                            results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf]                            case listToMaybe results of
[opt-env-conf]                              Nothing -> do
[opt-env-conf]                                debug
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf] @@ -349,14 +349,14 @@
[opt-env-conf]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf]                            -- result.
[opt-env-conf]                            results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf]                            case listToMaybe results of
[opt-env-conf]                              Nothing -> do
[opt-env-conf]                                debug
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf] @@ -357,14 +357,14 @@
[opt-env-conf]                                      chunk $ T.pack $ show varStr
[opt-env-conf]                                    ]
[opt-env-conf]                                  pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf] @@ -357,14 +357,14 @@
[opt-env-conf]                                      chunk $ T.pack $ show varStr
[opt-env-conf]                                    ]
[opt-env-conf]                                  pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf] @@ -336,35 +336,35 @@
[opt-env-conf]                        pure a
[opt-env-conf]                      _ -> do
[opt-env-conf]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf] @@ -336,35 +336,35 @@
[opt-env-conf]                        pure a
[opt-env-conf]                      _ -> do
[opt-env-conf]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf]                        case mEnv of
[opt-env-conf]                          Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf] @@ -385,9 +385,9 @@
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf]                                                Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf]                                                  case mO' of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf] @@ -385,9 +385,9 @@
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf]                                                Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf]                                                  case mO' of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf] @@ -390,9 +390,9 @@
[opt-env-conf]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf] @@ -390,9 +390,9 @@
[opt-env-conf]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf]                                                Just neRest -> do
[opt-env-conf]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf] @@ -383,16 +383,16 @@
[opt-env-conf]                                  Just obj -> do
[opt-env-conf]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf] @@ -383,16 +383,16 @@
[opt-env-conf]                                  Just obj -> do
[opt-env-conf]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf]                                            Right mV -> case mV of
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf] @@ -404,19 +404,19 @@
[opt-env-conf]                                                pure Nothing
[opt-env-conf]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf] @@ -404,19 +404,19 @@
[opt-env-conf]                                                pure Nothing
[opt-env-conf]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf] @@ -402,21 +402,21 @@
[opt-env-conf]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf]                                                  ]
[opt-env-conf]                                                pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf] @@ -402,21 +402,21 @@
[opt-env-conf]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf]                                                  ]
[opt-env-conf]                                                pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf] @@ -395,28 +395,28 @@
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf] @@ -395,28 +395,28 @@
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf] @@ -393,30 +393,30 @@
[opt-env-conf]                                                  case mO' of
[opt-env-conf]                                                    Nothing -> pure Nothing
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf] @@ -393,30 +393,30 @@
[opt-env-conf]                                                  case mO' of
[opt-env-conf]                                                    Nothing -> pure Nothing
[opt-env-conf]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf] @@ -424,9 +424,9 @@
[opt-env-conf]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf]                                          Just ne -> do
[opt-env-conf]                                            res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf] @@ -424,9 +424,9 @@
[opt-env-conf]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf]                                          Just ne -> do
[opt-env-conf]                                            res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf] @@ -420,13 +420,13 @@
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf] @@ -420,13 +420,13 @@
[opt-env-conf]                                    let toRes = \case
[opt-env-conf]                                          Nothing -> NotFound
[opt-env-conf]                                          Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf] @@ -376,58 +376,58 @@
[opt-env-conf]                              Nothing -> pure NotRun
[opt-env-conf]                              Just confSets -> do
[opt-env-conf]                                mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf] @@ -376,58 +376,58 @@
[opt-env-conf]                              Nothing -> pure NotRun
[opt-env-conf]                              Just confSets -> do
[opt-env-conf]                                mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf] @@ -372,62 +372,62 @@
[opt-env-conf]                            pure a
[opt-env-conf]                          _ -> do
[opt-env-conf]                            let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf] @@ -372,62 +372,62 @@
[opt-env-conf]                            pure a
[opt-env-conf]                          _ -> do
[opt-env-conf]                            let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf]                            case mConf of
[opt-env-conf]                              Found a -> do
[opt-env-conf]                                markParsed
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf] @@ -438,10 +438,10 @@
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf]                                  Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf]                                    debug ["not found"]
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,7 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        []
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,12 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf] @@ -446,12 +446,12 @@
[opt-env-conf]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf]                                      NE.nonEmpty $
[opt-env-conf]                                        catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
[opt-env-conf] @@ -437,21 +437,21 @@
[opt-env-conf]                                  Just (a, _) -> do
[opt-env-conf]                                    debug ["set to default value"]
[opt-env-conf]                                    pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf] @@ -433,25 +433,25 @@
[opt-env-conf]                                markParsed
[opt-env-conf]                                pure a
[opt-env-conf]                              _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf] @@ -433,25 +433,25 @@
[opt-env-conf]                                markParsed
[opt-env-conf]                                pure a
[opt-env-conf]                              _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf] @@ -428,30 +428,30 @@
[opt-env-conf]                                              Just a -> pure $ Found a
[opt-env-conf]                                              Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf] @@ -428,30 +428,30 @@
[opt-env-conf]                                              Just a -> pure $ Found a
[opt-env-conf]                                              Nothing -> goConfSets ne
[opt-env-conf]                                    goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf] @@ -366,92 +366,92 @@
[opt-env-conf]                                pure NotFound
[opt-env-conf]                              Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf] @@ -366,92 +366,92 @@
[opt-env-conf]                                pure NotFound
[opt-env-conf]                              Just a -> pure $ Found a
[opt-env-conf]  
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf] @@ -330,128 +330,128 @@
[opt-env-conf]                                  pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf] @@ -330,128 +330,128 @@
[opt-env-conf]                                  pure $ Found a
[opt-env-conf]                        else pure NotRun
[opt-env-conf]  
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf] @@ -300,158 +300,158 @@
[opt-env-conf]                        debug ["set based on switch."]
[opt-env-conf]                        pure $ Found a
[opt-env-conf]  
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf] @@ -300,158 +300,158 @@
[opt-env-conf]                        debug ["set based on switch."]
[opt-env-conf]                        pure $ Found a
[opt-env-conf]  
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf] @@ -280,178 +280,178 @@
[opt-env-conf]                          pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf] -          case mArg of
[opt-env-conf] -            Found a -> do
[opt-env-conf] -              markParsed
[opt-env-conf] -              pure a
[opt-env-conf] -            _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] -
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +          case mArg of
[opt-env-conf] +            Found a -> do
[opt-env-conf] +              markParsed
[opt-env-conf] +              pure a
[opt-env-conf] +            _ -> do
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf] +
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf] @@ -280,178 +280,178 @@
[opt-env-conf]                          pure $ Found a
[opt-env-conf]                else pure NotRun
[opt-env-conf]  
[opt-env-conf] -          case mArg of
[opt-env-conf] -            Found a -> do
[opt-env-conf] -              markParsed
[opt-env-conf] -              pure a
[opt-env-conf] -            _ -> do
[opt-env-conf] -              mSwitch <- case settingSwitchValue of
[opt-env-conf] -                Nothing -> pure NotRun
[opt-env-conf] -                Just a -> do
[opt-env-conf] -                  mS <- ppSwitch settingDasheds
[opt-env-conf] -                  case mS of
[opt-env-conf] -                    Nothing -> do
[opt-env-conf] -                      debug
[opt-env-conf] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                        ]
[opt-env-conf] -                      pure NotFound
[opt-env-conf] -                    Just () -> cap $ do
[opt-env-conf] -                      debug ["set based on switch."]
[opt-env-conf] -                      pure $ Found a
[opt-env-conf] -
[opt-env-conf] -              case mSwitch of
[opt-env-conf] -                Found a -> do
[opt-env-conf] -                  markParsed
[opt-env-conf] -                  pure a
[opt-env-conf] -                _ -> do
[opt-env-conf] -                  mOpt <-
[opt-env-conf] -                    if settingTryOption
[opt-env-conf] -                      then do
[opt-env-conf] -                        -- Require readers before finding the option so the parser
[opt-env-conf] -                        -- always fails if it's missing a reader.
[opt-env-conf] -                        rs <- requireReaders settingReaders
[opt-env-conf] -                        mS <- ppOpt settingDasheds
[opt-env-conf] -                        case mS of
[opt-env-conf] -                          Nothing -> do
[opt-env-conf] -                            debug
[opt-env-conf] -                              [ "could not set based on options, no option: ",
[opt-env-conf] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] -                              ]
[opt-env-conf] -                            pure NotFound
[opt-env-conf] -                          Just optionStr -> cap $
[opt-env-conf] -                            case tryReaders rs optionStr of
[opt-env-conf] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on option: ",
[opt-env-conf] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure $ Found a
[opt-env-conf] -                      else pure NotRun
[opt-env-conf] -
[opt-env-conf] -                  case mOpt of
[opt-env-conf] -                    Found a -> do
[opt-env-conf] -                      markParsed
[opt-env-conf] -                      pure a
[opt-env-conf] -                    _ -> do
[opt-env-conf] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] -                        Nothing -> pure NotRun
[opt-env-conf] -                        Just ne -> do
[opt-env-conf] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf] -                          -- always fails if it's missing a reader.
[opt-env-conf] -                          rs <- requireReaders settingReaders
[opt-env-conf] -                          es <- asks ppEnvEnv
[opt-env-conf] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] -                          -- Run the parser on all specified env vars before
[opt-env-conf] -                          -- returning the first because we want to fail if any
[opt-env-conf] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] -                          -- result.
[opt-env-conf] -                          results <- for founds $ \varStr ->
[opt-env-conf] -                            case tryReaders rs varStr of
[opt-env-conf] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] -                              Right a -> do
[opt-env-conf] -                                debug
[opt-env-conf] -                                  [ "set based on env: ",
[opt-env-conf] -                                    chunk $ T.pack $ show varStr
[opt-env-conf] -                                  ]
[opt-env-conf] -                                pure a
[opt-env-conf] -                          case listToMaybe results of
[opt-env-conf] -                            Nothing -> do
[opt-env-conf] -                              debug
[opt-env-conf] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] -                                ]
[opt-env-conf] -                              pure NotFound
[opt-env-conf] -                            Just a -> pure $ Found a
[opt-env-conf] -
[opt-env-conf] -                      case mEnv of
[opt-env-conf] -                        Found a -> do
[opt-env-conf] -                          markParsed
[opt-env-conf] -                          pure a
[opt-env-conf] -                        _ -> do
[opt-env-conf] -                          let mConfDoc = settingConfDoc set
[opt-env-conf] -                          mConf <- case settingConfigVals of
[opt-env-conf] -                            Nothing -> pure NotRun
[opt-env-conf] -                            Just confSets -> do
[opt-env-conf] -                              mObj <- asks ppEnvConf
[opt-env-conf] -                              case mObj of
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  debug ["no config object to set from"]
[opt-env-conf] -                                  pure NotFound
[opt-env-conf] -                                Just obj -> do
[opt-env-conf] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                              Nothing -> do
[opt-env-conf] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] -                                              Just neRest -> do
[opt-env-conf] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf] -                                                case mO' of
[opt-env-conf] -                                                  Nothing -> pure Nothing
[opt-env-conf] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                          Right mV -> case mV of
[opt-env-conf] -                                            Nothing -> do
[opt-env-conf] -                                              debug
[opt-env-conf] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                ]
[opt-env-conf] -                                              pure Nothing
[opt-env-conf] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] -                                              Right mA -> case mA of
[opt-env-conf] -                                                Nothing -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure Nothing
[opt-env-conf] -                                                Just a -> do
[opt-env-conf] -                                                  debug
[opt-env-conf] -                                                    [ "set based on config value: ",
[opt-env-conf] -                                                      chunk $ T.pack $ show v
[opt-env-conf] -                                                    ]
[opt-env-conf] -                                                  pure $ Just a
[opt-env-conf] -                                  let toRes = \case
[opt-env-conf] -                                        Nothing -> NotFound
[opt-env-conf] -                                        Just a -> Found a
[opt-env-conf] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] -                                        Just ne -> do
[opt-env-conf] -                                          res <- goConfSet confSet
[opt-env-conf] -                                          case res of
[opt-env-conf] -                                            Just a -> pure $ Found a
[opt-env-conf] -                                            Nothing -> goConfSets ne
[opt-env-conf] -                                  goConfSets confSets
[opt-env-conf] -                          case mConf of
[opt-env-conf] -                            Found a -> do
[opt-env-conf] -                              markParsed
[opt-env-conf] -                              pure a
[opt-env-conf] -                            _ ->
[opt-env-conf] -                              case settingDefaultValue of
[opt-env-conf] -                                Just (a, _) -> do
[opt-env-conf] -                                  debug ["set to default value"]
[opt-env-conf] -                                  pure a -- Don't mark as parsed
[opt-env-conf] -                                Nothing -> do
[opt-env-conf] -                                  let parseResultError e res = case res of
[opt-env-conf] -                                        NotRun -> Nothing
[opt-env-conf] -                                        NotFound -> Just e
[opt-env-conf] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] -                                  debug ["not found"]
[opt-env-conf] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] -                                    NE.nonEmpty $
[opt-env-conf] -                                      catMaybes
[opt-env-conf] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] -                                        ]
[opt-env-conf] +          case mArg of
[opt-env-conf] +            Found a -> do
[opt-env-conf] +              markParsed
[opt-env-conf] +              pure a
[opt-env-conf] +            _ -> do
[opt-env-conf] +              mSwitch <- case settingSwitchValue of
[opt-env-conf] +                Nothing -> pure NotRun
[opt-env-conf] +                Just a -> do
[opt-env-conf] +                  mS <- ppSwitch settingDasheds
[opt-env-conf] +                  case mS of
[opt-env-conf] +                    Nothing -> do
[opt-env-conf] +                      debug
[opt-env-conf] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                        ]
[opt-env-conf] +                      pure NotFound
[opt-env-conf] +                    Just () -> cap $ do
[opt-env-conf] +                      debug ["set based on switch."]
[opt-env-conf] +                      pure $ Found a
[opt-env-conf] +
[opt-env-conf] +              case mSwitch of
[opt-env-conf] +                Found a -> do
[opt-env-conf] +                  markParsed
[opt-env-conf] +                  pure a
[opt-env-conf] +                _ -> do
[opt-env-conf] +                  mOpt <-
[opt-env-conf] +                    if settingTryOption
[opt-env-conf] +                      then do
[opt-env-conf] +                        -- Require readers before finding the option so the parser
[opt-env-conf] +                        -- always fails if it's missing a reader.
[opt-env-conf] +                        rs <- requireReaders settingReaders
[opt-env-conf] +                        mS <- ppOpt settingDasheds
[opt-env-conf] +                        case mS of
[opt-env-conf] +                          Nothing -> do
[opt-env-conf] +                            debug
[opt-env-conf] +                              [ "could not set based on options, no option: ",
[opt-env-conf] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf] +                              ]
[opt-env-conf] +                            pure NotFound
[opt-env-conf] +                          Just optionStr -> cap $
[opt-env-conf] +                            case tryReaders rs optionStr of
[opt-env-conf] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on option: ",
[opt-env-conf] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure $ Found a
[opt-env-conf] +                      else pure NotRun
[opt-env-conf] +
[opt-env-conf] +                  case mOpt of
[opt-env-conf] +                    Found a -> do
[opt-env-conf] +                      markParsed
[opt-env-conf] +                      pure a
[opt-env-conf] +                    _ -> do
[opt-env-conf] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf] +                        Nothing -> pure NotRun
[opt-env-conf] +                        Just ne -> do
[opt-env-conf] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf] +                          -- always fails if it's missing a reader.
[opt-env-conf] +                          rs <- requireReaders settingReaders
[opt-env-conf] +                          es <- asks ppEnvEnv
[opt-env-conf] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf] +                          -- Run the parser on all specified env vars before
[opt-env-conf] +                          -- returning the first because we want to fail if any
[opt-env-conf] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf] +                          -- result.
[opt-env-conf] +                          results <- for founds $ \varStr ->
[opt-env-conf] +                            case tryReaders rs varStr of
[opt-env-conf] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf] +                              Right a -> do
[opt-env-conf] +                                debug
[opt-env-conf] +                                  [ "set based on env: ",
[opt-env-conf] +                                    chunk $ T.pack $ show varStr
[opt-env-conf] +                                  ]
[opt-env-conf] +                                pure a
[opt-env-conf] +                          case listToMaybe results of
[opt-env-conf] +                            Nothing -> do
[opt-env-conf] +                              debug
[opt-env-conf] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf] +                                ]
[opt-env-conf] +                              pure NotFound
[opt-env-conf] +                            Just a -> pure $ Found a
[opt-env-conf] +
[opt-env-conf] +                      case mEnv of
[opt-env-conf] +                        Found a -> do
[opt-env-conf] +                          markParsed
[opt-env-conf] +                          pure a
[opt-env-conf] +                        _ -> do
[opt-env-conf] +                          let mConfDoc = settingConfDoc set
[opt-env-conf] +                          mConf <- case settingConfigVals of
[opt-env-conf] +                            Nothing -> pure NotRun
[opt-env-conf] +                            Just confSets -> do
[opt-env-conf] +                              mObj <- asks ppEnvConf
[opt-env-conf] +                              case mObj of
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  debug ["no config object to set from"]
[opt-env-conf] +                                  pure NotFound
[opt-env-conf] +                                Just obj -> do
[opt-env-conf] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                              Nothing -> do
[opt-env-conf] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf] +                                              Just neRest -> do
[opt-env-conf] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf] +                                                case mO' of
[opt-env-conf] +                                                  Nothing -> pure Nothing
[opt-env-conf] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                          Right mV -> case mV of
[opt-env-conf] +                                            Nothing -> do
[opt-env-conf] +                                              debug
[opt-env-conf] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                ]
[opt-env-conf] +                                              pure Nothing
[opt-env-conf] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf] +                                              Right mA -> case mA of
[opt-env-conf] +                                                Nothing -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure Nothing
[opt-env-conf] +                                                Just a -> do
[opt-env-conf] +                                                  debug
[opt-env-conf] +                                                    [ "set based on config value: ",
[opt-env-conf] +                                                      chunk $ T.pack $ show v
[opt-env-conf] +                                                    ]
[opt-env-conf] +                                                  pure $ Just a
[opt-env-conf] +                                  let toRes = \case
[opt-env-conf] +                                        Nothing -> NotFound
[opt-env-conf] +                                        Just a -> Found a
[opt-env-conf] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf] +                                        Just ne -> do
[opt-env-conf] +                                          res <- goConfSet confSet
[opt-env-conf] +                                          case res of
[opt-env-conf] +                                            Just a -> pure $ Found a
[opt-env-conf] +                                            Nothing -> goConfSets ne
[opt-env-conf] +                                  goConfSets confSets
[opt-env-conf] +                          case mConf of
[opt-env-conf] +                            Found a -> do
[opt-env-conf] +                              markParsed
[opt-env-conf] +                              pure a
[opt-env-conf] +                            _ ->
[opt-env-conf] +                              case settingDefaultValue of
[opt-env-conf] +                                Just (a, _) -> do
[opt-env-conf] +                                  debug ["set to default value"]
[opt-env-conf] +                                  pure a -- Don't mark as parsed
[opt-env-conf] +                                Nothing -> do
[opt-env-conf] +                                  let parseResultError e res = case res of
[opt-env-conf] +                                        NotRun -> Nothing
[opt-env-conf] +                                        NotFound -> Just e
[opt-env-conf] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf] +                                  debug ["not found"]
[opt-env-conf] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf] +                                    NE.nonEmpty $
[opt-env-conf] +                                      catMaybes
[opt-env-conf] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf] +                                        ]
[opt-env-conf]  
[opt-env-conf]  withCapabilities ::
[opt-env-conf]    Maybe SrcLoc ->
[opt-env-conf] added 200 mutations
[opt-env-conf] [18 of 22] Compiling OptEnvConf.Check ( src/OptEnvConf/Check.hs, dist/build/OptEnvConf/Check.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Check
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf] @@ -92,6 +92,6 @@
[opt-env-conf]                    _ -> Nothing
[opt-env-conf]                )
[opt-env-conf]                errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf] @@ -92,6 +92,6 @@
[opt-env-conf]                    _ -> Nothing
[opt-env-conf]                )
[opt-env-conf]                errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf] @@ -78,20 +78,20 @@
[opt-env-conf]    IO (CheckResult a)
[opt-env-conf]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf] -  pure $ case errOrSets of
[opt-env-conf] -    Right a -> CheckSucceeded a
[opt-env-conf] -    Left errs ->
[opt-env-conf] -      -- If all the errors are missing capability errors, return
[opt-env-conf] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] -      let mMissingCaps =
[opt-env-conf] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] -            -- ALL errors are missing capability errors
[opt-env-conf] -            mapM
[opt-env-conf] -              ( \case
[opt-env-conf] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] -                  _ -> Nothing
[opt-env-conf] -              )
[opt-env-conf] -              errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +  pure $ case errOrSets of
[opt-env-conf] +    Right a -> CheckSucceeded a
[opt-env-conf] +    Left errs ->
[opt-env-conf] +      -- If all the errors are missing capability errors, return
[opt-env-conf] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] +      let mMissingCaps =
[opt-env-conf] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] +            -- ALL errors are missing capability errors
[opt-env-conf] +            mapM
[opt-env-conf] +              ( \case
[opt-env-conf] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] +                  _ -> Nothing
[opt-env-conf] +              )
[opt-env-conf] +              errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf] @@ -78,20 +78,20 @@
[opt-env-conf]    IO (CheckResult a)
[opt-env-conf]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf] -  pure $ case errOrSets of
[opt-env-conf] -    Right a -> CheckSucceeded a
[opt-env-conf] -    Left errs ->
[opt-env-conf] -      -- If all the errors are missing capability errors, return
[opt-env-conf] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] -      let mMissingCaps =
[opt-env-conf] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] -            -- ALL errors are missing capability errors
[opt-env-conf] -            mapM
[opt-env-conf] -              ( \case
[opt-env-conf] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] -                  _ -> Nothing
[opt-env-conf] -              )
[opt-env-conf] -              errs
[opt-env-conf] -       in case mMissingCaps of
[opt-env-conf] -            Just ne -> CheckIncapable ne
[opt-env-conf] -            Nothing -> CheckFailed errs
[opt-env-conf] +  pure $ case errOrSets of
[opt-env-conf] +    Right a -> CheckSucceeded a
[opt-env-conf] +    Left errs ->
[opt-env-conf] +      -- If all the errors are missing capability errors, return
[opt-env-conf] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf] +      let mMissingCaps =
[opt-env-conf] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf] +            -- ALL errors are missing capability errors
[opt-env-conf] +            mapM
[opt-env-conf] +              ( \case
[opt-env-conf] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf] +                  _ -> Nothing
[opt-env-conf] +              )
[opt-env-conf] +              errs
[opt-env-conf] +       in case mMissingCaps of
[opt-env-conf] +            Just ne -> CheckIncapable ne
[opt-env-conf] +            Nothing -> CheckFailed errs
[opt-env-conf] added 4 mutations
[opt-env-conf] [19 of 22] Compiling OptEnvConf.Lint  ( src/OptEnvConf/Lint.hs, dist/build/OptEnvConf/Lint.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Lint
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:238:20-25
[opt-env-conf] @@ -235,7 +235,7 @@
[opt-env-conf]  lintParser =
[opt-env-conf]    either Just (const Nothing)
[opt-env-conf]      . validationToEither
[opt-env-conf] -    . (`runReader` False) -- Set to true for parsers that have a way to load conf
[opt-env-conf] +    . (`runReader` True) -- Set to true for parsers that have a way to load conf
[opt-env-conf]      . runValidationT
[opt-env-conf]      . go
[opt-env-conf]    where
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:246:28-33
[opt-env-conf] @@ -243,7 +243,7 @@
[opt-env-conf]      -- 'many' is allowed only when every parse below consumes something.
[opt-env-conf]      go :: Parser a -> ValidationT LintError (Reader Bool) Bool
[opt-env-conf]      go = \case
[opt-env-conf] -      ParserPure _ -> pure False
[opt-env-conf] +      ParserPure _ -> pure True
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (True || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (False || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (not (c1) || c2)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || True)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || False)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (c1 || not (c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (True)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (False)
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure (not (c1 || c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure True
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure False
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf] @@ -247,7 +247,7 @@
[opt-env-conf]        ParserAp p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2)
[opt-env-conf] +        pure not ((c1 || c2))
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (True || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (False || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1) || c2) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || True) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || False) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 || not (c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (True) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (False) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1 || c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure True -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure False -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf] @@ -251,7 +251,7 @@
[opt-env-conf]        ParserSelect p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] +        pure not ((c1 || c2)) -- TODO: is this right?
[opt-env-conf]        ParserEmpty _ -> pure True
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Lint.hs:255:29-33
[opt-env-conf] @@ -252,7 +252,7 @@
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf]          pure (c1 || c2) -- TODO: is this right?
[opt-env-conf] -      ParserEmpty _ -> pure True
[opt-env-conf] +      ParserEmpty _ -> pure False
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (True && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (False && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1) && c2) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && True) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && False) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (c1 && not (c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (True) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (False) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure (not (c1 && c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure True -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure False -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf] @@ -256,7 +256,7 @@
[opt-env-conf]        ParserAlt p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- go p2
[opt-env-conf] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf] +        pure not ((c1 && c2)) -- TODO: is this right?
[opt-env-conf]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf]        ParserMany mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure True
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure False
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf] @@ -263,7 +263,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure not (c)
[opt-env-conf]        ParserSome mLoc p -> do
[opt-env-conf]          c <- go p
[opt-env-conf]          when (not c) $
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure True
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure False
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf] @@ -269,7 +269,7 @@
[opt-env-conf]          when (not c) $
[opt-env-conf]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf]              validationTFailure LintErrorManyInfinite
[opt-env-conf] -        pure c
[opt-env-conf] +        pure not (c)
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if True
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if False
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf] @@ -273,7 +273,7 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] +        if not (null cs)
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when (True) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when (not (isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when True $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf] @@ -277,7 +277,7 @@
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf]            else do
[opt-env-conf]              for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +              when not ((isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf]                  validationTFailure $
[opt-env-conf]                    LintError mLoc $
[opt-env-conf]                      LintErrorUnknownDefaultCommand d
[opt-env-conf] added mutation RemoveAction at src/OptEnvConf/Lint.hs:278:16-53
[opt-env-conf] @@ -275,13 +275,13 @@
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf]          if null cs
[opt-env-conf]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] -          else do
[opt-env-conf] -            for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] -                validationTFailure $
[opt-env-conf] -                  LintError mLoc $
[opt-env-conf] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf] +          else do
[opt-env-conf] +            for_ mDefault $ \d ->
[opt-env-conf] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +                validationTFailure $
[opt-env-conf] +                  LintError mLoc $
[opt-env-conf] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Lint.hs:276:9-53
[opt-env-conf] @@ -273,15 +273,15 @@
[opt-env-conf]        ParserAllOrNothing _ p -> go p
[opt-env-conf]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf] -        if null cs
[opt-env-conf] -          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] -          else do
[opt-env-conf] -            for_ mDefault $ \d ->
[opt-env-conf] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] -                validationTFailure $
[opt-env-conf] -                  LintError mLoc $
[opt-env-conf] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf] +        if null cs
[opt-env-conf] +          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf] +          else do
[opt-env-conf] +            for_ mDefault $ \d ->
[opt-env-conf] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf] +                validationTFailure $
[opt-env-conf] +                  LintError mLoc $
[opt-env-conf] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ True || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ False || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ not (c1) || c2
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || True
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || False
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ c1 || not (c2)
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ True
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ False
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf] @@ -285,7 +285,7 @@
[opt-env-conf]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf]          c1 <- go p1
[opt-env-conf]          c2 <- local (const True) (go p2)
[opt-env-conf] -        pure $ c1 || c2
[opt-env-conf] +        pure $ not (c1 || c2)
[opt-env-conf]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf]          case settingHelp of
[opt-env-conf]            Nothing ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ True || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ False || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ not (settingTryArgument) || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || True || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || False || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || settingTryOption || not (isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ settingTryArgument || not (settingTryOption || isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ True,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ False,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +            [ not (settingTryArgument || settingTryOption || isJust settingSwitchValue),
[opt-env-conf]                null settingEnvVars,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              True,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              False,
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf] @@ -338,6 +338,6 @@
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] +              not (null settingEnvVars),
[opt-env-conf]                null settingConfigVals
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              True
[opt-env-conf]              ]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              False
[opt-env-conf]              ]
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf] @@ -339,5 +339,5 @@
[opt-env-conf]            and
[opt-env-conf]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf]                null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] +              not (null settingConfigVals)
[opt-env-conf]              ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,4 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,7 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars,
[opt-env-conf] +              null settingConfigVals
[opt-env-conf] +            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf] @@ -337,7 +337,6 @@
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf]            and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars
[opt-env-conf] +]
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,4 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          True
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,4 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          False
[opt-env-conf] added mutation Negate at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf] @@ -336,8 +336,8 @@
[opt-env-conf]          pure $
[opt-env-conf]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf]            -- impossible for nothing to be consumed.
[opt-env-conf] -          and
[opt-env-conf] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] -              null settingEnvVars,
[opt-env-conf] -              null settingConfigVals
[opt-env-conf] -            ]
[opt-env-conf] +          not (and
[opt-env-conf] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf] +              null settingEnvVars,
[opt-env-conf] +              null settingConfigVals
[opt-env-conf] +            ])
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [[]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,7 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf] @@ -68,7 +68,8 @@
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf]        case lintErrorMessage of
[opt-env-conf]          LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +          [["missing ", functionChunk "help"
[opt-env-conf] +]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf]              [ [ [ "This ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,7 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ []
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,10 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf] @@ -71,10 +71,9 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting"
[opt-env-conf] +]
[opt-env-conf]                ],
[opt-env-conf]                [ [ "Add an ",
[opt-env-conf]                    functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,7 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ []
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,20 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf] @@ -76,20 +76,19 @@
[opt-env-conf]                    " parses nothing."
[opt-env-conf]                  ]
[opt-env-conf]                ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value"
[opt-env-conf] +]
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf] @@ -71,27 +71,7 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf] @@ -71,27 +71,27 @@
[opt-env-conf]            [["missing ", functionChunk "help", "."]]
[opt-env-conf]          LintErrorEmptySetting ->
[opt-env-conf]            concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf] @@ -93,7 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,7 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,7 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf] @@ -94,7 +94,8 @@
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +            ["Found ", functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf] @@ -93,9 +93,7 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf] @@ -93,9 +93,9 @@
[opt-env-conf]                ]
[opt-env-conf]              ]
[opt-env-conf]          LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf] @@ -97,7 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf] @@ -97,7 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf] @@ -98,7 +98,8 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s
[opt-env-conf] +],
[opt-env-conf]              [ "Try ",
[opt-env-conf]                functionChunk "long",
[opt-env-conf]                " ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,7 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,19 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf] @@ -99,19 +99,18 @@
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,7 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,22 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf] @@ -97,22 +97,20 @@
[opt-env-conf]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s
[opt-env-conf] +]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf]                " has no ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf] @@ -114,11 +114,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf]            [ [ functionChunk "argument",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf] @@ -121,11 +121,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf] @@ -128,13 +128,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf] @@ -137,13 +137,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf]            [ [ functionChunk "option",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf] @@ -146,13 +146,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf]            [ [ functionChunk "switch",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf] @@ -155,13 +155,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf]            [ [ functionChunk "long",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,15 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf] @@ -164,15 +164,14 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf] @@ -175,13 +175,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf]            [ [ functionChunk "env",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf] @@ -184,13 +184,12 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf]            [ [ functionChunk "commands",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf] @@ -193,9 +193,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf]            [ [ functionChunk "defaultCommand",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf] @@ -193,9 +193,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf]            [ [ functionChunk "defaultCommand",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf] @@ -198,10 +198,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: "
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf] @@ -204,7 +204,8 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader"
[opt-env-conf] +],
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf] @@ -205,7 +205,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf] @@ -205,7 +205,7 @@
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf] @@ -204,9 +204,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf] @@ -204,9 +204,9 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf]            [ [ functionChunk "conf",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,7 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,11 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf] @@ -208,11 +208,10 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name"
[opt-env-conf] +],
[opt-env-conf]              [ "You can load configuration with ",
[opt-env-conf]                functionChunk "withConfig",
[opt-env-conf]                ", or explicitly not load any configuration with ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,7 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            []
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,12 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf] @@ -213,12 +213,11 @@
[opt-env-conf]                functionChunk "name",
[opt-env-conf]                " was called with no way to load configuration."
[opt-env-conf]              ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig"
[opt-env-conf] +]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf] @@ -208,18 +208,7 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf] @@ -208,18 +208,18 @@
[opt-env-conf]              ["Example: ", chunk $ T.pack e]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf]            [ [ functionChunk "many",
[opt-env-conf]                " or ",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,11 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf] @@ -221,11 +221,10 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some"
[opt-env-conf] +],
[opt-env-conf]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf]            ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf] @@ -221,13 +221,7 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf] @@ -221,13 +221,13 @@
[opt-env-conf]              ]
[opt-env-conf]            ]
[opt-env-conf]          LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf] @@ -66,168 +66,168 @@
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf]      ]
[opt-env-conf]  
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,7 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,171 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some",
[opt-env-conf] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] +            ],
[opt-env-conf] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] +          ],
[opt-env-conf] +      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] +    ]
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf] @@ -65,171 +65,166 @@
[opt-env-conf]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf]  renderLintError LintError {..} =
[opt-env-conf]    concat
[opt-env-conf] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] -      case lintErrorMessage of
[opt-env-conf] -        LintErrorUndocumented ->
[opt-env-conf] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf] -        LintErrorEmptySetting ->
[opt-env-conf] -          concat
[opt-env-conf] -            [ [ [ "This ",
[opt-env-conf] -                  functionChunk "setting",
[opt-env-conf] -                  " parses nothing."
[opt-env-conf] -                ]
[opt-env-conf] -              ],
[opt-env-conf] -              [ [ "Add an ",
[opt-env-conf] -                  functionChunk "argument",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "switch",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "option",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "env",
[opt-env-conf] -                  ", ",
[opt-env-conf] -                  functionChunk "conf",
[opt-env-conf] -                  ", or ",
[opt-env-conf] -                  functionChunk "value",
[opt-env-conf] -                  "."
[opt-env-conf] -                ]
[opt-env-conf] -              ]
[opt-env-conf] -            ]
[opt-env-conf] -        LintErrorDashInShort ->
[opt-env-conf] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorDashInLong s ->
[opt-env-conf] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] -            [ "Try ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " ",
[opt-env-conf] -              chunk $
[opt-env-conf] -                T.pack $
[opt-env-conf] -                  show $
[opt-env-conf] -                    let go = \case
[opt-env-conf] -                          [] -> []
[opt-env-conf] -                          '-' : cs -> go cs
[opt-env-conf] -                          c : cs -> c : cs
[opt-env-conf] -                     in go $ NE.toList s,
[opt-env-conf] -              " instead."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForArgument ->
[opt-env-conf] -          [ [ functionChunk "argument",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForOption ->
[opt-env-conf] -          [ [ functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoDashedForSwitch ->
[opt-env-conf] -          [ [ functionChunk "switch",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] -          [ [ functionChunk "long",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "short",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "option",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "switch",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "reader",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] -          [ [ functionChunk "env",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " has no ",
[opt-env-conf] -              functionChunk "metavar",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorNoCommands ->
[opt-env-conf] -          [ [ functionChunk "commands",
[opt-env-conf] -              " was called with an empty list."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] -          [ [ functionChunk "defaultCommand",
[opt-env-conf] -              " was called with an unknown command: ",
[opt-env-conf] -              commandChunk c
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorUnreadableExample e ->
[opt-env-conf] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorConfigWithoutLoad ->
[opt-env-conf] -          [ [ functionChunk "conf",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "name",
[opt-env-conf] -              " was called with no way to load configuration."
[opt-env-conf] -            ],
[opt-env-conf] -            [ "You can load configuration with ",
[opt-env-conf] -              functionChunk "withConfig",
[opt-env-conf] -              ", or explicitly not load any configuration with ",
[opt-env-conf] -              functionChunk "withoutConfig",
[opt-env-conf] -              "."
[opt-env-conf] -            ]
[opt-env-conf] -          ]
[opt-env-conf] -        LintErrorManyInfinite ->
[opt-env-conf] -          [ [ functionChunk "many",
[opt-env-conf] -              " or ",
[opt-env-conf] -              functionChunk "some",
[opt-env-conf] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf] -            ],
[opt-env-conf] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf] -          ],
[opt-env-conf] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf] -    ]
[opt-env-conf] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf] +      case lintErrorMessage of
[opt-env-conf] +        LintErrorUndocumented ->
[opt-env-conf] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf] +        LintErrorEmptySetting ->
[opt-env-conf] +          concat
[opt-env-conf] +            [ [ [ "This ",
[opt-env-conf] +                  functionChunk "setting",
[opt-env-conf] +                  " parses nothing."
[opt-env-conf] +                ]
[opt-env-conf] +              ],
[opt-env-conf] +              [ [ "Add an ",
[opt-env-conf] +                  functionChunk "argument",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "switch",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "option",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "env",
[opt-env-conf] +                  ", ",
[opt-env-conf] +                  functionChunk "conf",
[opt-env-conf] +                  ", or ",
[opt-env-conf] +                  functionChunk "value",
[opt-env-conf] +                  "."
[opt-env-conf] +                ]
[opt-env-conf] +              ]
[opt-env-conf] +            ]
[opt-env-conf] +        LintErrorDashInShort ->
[opt-env-conf] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorDashInLong s ->
[opt-env-conf] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf] +            [ "Try ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " ",
[opt-env-conf] +              chunk $
[opt-env-conf] +                T.pack $
[opt-env-conf] +                  show $
[opt-env-conf] +                    let go = \case
[opt-env-conf] +                          [] -> []
[opt-env-conf] +                          '-' : cs -> go cs
[opt-env-conf] +                          c : cs -> c : cs
[opt-env-conf] +                     in go $ NE.toList s,
[opt-env-conf] +              " instead."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForArgument ->
[opt-env-conf] +          [ [ functionChunk "argument",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForOption ->
[opt-env-conf] +          [ [ functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoDashedForSwitch ->
[opt-env-conf] +          [ [ functionChunk "switch",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf] +          [ [ functionChunk "long",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "short",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "option",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "switch",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "reader",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf] +          [ [ functionChunk "env",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " has no ",
[opt-env-conf] +              functionChunk "metavar",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorNoCommands ->
[opt-env-conf] +          [ [ functionChunk "commands",
[opt-env-conf] +              " was called with an empty list."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf] +          [ [ functionChunk "defaultCommand",
[opt-env-conf] +              " was called with an unknown command: ",
[opt-env-conf] +              commandChunk c
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorUnreadableExample e ->
[opt-env-conf] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorConfigWithoutLoad ->
[opt-env-conf] +          [ [ functionChunk "conf",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "name",
[opt-env-conf] +              " was called with no way to load configuration."
[opt-env-conf] +            ],
[opt-env-conf] +            [ "You can load configuration with ",
[opt-env-conf] +              functionChunk "withConfig",
[opt-env-conf] +              ", or explicitly not load any configuration with ",
[opt-env-conf] +              functionChunk "withoutConfig",
[opt-env-conf] +              "."
[opt-env-conf] +            ]
[opt-env-conf] +          ]
[opt-env-conf] +        LintErrorManyInfinite ->
[opt-env-conf] +          [ [ functionChunk "many",
[opt-env-conf] +              " or ",
[opt-env-conf] +              functionChunk "some"
[opt-env-conf] +]
[opt-env-conf]  
[opt-env-conf]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf]  lintParser =
[opt-env-conf] added 192 mutations
[opt-env-conf] [20 of 22] Compiling OptEnvConf.Main  ( src/OptEnvConf/Main.hs, dist/build/OptEnvConf/Main.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf.Main
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,7 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,10 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf] @@ -227,10 +227,9 @@
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf]      [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version"
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderMan,
[opt-env-conf]            long "render-man-page",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,11 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf] @@ -232,11 +232,10 @@
[opt-env-conf]            hidden
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderDocumentation,
[opt-env-conf]            long "render-reference-documentation",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,7 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,11 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf] @@ -238,11 +238,10 @@
[opt-env-conf]            help "Render a manpage"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ switch RenderNixosOptions,
[opt-env-conf]            long "render-nix-options",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,7 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,11 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf] @@ -244,11 +244,10 @@
[opt-env-conf]            help "Render reference documentation"
[opt-env-conf]          ],
[opt-env-conf]        setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden
[opt-env-conf] +],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,7 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,12 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf] @@ -251,12 +251,11 @@
[opt-env-conf]          ],
[opt-env-conf]        BashCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,7 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,12 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf] @@ -259,12 +259,11 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf]            [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,7 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,12 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf] @@ -267,12 +267,11 @@
[opt-env-conf]            ],
[opt-env-conf]        ZshCompletionScript
[opt-env-conf]          <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden
[opt-env-conf] +],
[opt-env-conf]        setting
[opt-env-conf]          [ help "Query completion",
[opt-env-conf]            switch CompletionQuery,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,7 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        []
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,12 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf] @@ -274,12 +274,11 @@
[opt-env-conf]              help "Render the fish completion script"
[opt-env-conf]            ],
[opt-env-conf]        setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion"
[opt-env-conf] +]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
[opt-env-conf] @@ -281,7 +281,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] +          [ switch False,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf]              value False,
[opt-env-conf]              hidden,
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
[opt-env-conf] @@ -283,7 +283,7 @@
[opt-env-conf]          <*> setting
[opt-env-conf]            [ switch True,
[opt-env-conf]              long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] +            value True,
[opt-env-conf]              hidden,
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,7 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,12 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf] @@ -281,12 +281,11 @@
[opt-env-conf]            hidden
[opt-env-conf]          ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden
[opt-env-conf] +]
[opt-env-conf]          <*> setting
[opt-env-conf]            [ option,
[opt-env-conf]              reader auto,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,7 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          []
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,12 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf] @@ -288,12 +288,11 @@
[opt-env-conf]              help "Whether to enable enriched completion"
[opt-env-conf]            ]
[opt-env-conf]          <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden
[opt-env-conf] +]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf]                [ option,
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,7 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              []
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,12 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf] @@ -296,12 +296,12 @@
[opt-env-conf]            ]
[opt-env-conf]          <*> many
[opt-env-conf]            ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf]            ),
[opt-env-conf]        ParsedNormally <$> p
[opt-env-conf]      ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,4 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    []
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,82 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    [ setting
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf] +      BashCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf] +        <*> many
[opt-env-conf] +          ( setting
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf] +          ),
[opt-env-conf] +      ParsedNormally <$> p
[opt-env-conf] +    ]
[opt-env-conf] added mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf] @@ -226,82 +226,81 @@
[opt-env-conf]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf]  internalParser p =
[opt-env-conf]    choice
[opt-env-conf] -    [ setting
[opt-env-conf] -        [ switch ShowVersion,
[opt-env-conf] -          long "version",
[opt-env-conf] -          hidden
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderMan,
[opt-env-conf] -          long "render-man-page",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render a manpage"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderDocumentation,
[opt-env-conf] -          long "render-reference-documentation",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render reference documentation"
[opt-env-conf] -        ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ switch RenderNixosOptions,
[opt-env-conf] -          long "render-nix-options",
[opt-env-conf] -          hidden,
[opt-env-conf] -          help "Render Nix options"
[opt-env-conf] -        ],
[opt-env-conf] -      BashCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "bash-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the bash completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "zsh-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the zsh completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      ZshCompletionScript
[opt-env-conf] -        <$> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader $ maybeReader parseAbsFile,
[opt-env-conf] -            long "fish-completion-script",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Render the fish completion script"
[opt-env-conf] -          ],
[opt-env-conf] -      setting
[opt-env-conf] -        [ help "Query completion",
[opt-env-conf] -          switch CompletionQuery,
[opt-env-conf] -          -- Long string that no normal user would ever use.
[opt-env-conf] -          long "query-opt-env-conf-completion",
[opt-env-conf] -          hidden
[opt-env-conf] -        ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ switch True,
[opt-env-conf] -            long "completion-enriched",
[opt-env-conf] -            value False,
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "Whether to enable enriched completion"
[opt-env-conf] -          ]
[opt-env-conf] -        <*> setting
[opt-env-conf] -          [ option,
[opt-env-conf] -            reader auto,
[opt-env-conf] -            long "completion-index",
[opt-env-conf] -            hidden,
[opt-env-conf] -            help "The index between the arguments where completion was invoked."
[opt-env-conf] -          ]
[opt-env-conf] -        <*> many
[opt-env-conf] -          ( setting
[opt-env-conf] -              [ option,
[opt-env-conf] -                reader str,
[opt-env-conf] -                long "completion-word",
[opt-env-conf] -                hidden,
[opt-env-conf] -                help "The words (arguments) that have already been typed"
[opt-env-conf] -              ]
[opt-env-conf] -          ),
[opt-env-conf] -      ParsedNormally <$> p
[opt-env-conf] -    ]
[opt-env-conf] +    [ setting
[opt-env-conf] +        [ switch ShowVersion,
[opt-env-conf] +          long "version",
[opt-env-conf] +          hidden
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderMan,
[opt-env-conf] +          long "render-man-page",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render a manpage"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderDocumentation,
[opt-env-conf] +          long "render-reference-documentation",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render reference documentation"
[opt-env-conf] +        ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ switch RenderNixosOptions,
[opt-env-conf] +          long "render-nix-options",
[opt-env-conf] +          hidden,
[opt-env-conf] +          help "Render Nix options"
[opt-env-conf] +        ],
[opt-env-conf] +      BashCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "bash-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the bash completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "zsh-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the zsh completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      ZshCompletionScript
[opt-env-conf] +        <$> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader $ maybeReader parseAbsFile,
[opt-env-conf] +            long "fish-completion-script",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Render the fish completion script"
[opt-env-conf] +          ],
[opt-env-conf] +      setting
[opt-env-conf] +        [ help "Query completion",
[opt-env-conf] +          switch CompletionQuery,
[opt-env-conf] +          -- Long string that no normal user would ever use.
[opt-env-conf] +          long "query-opt-env-conf-completion",
[opt-env-conf] +          hidden
[opt-env-conf] +        ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ switch True,
[opt-env-conf] +            long "completion-enriched",
[opt-env-conf] +            value False,
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "Whether to enable enriched completion"
[opt-env-conf] +          ]
[opt-env-conf] +        <*> setting
[opt-env-conf] +          [ option,
[opt-env-conf] +            reader auto,
[opt-env-conf] +            long "completion-index",
[opt-env-conf] +            hidden,
[opt-env-conf] +            help "The index between the arguments where completion was invoked."
[opt-env-conf] +          ]
[opt-env-conf] +        <*> many
[opt-env-conf] +          ( setting
[opt-env-conf] +              [ option,
[opt-env-conf] +                reader str,
[opt-env-conf] +                long "completion-word",
[opt-env-conf] +                hidden,
[opt-env-conf] +                help "The words (arguments) that have already been typed"
[opt-env-conf] +              ]
[opt-env-conf] +          )
[opt-env-conf] +]
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf] @@ -198,11 +198,11 @@
[opt-env-conf]          let t = T.pack x
[opt-env-conf]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf] @@ -198,11 +198,11 @@
[opt-env-conf]          let t = T.pack x
[opt-env-conf]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf] @@ -196,13 +196,13 @@
[opt-env-conf]        [] -> (caps, [])
[opt-env-conf]        (x : xs) ->
[opt-env-conf]          let t = T.pack x
[opt-env-conf] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf] @@ -196,13 +196,13 @@
[opt-env-conf]        [] -> (caps, [])
[opt-env-conf]        (x : xs) ->
[opt-env-conf]          let t = T.pack x
[opt-env-conf] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] -                Nothing ->
[opt-env-conf] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf] -                   in (finalCaps, x : rest)
[opt-env-conf] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf] +                Nothing ->
[opt-env-conf] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf] +                   in (finalCaps, x : rest)
[opt-env-conf]  
[opt-env-conf]  -- Internal structure to help us do what the framework
[opt-env-conf]  -- is supposed to.
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
[opt-env-conf] @@ -167,7 +167,7 @@
[opt-env-conf]  consumeExactArg arg = go
[opt-env-conf]    where
[opt-env-conf]      go = \case
[opt-env-conf] -      [] -> (False, [])
[opt-env-conf] +      [] -> (True, [])
[opt-env-conf]        (x : xs)
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | True -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | not (x == arg) -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
[opt-env-conf] @@ -169,7 +169,7 @@
[opt-env-conf]      go = \case
[opt-env-conf]        [] -> (False, [])
[opt-env-conf]        (x : xs)
[opt-env-conf] -        | x == arg -> (True, xs)
[opt-env-conf] +        | x == arg -> (False, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf]               in (found, x : rest)
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (True, x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (False, x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf] @@ -172,7 +172,7 @@
[opt-env-conf]          | x == arg -> (True, xs)
[opt-env-conf]          | otherwise ->
[opt-env-conf]              let (found, rest) = go xs
[opt-env-conf] -             in (found, x : rest)
[opt-env-conf] +             in (not (found), x : rest)
[opt-env-conf]  
[opt-env-conf]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if True
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if False
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf] @@ -181,7 +181,7 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] +   in if not (found)
[opt-env-conf]          then (True, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf] added mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
[opt-env-conf] @@ -182,7 +182,7 @@
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf]     in if found
[opt-env-conf] -        then (True, as')
[opt-env-conf] +        then (False, as')
[opt-env-conf]          else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Main.hs:184:7-38
[opt-env-conf] @@ -181,9 +181,9 @@
[opt-env-conf]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeHelpMode as =
[opt-env-conf]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf] -   in if found
[opt-env-conf] -        then (True, as')
[opt-env-conf] -        else consumeExactArg "-h" as'
[opt-env-conf] +   in if found
[opt-env-conf] +        then (True, as')
[opt-env-conf] +        else consumeExactArg "-h" as'
[opt-env-conf]  
[opt-env-conf]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf]  consumeCheckMode = consumeExactArg "--run-settings-check"
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if True
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if False
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf] @@ -80,7 +80,7 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] +        if not (debugMode)
[opt-env-conf]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]            else pure Nothing
[opt-env-conf]  
[opt-env-conf] added mutation CondFlip at src/OptEnvConf/Main.hs:83:9-28
[opt-env-conf] @@ -80,9 +80,9 @@
[opt-env-conf]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf]  
[opt-env-conf]        mDebugMode <-
[opt-env-conf] -        if debugMode
[opt-env-conf] -          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf] -          else pure Nothing
[opt-env-conf] +        if debugMode
[opt-env-conf] +          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf] +          else pure Nothing
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if True
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if False
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf] @@ -86,7 +86,7 @@
[opt-env-conf]  
[opt-env-conf]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf]  
[opt-env-conf] -      if helpMode
[opt-env-conf] +      if not (helpMode)
[opt-env-conf]          then do
[opt-env-conf]            progname <- getProgName
[opt-env-conf]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf] @@ -97,9 +97,9 @@
[opt-env-conf]                exitFailure
[opt-env-conf]              Right mCommandDoc -> do
[opt-env-conf]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf]                exitSuccess
[opt-env-conf]          else do
[opt-env-conf]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf] @@ -97,9 +97,9 @@
[opt-env-conf]                exitFailure
[opt-env-conf]              Right mCommandDoc -> do
[opt-env-conf]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf]                exitSuccess
[opt-env-conf]          else do
[opt-env-conf]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if True
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if False
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf] @@ -108,7 +108,7 @@
[opt-env-conf]            let readyArgs = Args.parseArgs args'''
[opt-env-conf]  
[opt-env-conf]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf] -          if checkMode
[opt-env-conf] +          if not (checkMode)
[opt-env-conf]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf]              else do
[opt-env-conf]                let p' = internalParser p
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' True index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' False index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation Negate at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf] @@ -158,7 +158,7 @@
[opt-env-conf]                      generateFishCompletionScript progPath progname
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    runCompletionQuery p' not (enriched) index ws
[opt-env-conf]                      exitSuccess
[opt-env-conf]                    ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf] @@ -125,42 +125,42 @@
[opt-env-conf]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf]                    exitFailure
[opt-env-conf] -                Right i -> case i of
[opt-env-conf] -                  ShowVersion -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderMan -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderDocumentation -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  RenderNixosOptions -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  BashCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateBashCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ZshCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateZshCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  FishCompletionScript progPath -> do
[opt-env-conf] -                    progname <- getProgName
[opt-env-conf] -                    generateFishCompletionScript progPath progname
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  CompletionQuery enriched index ws -> do
[opt-env-conf] -                    runCompletionQuery p' enriched index ws
[opt-env-conf] -                    exitSuccess
[opt-env-conf] -                  ParsedNormally a -> pure a
[opt-env-conf] +                Right i -> case i of
[opt-env-conf] +                  ShowVersion -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderMan -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderDocumentation -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  RenderNixosOptions -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  BashCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateBashCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ZshCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateZshCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  FishCompletionScript progPath -> do
[opt-env-conf] +                    progname <- getProgName
[opt-env-conf] +                    generateFishCompletionScript progPath progname
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  CompletionQuery enriched index ws -> do
[opt-env-conf] +                    runCompletionQuery p' enriched index ws
[opt-env-conf] +                    exitSuccess
[opt-env-conf] +                  ParsedNormally a -> pure a
[opt-env-conf]  
[opt-env-conf]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf] added 78 mutations
[opt-env-conf] [21 of 22] Compiling OptEnvConf       ( src/OptEnvConf.hs, dist/build/OptEnvConf.p_o )
[opt-env-conf] mutation: instrumenting OptEnvConf
[opt-env-conf] added 0 mutations
[opt-env-conf] [22 of 22] Compiling Paths_opt_env_conf ( dist/build/autogen/Paths_opt_env_conf.hs, dist/build/Paths_opt_env_conf.p_o )
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Args.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Capability.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Casing.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Check.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Completer.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Completion.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Doc.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/EnvMap.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Error.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Lint.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Main.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Nix.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/NonDet.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Output.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Parser.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Reader.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Run.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Setting.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Terminal.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Validation.dyn_o'
[opt-env-conf] Warning: ignoring unrecognised input `dist/build/Paths_opt_env_conf.dyn_o'
[opt-env-conf] mutation-nix: manifest output at /nix/store/wnya2lbajf7bdaj4qj0v5i72qbg21mg1-opt-env-conf-0.15.0.1-manifest:
[opt-env-conf] total 2108
[opt-env-conf] drwxr-xr-x   2 nixbld nixbld   4096 May 13 16:11 .
[opt-env-conf] drwxrwxr-t 281 nobody nixbld  32768 May 13 16:10 ..
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 190187 May 13 16:11 OptEnvConf.Args.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:11 OptEnvConf.Capability.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:11 OptEnvConf.Casing.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld   5139 May 13 16:12 OptEnvConf.Check.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld  87143 May 13 16:11 OptEnvConf.Completer.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld  78167 May 13 16:12 OptEnvConf.Completion.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 314511 May 13 16:11 OptEnvConf.Doc.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:11 OptEnvConf.EnvMap.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 150764 May 13 16:11 OptEnvConf.Error.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:13 OptEnvConf.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 359025 May 13 16:12 OptEnvConf.Lint.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 100655 May 13 16:12 OptEnvConf.Main.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld  14450 May 13 16:11 OptEnvConf.Nix.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:11 OptEnvConf.NonDet.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld  11983 May 13 16:11 OptEnvConf.Output.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 229500 May 13 16:11 OptEnvConf.Parser.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld   3693 May 13 16:11 OptEnvConf.Reader.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 420606 May 13 16:12 OptEnvConf.Run.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld 100673 May 13 16:11 OptEnvConf.Setting.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld      2 May 13 16:12 OptEnvConf.Terminal.json
[opt-env-conf] -rw-r--r--   1 nixbld nixbld   3123 May 13 16:12 OptEnvConf.Validation.json
[opt-env-conf] buildPhase completed in 2 minutes 46 seconds
[opt-env-conf] Phase: haddockPhase
[opt-env-conf] Phase: installPhase
[opt-env-conf] Installing library in /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf] Phase: fixupPhase
[opt-env-conf] shrinking RPATHs of ELF executables and libraries in /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1
[opt-env-conf] shrinking /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI-ghc9.10.3.so
[opt-env-conf] checking for references to /build/ in /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1...
[opt-env-conf] patching script interpreter paths in /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1
[opt-env-conf] stripping (with command strip and flags -S -p) in  /nix/store/i7ldqb4myad8yadm75zzg77vv47fp5qd-opt-env-conf-0.15.0.1/lib
[opt-env-conf] shrinking RPATHs of ELF executables and libraries in /nix/store/wnya2lbajf7bdaj4qj0v5i72qbg21mg1-opt-env-conf-0.15.0.1-manifest
[opt-env-conf] checking for references to /build/ in /nix/store/wnya2lbajf7bdaj4qj0v5i72qbg21mg1-opt-env-conf-0.15.0.1-manifest...
[opt-env-conf] patching script interpreter paths in /nix/store/wnya2lbajf7bdaj4qj0v5i72qbg21mg1-opt-env-conf-0.15.0.1-manifest
Progress: 3 of 12 built
Building sydtest-source
[sydtest-source] Phase: setupCompilerEnvironmentPhase
[sydtest-source] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[sydtest-source] Phase: unpackPhase
[sydtest-source] unpacking source archive /nix/store/jwh14agf7dbsri24plwrh2mr6a67p7b8-sydtest
[sydtest-source] source root is sydtest
[sydtest-source] Phase: patchPhase
[sydtest-source] Phase: compileBuildDriverPhase
[sydtest-source] setupCompileFlags: -package-db=/build/tmp.ryLZj4UkXm/setup-package.conf.d -threaded
[sydtest-source] [1 of 2] Compiling Main             ( /nix/store/4mdp8nhyfddh7bllbi7xszz7k9955n79-Setup.hs, /build/tmp.ryLZj4UkXm/Main.o )
[sydtest-source] [2 of 2] Linking Setup
[sydtest-source] Phase: updateAutotoolsGnuConfigScriptsPhase
[sydtest-source] Phase: configurePhase
[sydtest-source] configureFlags: --verbose --prefix=/nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/share/doc/sydtest-0.23.0.2 --with-gcc=gcc --package-db=/build/tmp.ryLZj4UkXm/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Wunused-packages --ghc-options=-Werror --ghc-options=-Wno-deprecations --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[sydtest-source] Using Parsec parser
[sydtest-source] Configuring sydtest-0.23.0.2...
[sydtest-source] Dependency MonadRandom: using MonadRandom-0.6.2
[sydtest-source] Dependency QuickCheck: using QuickCheck-2.15.0.1
[sydtest-source] Dependency async: using async-2.2.5
[sydtest-source] Dependency autodocodec: using autodocodec-0.5.0.0
[sydtest-source] Dependency base >=4.7 && <5: using base-4.20.2.0
[sydtest-source] Dependency bytestring: using bytestring-0.12.2.0
[sydtest-source] Dependency containers: using containers-0.7
[sydtest-source] Dependency deepseq: using deepseq-1.5.0.0
[sydtest-source] Dependency dlist: using dlist-1.0
[sydtest-source] Dependency fast-myers-diff >=0.0.1: using fast-myers-diff-0.0.2
[sydtest-source] Dependency filepath: using filepath-1.5.4.0
[sydtest-source] Dependency mtl: using mtl-2.3.1
[sydtest-source] Dependency opt-env-conf >=0.10: using opt-env-conf-0.15.0.1
[sydtest-source] Dependency path: using path-0.9.6
[sydtest-source] Dependency path-io: using path-io-1.8.2
[sydtest-source] Dependency pretty-show: using pretty-show-1.10
[sydtest-source] Dependency quickcheck-io: using quickcheck-io-0.2.0
[sydtest-source] Dependency random: using random-1.2.1.3
[sydtest-source] Dependency random-shuffle: using random-shuffle-0.0.4
[sydtest-source] Dependency safe: using safe-0.3.21
[sydtest-source] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[sydtest-source] Dependency safe-coloured-text-terminfo: using
[sydtest-source] safe-coloured-text-terminfo-0.3.0.0
[sydtest-source] Dependency stm: using stm-2.5.3.1
[sydtest-source] Dependency svg-builder: using svg-builder-0.1.1
[sydtest-source] Dependency sydtest-mutation-runtime: using sydtest-mutation-runtime-0.0.0.0
[sydtest-source] Dependency text: using text-2.1.3
[sydtest-source] Dependency typed-process: using typed-process-0.2.13.0
[sydtest-source] Dependency vector: using vector-0.13.2.0
[sydtest-source] Source component graph: component lib
[sydtest-source] Configured component graph:
[sydtest-source]     component sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest-source]         include MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest-source]         include async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest-source]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest-source]         include base-4.20.2.0-64da
[sydtest-source]         include bytestring-0.12.2.0-262e
[sydtest-source]         include containers-0.7-504a
[sydtest-source]         include deepseq-1.5.0.0-9a2c
[sydtest-source]         include dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest-source]         include fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest-source]         include filepath-1.5.4.0-e600
[sydtest-source]         include mtl-2.3.1-b4af
[sydtest-source]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest-source]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-source]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-source]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest-source]         include quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest-source]         include random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest-source]         include random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest-source]         include safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest-source]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest-source]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest-source]         include stm-2.5.3.1-a2f3
[sydtest-source]         include svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest-source]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-source]         include text-2.1.3-c691
[sydtest-source]         include typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest-source]         include vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest-source] Linked component graph:
[sydtest-source]     unit sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest-source]         include MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest-source]         include async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest-source]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest-source]         include base-4.20.2.0-64da
[sydtest-source]         include bytestring-0.12.2.0-262e
[sydtest-source]         include containers-0.7-504a
[sydtest-source]         include deepseq-1.5.0.0-9a2c
[sydtest-source]         include dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest-source]         include fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest-source]         include filepath-1.5.4.0-e600
[sydtest-source]         include mtl-2.3.1-b4af
[sydtest-source]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest-source]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-source]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-source]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest-source]         include quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest-source]         include random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest-source]         include random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest-source]         include safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest-source]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest-source]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest-source]         include stm-2.5.3.1-a2f3
[sydtest-source]         include svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest-source]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-source]         include text-2.1.3-c691
[sydtest-source]         include typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest-source]         include vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest-source]         Test.Syd=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd,Test.Syd.Def=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def,Test.Syd.Def.Around=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Around,Test.Syd.Def.AroundAll=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.AroundAll,Test.Syd.Def.Golden=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Golden,Test.Syd.Def.Scenario=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Scenario,Test.Syd.Def.SetupFunc=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.SetupFunc,Test.Syd.Def.Specify=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Specify,Test.Syd.Def.TestDefM=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.TestDefM,Test.Syd.Expectation=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Expectation,Test.Syd.HList=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.HList,Test.Syd.Modify=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Modify,Test.Syd.Mutation.Forest=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Mutation.Forest,Test.Syd.MutationMode=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.MutationMode,Test.Syd.OptParse=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.OptParse,Test.Syd.Output=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output,Test.Syd.Output.Common=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Common,Test.Syd.Output.Pretty=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Pretty,Test.Syd.Output.Terse=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Terse,Test.Syd.Path=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Path,Test.Syd.ReRun=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.ReRun,Test.Syd.Run=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Run,Test.Syd.Runner=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner,Test.Syd.Runner.Asynchronous=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Asynchronous,Test.Syd.Runner.Single=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Single,Test.Syd.Runner.Synchronous=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous,Test.Syd.Runner.Synchronous.Interleaved=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous.Interleaved,Test.Syd.Runner.Synchronous.Separate=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous.Separate,Test.Syd.Runner.Wrappers=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Wrappers,Test.Syd.SVG=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SVG,Test.Syd.SpecDef=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SpecDef,Test.Syd.SpecForest=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SpecForest
[sydtest-source] Ready component graph:
[sydtest-source]     definite sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest-source]         depends MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest-source]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest-source]         depends async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest-source]         depends autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest-source]         depends base-4.20.2.0-64da
[sydtest-source]         depends bytestring-0.12.2.0-262e
[sydtest-source]         depends containers-0.7-504a
[sydtest-source]         depends deepseq-1.5.0.0-9a2c
[sydtest-source]         depends dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest-source]         depends fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest-source]         depends filepath-1.5.4.0-e600
[sydtest-source]         depends mtl-2.3.1-b4af
[sydtest-source]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest-source]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest-source]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest-source]         depends pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest-source]         depends quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest-source]         depends random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest-source]         depends random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest-source]         depends safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest-source]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest-source]         depends safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest-source]         depends stm-2.5.3.1-a2f3
[sydtest-source]         depends svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest-source]         depends sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest-source]         depends text-2.1.3-c691
[sydtest-source]         depends typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest-source]         depends vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest-source] Using Cabal-3.12.1.0 compiled by ghc-9.10
[sydtest-source] Using compiler: ghc-9.10.3
[sydtest-source] Using install prefix:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2
[sydtest-source] Executables installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/bin
[sydtest-source] Libraries installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest-source] Dynamic Libraries installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[sydtest-source] Private executables installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/libexec/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2
[sydtest-source] Data files installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/share/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2
[sydtest-source] Documentation installed in: /share/doc/sydtest-0.23.0.2
[sydtest-source] Configuration files installed in:
[sydtest-source] /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/etc
[sydtest-source] No alex found
[sydtest-source] Using ar found on system at:
[sydtest-source] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[sydtest-source] No c2hs found
[sydtest-source] No cpphs found
[sydtest-source] No doctest found
[sydtest-source] Using gcc version 14.3.0 given by user at:
[sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[sydtest-source] Using ghc version 9.10.3 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[sydtest-source] Using ghc-pkg version 9.10.3 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[sydtest-source] No ghcjs found
[sydtest-source] No ghcjs-pkg found
[sydtest-source] No greencard found
[sydtest-source] Using haddock version 2.31.1 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[sydtest-source] No happy found
[sydtest-source] Using haskell-suite found on system at: haskell-suite-dummy-location
[sydtest-source] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[sydtest-source] No hmake found
[sydtest-source] Using hpc version 0.69 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[sydtest-source] Using hsc2hs version 0.68.10 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[sydtest-source] Using hscolour version 1.25 found on system at:
[sydtest-source] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[sydtest-source] No jhc found
[sydtest-source] Using ld found on system at:
[sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[sydtest-source] No pkg-config found
[sydtest-source] Using runghc version 9.10.3 found on system at:
[sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[sydtest-source] Using strip version 2.44 found on system at:
[sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[sydtest-source] Using tar found on system at:
[sydtest-source] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[sydtest-source] No uhc found
[sydtest-source] Phase: buildPhase
[sydtest-source] Distribution quality warnings:
[sydtest-source] [long-synopsis] The 'synopsis' field is rather long (max 80 chars is
[sydtest-source] recommended).
[sydtest-source] [missing-upper-bounds] On library, these packages miss upper bounds:
[sydtest-source] - MonadRandom
[sydtest-source] - QuickCheck
[sydtest-source] - async
[sydtest-source] - autodocodec
[sydtest-source] - bytestring
[sydtest-source] - containers
[sydtest-source] - deepseq
[sydtest-source] - dlist
[sydtest-source] - fast-myers-diff
[sydtest-source] - filepath
[sydtest-source] - mtl
[sydtest-source] - opt-env-conf
[sydtest-source] - path
[sydtest-source] - path-io
[sydtest-source] - pretty-show
[sydtest-source] - quickcheck-io
[sydtest-source] - random
[sydtest-source] - random-shuffle
[sydtest-source] - safe
[sydtest-source] - safe-coloured-text
[sydtest-source] - stm
[sydtest-source] - svg-builder
[sydtest-source] - sydtest-mutation-runtime
[sydtest-source] - text
[sydtest-source] - typed-process
[sydtest-source] - vector
[sydtest-source] - ansi-terminal
[sydtest-source] - safe-coloured-text-terminfo
[sydtest-source] Please add them. There is more information at https://pvp.haskell.org/
[sydtest-source] Building source dist for sydtest-0.23.0.2...
[sydtest-source] Source tarball created: dist/sydtest-0.23.0.2.tar.gz
[sydtest-source] Phase: checkPhase
[sydtest-source] Phase: haddockPhase
[sydtest-source] Phase: installPhase
[sydtest-source] Phase: fixupPhase
Progress: 4 of 11 built
Building sydtest
[sydtest] Phase: setupCompilerEnvironmentPhase
[sydtest] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[sydtest] Phase: unpackPhase
[sydtest] unpacking source archive /nix/store/qjhckhqbs8i1njxzi6w853sszb7g8jk7-sydtest-source-0.23.0.2/sydtest-0.23.0.2.tar.gz
[sydtest] source root is sydtest-0.23.0.2
[sydtest] setting SOURCE_DATE_EPOCH to timestamp 1778688797 of file "sydtest-0.23.0.2/sydtest.cabal"
[sydtest] warning: file "sydtest-0.23.0.2/sydtest.cabal" may be generated; SOURCE_DATE_EPOCH may be non-deterministic
[sydtest] Phase: patchPhase
[sydtest] Phase: compileBuildDriverPhase
[sydtest] setupCompileFlags: -package-db=/build/tmp.g58OjzN1vK/setup-package.conf.d -threaded
[sydtest] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.g58OjzN1vK/Main.o )
[sydtest] [2 of 2] Linking Setup
[sydtest] Phase: updateAutotoolsGnuConfigScriptsPhase
[sydtest] Phase: configurePhase
[sydtest] configureFlags: --verbose --prefix=/nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/nix/store/drf9wd13xmy0j1p7f12cm3nnkbka8mn5-sydtest-0.23.0.2-doc/share/doc/sydtest-0.23.0.2 --with-gcc=gcc --package-db=/build/tmp.g58OjzN1vK/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Wunused-packages --ghc-options=-Werror --ghc-options=-Wno-deprecations --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[sydtest] Using Parsec parser
[sydtest] Configuring sydtest-0.23.0.2...
[sydtest] Dependency MonadRandom: using MonadRandom-0.6.2
[sydtest] Dependency QuickCheck: using QuickCheck-2.15.0.1
[sydtest] Dependency async: using async-2.2.5
[sydtest] Dependency autodocodec: using autodocodec-0.5.0.0
[sydtest] Dependency base >=4.7 && <5: using base-4.20.2.0
[sydtest] Dependency bytestring: using bytestring-0.12.2.0
[sydtest] Dependency containers: using containers-0.7
[sydtest] Dependency deepseq: using deepseq-1.5.0.0
[sydtest] Dependency dlist: using dlist-1.0
[sydtest] Dependency fast-myers-diff >=0.0.1: using fast-myers-diff-0.0.2
[sydtest] Dependency filepath: using filepath-1.5.4.0
[sydtest] Dependency mtl: using mtl-2.3.1
[sydtest] Dependency opt-env-conf >=0.10: using opt-env-conf-0.15.0.1
[sydtest] Dependency path: using path-0.9.6
[sydtest] Dependency path-io: using path-io-1.8.2
[sydtest] Dependency pretty-show: using pretty-show-1.10
[sydtest] Dependency quickcheck-io: using quickcheck-io-0.2.0
[sydtest] Dependency random: using random-1.2.1.3
[sydtest] Dependency random-shuffle: using random-shuffle-0.0.4
[sydtest] Dependency safe: using safe-0.3.21
[sydtest] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[sydtest] Dependency safe-coloured-text-terminfo: using
[sydtest] safe-coloured-text-terminfo-0.3.0.0
[sydtest] Dependency stm: using stm-2.5.3.1
[sydtest] Dependency svg-builder: using svg-builder-0.1.1
[sydtest] Dependency sydtest-mutation-runtime: using sydtest-mutation-runtime-0.0.0.0
[sydtest] Dependency text: using text-2.1.3
[sydtest] Dependency typed-process: using typed-process-0.2.13.0
[sydtest] Dependency vector: using vector-0.13.2.0
[sydtest] Source component graph: component lib
[sydtest] Configured component graph:
[sydtest]     component sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest]         include MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest]         include async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest]         include base-4.20.2.0-64da
[sydtest]         include bytestring-0.12.2.0-262e
[sydtest]         include containers-0.7-504a
[sydtest]         include deepseq-1.5.0.0-9a2c
[sydtest]         include dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest]         include fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest]         include filepath-1.5.4.0-e600
[sydtest]         include mtl-2.3.1-b4af
[sydtest]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest]         include quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest]         include random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest]         include random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest]         include safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest]         include stm-2.5.3.1-a2f3
[sydtest]         include svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest]         include text-2.1.3-c691
[sydtest]         include typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest]         include vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest] Linked component graph:
[sydtest]     unit sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest]         include MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest]         include async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest]         include base-4.20.2.0-64da
[sydtest]         include bytestring-0.12.2.0-262e
[sydtest]         include containers-0.7-504a
[sydtest]         include deepseq-1.5.0.0-9a2c
[sydtest]         include dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest]         include fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest]         include filepath-1.5.4.0-e600
[sydtest]         include mtl-2.3.1-b4af
[sydtest]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest]         include quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest]         include random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest]         include random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest]         include safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest]         include safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest]         include stm-2.5.3.1-a2f3
[sydtest]         include svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest]         include sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest]         include text-2.1.3-c691
[sydtest]         include typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest]         include vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest]         Test.Syd=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd,Test.Syd.Def=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def,Test.Syd.Def.Around=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Around,Test.Syd.Def.AroundAll=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.AroundAll,Test.Syd.Def.Golden=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Golden,Test.Syd.Def.Scenario=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Scenario,Test.Syd.Def.SetupFunc=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.SetupFunc,Test.Syd.Def.Specify=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.Specify,Test.Syd.Def.TestDefM=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Def.TestDefM,Test.Syd.Expectation=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Expectation,Test.Syd.HList=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.HList,Test.Syd.Modify=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Modify,Test.Syd.Mutation.Forest=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Mutation.Forest,Test.Syd.MutationMode=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.MutationMode,Test.Syd.OptParse=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.OptParse,Test.Syd.Output=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output,Test.Syd.Output.Common=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Common,Test.Syd.Output.Pretty=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Pretty,Test.Syd.Output.Terse=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Output.Terse,Test.Syd.Path=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Path,Test.Syd.ReRun=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.ReRun,Test.Syd.Run=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Run,Test.Syd.Runner=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner,Test.Syd.Runner.Asynchronous=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Asynchronous,Test.Syd.Runner.Single=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Single,Test.Syd.Runner.Synchronous=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous,Test.Syd.Runner.Synchronous.Interleaved=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous.Interleaved,Test.Syd.Runner.Synchronous.Separate=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Synchronous.Separate,Test.Syd.Runner.Wrappers=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.Runner.Wrappers,Test.Syd.SVG=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SVG,Test.Syd.SpecDef=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SpecDef,Test.Syd.SpecForest=sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw:Test.Syd.SpecForest
[sydtest] Ready component graph:
[sydtest]     definite sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest]         depends MonadRandom-0.6.2-4OUPXxFoP45JPrY3Hi7G9u
[sydtest]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[sydtest]         depends async-2.2.5-AVpB3MY1d7nLZpywuDqSMi
[sydtest]         depends autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[sydtest]         depends base-4.20.2.0-64da
[sydtest]         depends bytestring-0.12.2.0-262e
[sydtest]         depends containers-0.7-504a
[sydtest]         depends deepseq-1.5.0.0-9a2c
[sydtest]         depends dlist-1.0-2bT47M9he3qC9V8UeGXfX3
[sydtest]         depends fast-myers-diff-0.0.2-IH1IhqvSmc78PSV8V5d1yX
[sydtest]         depends filepath-1.5.4.0-e600
[sydtest]         depends mtl-2.3.1-b4af
[sydtest]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[sydtest]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[sydtest]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[sydtest]         depends pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[sydtest]         depends quickcheck-io-0.2.0-uOZJkNmNm67gZuqoT5mgz
[sydtest]         depends random-1.2.1.3-9T1sBqjfI7C3JconfAiPFk
[sydtest]         depends random-shuffle-0.0.4-730ncrKawDMDidTBZfhecB
[sydtest]         depends safe-0.3.21-3KkbrJIc4RVHGJea2Lg3Om
[sydtest]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[sydtest]         depends safe-coloured-text-terminfo-0.3.0.0-DAw6hIDCr4QLuqCDqY7ecg
[sydtest]         depends stm-2.5.3.1-a2f3
[sydtest]         depends svg-builder-0.1.1-5RHVKdPXgHp8o619RGrosD
[sydtest]         depends sydtest-mutation-runtime-0.0.0.0-6NLQU9FgCflC3T5utcSmV7
[sydtest]         depends text-2.1.3-c691
[sydtest]         depends typed-process-0.2.13.0-7OrVL3LKwQnF65e4jVhmYU
[sydtest]         depends vector-0.13.2.0-GDUCoiHhVuq2SKPTzzTr3a
[sydtest] Using Cabal-3.12.1.0 compiled by ghc-9.10
[sydtest] Using compiler: ghc-9.10.3
[sydtest] Using install prefix:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2
[sydtest] Executables installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/bin
[sydtest] Libraries installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest] Dynamic Libraries installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[sydtest] Private executables installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/libexec/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2
[sydtest] Data files installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/share/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2
[sydtest] Documentation installed in:
[sydtest] /nix/store/drf9wd13xmy0j1p7f12cm3nnkbka8mn5-sydtest-0.23.0.2-doc/share/doc/sydtest-0.23.0.2
[sydtest] Configuration files installed in:
[sydtest] /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/etc
[sydtest] No alex found
[sydtest] Using ar found on system at:
[sydtest] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[sydtest] No c2hs found
[sydtest] No cpphs found
[sydtest] No doctest found
[sydtest] Using gcc version 14.3.0 given by user at:
[sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[sydtest] Using ghc version 9.10.3 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[sydtest] Using ghc-pkg version 9.10.3 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[sydtest] No ghcjs found
[sydtest] No ghcjs-pkg found
[sydtest] No greencard found
[sydtest] Using haddock version 2.31.1 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[sydtest] No happy found
[sydtest] Using haskell-suite found on system at: haskell-suite-dummy-location
[sydtest] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[sydtest] No hmake found
[sydtest] Using hpc version 0.69 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[sydtest] Using hsc2hs version 0.68.10 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[sydtest] Using hscolour version 1.25 found on system at:
[sydtest] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[sydtest] No jhc found
[sydtest] Using ld found on system at:
[sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[sydtest] No pkg-config found
[sydtest] Using runghc version 9.10.3 found on system at:
[sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[sydtest] Using strip version 2.44 found on system at:
[sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[sydtest] Using tar found on system at:
[sydtest] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[sydtest] No uhc found
[sydtest] Phase: buildPhase
[sydtest] Preprocessing library for sydtest-0.23.0.2...
[sydtest] Building library for sydtest-0.23.0.2...
[sydtest] [ 1 of 33] Compiling Paths_sydtest    ( dist/build/autogen/Paths_sydtest.hs, dist/build/Paths_sydtest.o, dist/build/Paths_sydtest.dyn_o )
[sydtest] [ 2 of 33] Compiling Test.Syd.HList   ( src/Test/Syd/HList.hs, dist/build/Test/Syd/HList.o, dist/build/Test/Syd/HList.dyn_o )
[sydtest] [ 3 of 33] Compiling Test.Syd.Run     ( src/Test/Syd/Run.hs, dist/build/Test/Syd/Run.o, dist/build/Test/Syd/Run.dyn_o )
[sydtest] [ 4 of 33] Compiling Test.Syd.OptParse ( src/Test/Syd/OptParse.hs, dist/build/Test/Syd/OptParse.o, dist/build/Test/Syd/OptParse.dyn_o )
[sydtest] [ 5 of 33] Compiling Test.Syd.Expectation ( src/Test/Syd/Expectation.hs, dist/build/Test/Syd/Expectation.o, dist/build/Test/Syd/Expectation.dyn_o )
[sydtest] [ 6 of 33] Compiling Test.Syd.Def.Golden ( src/Test/Syd/Def/Golden.hs, dist/build/Test/Syd/Def/Golden.o, dist/build/Test/Syd/Def/Golden.dyn_o )
[sydtest] [ 7 of 33] Compiling Test.Syd.SpecForest ( src/Test/Syd/SpecForest.hs, dist/build/Test/Syd/SpecForest.o, dist/build/Test/Syd/SpecForest.dyn_o )
[sydtest] [ 8 of 33] Compiling Test.Syd.SpecDef ( src/Test/Syd/SpecDef.hs, dist/build/Test/Syd/SpecDef.o, dist/build/Test/Syd/SpecDef.dyn_o )
[sydtest] [ 9 of 33] Compiling Test.Syd.Runner.Wrappers ( src/Test/Syd/Runner/Wrappers.hs, dist/build/Test/Syd/Runner/Wrappers.o, dist/build/Test/Syd/Runner/Wrappers.dyn_o )
[sydtest] [10 of 33] Compiling Test.Syd.Runner.Single ( src/Test/Syd/Runner/Single.hs, dist/build/Test/Syd/Runner/Single.o, dist/build/Test/Syd/Runner/Single.dyn_o )
[sydtest] [11 of 33] Compiling Test.Syd.Mutation.Forest ( src/Test/Syd/Mutation/Forest.hs, dist/build/Test/Syd/Mutation/Forest.o, dist/build/Test/Syd/Mutation/Forest.dyn_o )
[sydtest] [12 of 33] Compiling Test.Syd.Def.TestDefM ( src/Test/Syd/Def/TestDefM.hs, dist/build/Test/Syd/Def/TestDefM.o, dist/build/Test/Syd/Def/TestDefM.dyn_o )
[sydtest] [13 of 33] Compiling Test.Syd.Def.Specify ( src/Test/Syd/Def/Specify.hs, dist/build/Test/Syd/Def/Specify.o, dist/build/Test/Syd/Def/Specify.dyn_o )
[sydtest] [14 of 33] Compiling Test.Syd.Def.Scenario ( src/Test/Syd/Def/Scenario.hs, dist/build/Test/Syd/Def/Scenario.o, dist/build/Test/Syd/Def/Scenario.dyn_o )
[sydtest] [15 of 33] Compiling Test.Syd.Def.AroundAll ( src/Test/Syd/Def/AroundAll.hs, dist/build/Test/Syd/Def/AroundAll.o, dist/build/Test/Syd/Def/AroundAll.dyn_o )
[sydtest] [16 of 33] Compiling Test.Syd.Def.Around ( src/Test/Syd/Def/Around.hs, dist/build/Test/Syd/Def/Around.o, dist/build/Test/Syd/Def/Around.dyn_o )
[sydtest] [17 of 33] Compiling Test.Syd.Def.SetupFunc ( src/Test/Syd/Def/SetupFunc.hs, dist/build/Test/Syd/Def/SetupFunc.o, dist/build/Test/Syd/Def/SetupFunc.dyn_o )
[sydtest] [18 of 33] Compiling Test.Syd.Path    ( src/Test/Syd/Path.hs, dist/build/Test/Syd/Path.o, dist/build/Test/Syd/Path.dyn_o )
[sydtest] [19 of 33] Compiling Test.Syd.Def     ( src/Test/Syd/Def.hs, dist/build/Test/Syd/Def.o, dist/build/Test/Syd/Def.dyn_o )
[sydtest] [20 of 33] Compiling Test.Syd.Modify  ( src/Test/Syd/Modify.hs, dist/build/Test/Syd/Modify.o, dist/build/Test/Syd/Modify.dyn_o )
[sydtest] [21 of 33] Compiling Test.Syd.SVG     ( src/Test/Syd/SVG.hs, dist/build/Test/Syd/SVG.o, dist/build/Test/Syd/SVG.dyn_o )
[sydtest] [22 of 33] Compiling Test.Syd.Runner.Synchronous.Separate ( src/Test/Syd/Runner/Synchronous/Separate.hs, dist/build/Test/Syd/Runner/Synchronous/Separate.o, dist/build/Test/Syd/Runner/Synchronous/Separate.dyn_o )
[sydtest] [23 of 33] Compiling Test.Syd.ReRun   ( src/Test/Syd/ReRun.hs, dist/build/Test/Syd/ReRun.o, dist/build/Test/Syd/ReRun.dyn_o )
[sydtest] [24 of 33] Compiling Test.Syd.Output.Common ( src/Test/Syd/Output/Common.hs, dist/build/Test/Syd/Output/Common.o, dist/build/Test/Syd/Output/Common.dyn_o )
[sydtest] [25 of 33] Compiling Test.Syd.Output.Terse ( src/Test/Syd/Output/Terse.hs, dist/build/Test/Syd/Output/Terse.o, dist/build/Test/Syd/Output/Terse.dyn_o )
[sydtest] [26 of 33] Compiling Test.Syd.Output.Pretty ( src/Test/Syd/Output/Pretty.hs, dist/build/Test/Syd/Output/Pretty.o, dist/build/Test/Syd/Output/Pretty.dyn_o )
[sydtest] [27 of 33] Compiling Test.Syd.Output  ( src/Test/Syd/Output.hs, dist/build/Test/Syd/Output.o, dist/build/Test/Syd/Output.dyn_o )
[sydtest] [28 of 33] Compiling Test.Syd.Runner.Synchronous.Interleaved ( src/Test/Syd/Runner/Synchronous/Interleaved.hs, dist/build/Test/Syd/Runner/Synchronous/Interleaved.o, dist/build/Test/Syd/Runner/Synchronous/Interleaved.dyn_o )
[sydtest] [29 of 33] Compiling Test.Syd.Runner.Synchronous ( src/Test/Syd/Runner/Synchronous.hs, dist/build/Test/Syd/Runner/Synchronous.o, dist/build/Test/Syd/Runner/Synchronous.dyn_o )
[sydtest] [30 of 33] Compiling Test.Syd.Runner.Asynchronous ( src/Test/Syd/Runner/Asynchronous.hs, dist/build/Test/Syd/Runner/Asynchronous.o, dist/build/Test/Syd/Runner/Asynchronous.dyn_o )
[sydtest] [31 of 33] Compiling Test.Syd.Runner  ( src/Test/Syd/Runner.hs, dist/build/Test/Syd/Runner.o, dist/build/Test/Syd/Runner.dyn_o )
[sydtest] [32 of 33] Compiling Test.Syd.MutationMode ( src/Test/Syd/MutationMode.hs, dist/build/Test/Syd/MutationMode.o, dist/build/Test/Syd/MutationMode.dyn_o )
[sydtest] [33 of 33] Compiling Test.Syd         ( src/Test/Syd.hs, dist/build/Test/Syd.o, dist/build/Test/Syd.dyn_o )
[sydtest] [ 1 of 33] Compiling Paths_sydtest    ( dist/build/autogen/Paths_sydtest.hs, dist/build/Paths_sydtest.p_o )
[sydtest] [ 2 of 33] Compiling Test.Syd.HList   ( src/Test/Syd/HList.hs, dist/build/Test/Syd/HList.p_o )
[sydtest] [ 3 of 33] Compiling Test.Syd.Run     ( src/Test/Syd/Run.hs, dist/build/Test/Syd/Run.p_o )
[sydtest] [ 4 of 33] Compiling Test.Syd.OptParse ( src/Test/Syd/OptParse.hs, dist/build/Test/Syd/OptParse.p_o )
[sydtest] [ 5 of 33] Compiling Test.Syd.Expectation ( src/Test/Syd/Expectation.hs, dist/build/Test/Syd/Expectation.p_o )
[sydtest] [ 6 of 33] Compiling Test.Syd.Def.Golden ( src/Test/Syd/Def/Golden.hs, dist/build/Test/Syd/Def/Golden.p_o )
[sydtest] [ 7 of 33] Compiling Test.Syd.SpecForest ( src/Test/Syd/SpecForest.hs, dist/build/Test/Syd/SpecForest.p_o )
[sydtest] [ 8 of 33] Compiling Test.Syd.SpecDef ( src/Test/Syd/SpecDef.hs, dist/build/Test/Syd/SpecDef.p_o )
[sydtest] [ 9 of 33] Compiling Test.Syd.Runner.Wrappers ( src/Test/Syd/Runner/Wrappers.hs, dist/build/Test/Syd/Runner/Wrappers.p_o )
[sydtest] [10 of 33] Compiling Test.Syd.Runner.Single ( src/Test/Syd/Runner/Single.hs, dist/build/Test/Syd/Runner/Single.p_o )
[sydtest] [11 of 33] Compiling Test.Syd.Mutation.Forest ( src/Test/Syd/Mutation/Forest.hs, dist/build/Test/Syd/Mutation/Forest.p_o )
[sydtest] [12 of 33] Compiling Test.Syd.Def.TestDefM ( src/Test/Syd/Def/TestDefM.hs, dist/build/Test/Syd/Def/TestDefM.p_o )
[sydtest] [13 of 33] Compiling Test.Syd.Def.Specify ( src/Test/Syd/Def/Specify.hs, dist/build/Test/Syd/Def/Specify.p_o )
[sydtest] [14 of 33] Compiling Test.Syd.Def.Scenario ( src/Test/Syd/Def/Scenario.hs, dist/build/Test/Syd/Def/Scenario.p_o )
[sydtest] [15 of 33] Compiling Test.Syd.Def.AroundAll ( src/Test/Syd/Def/AroundAll.hs, dist/build/Test/Syd/Def/AroundAll.p_o )
[sydtest] [16 of 33] Compiling Test.Syd.Def.Around ( src/Test/Syd/Def/Around.hs, dist/build/Test/Syd/Def/Around.p_o )
[sydtest] [17 of 33] Compiling Test.Syd.Def.SetupFunc ( src/Test/Syd/Def/SetupFunc.hs, dist/build/Test/Syd/Def/SetupFunc.p_o )
[sydtest] [18 of 33] Compiling Test.Syd.Path    ( src/Test/Syd/Path.hs, dist/build/Test/Syd/Path.p_o )
[sydtest] [19 of 33] Compiling Test.Syd.Def     ( src/Test/Syd/Def.hs, dist/build/Test/Syd/Def.p_o )
[sydtest] [20 of 33] Compiling Test.Syd.Modify  ( src/Test/Syd/Modify.hs, dist/build/Test/Syd/Modify.p_o )
[sydtest] [21 of 33] Compiling Test.Syd.SVG     ( src/Test/Syd/SVG.hs, dist/build/Test/Syd/SVG.p_o )
[sydtest] [22 of 33] Compiling Test.Syd.Runner.Synchronous.Separate ( src/Test/Syd/Runner/Synchronous/Separate.hs, dist/build/Test/Syd/Runner/Synchronous/Separate.p_o )
[sydtest] [23 of 33] Compiling Test.Syd.ReRun   ( src/Test/Syd/ReRun.hs, dist/build/Test/Syd/ReRun.p_o )
[sydtest] [24 of 33] Compiling Test.Syd.Output.Common ( src/Test/Syd/Output/Common.hs, dist/build/Test/Syd/Output/Common.p_o )
[sydtest] [25 of 33] Compiling Test.Syd.Output.Terse ( src/Test/Syd/Output/Terse.hs, dist/build/Test/Syd/Output/Terse.p_o )
[sydtest] [26 of 33] Compiling Test.Syd.Output.Pretty ( src/Test/Syd/Output/Pretty.hs, dist/build/Test/Syd/Output/Pretty.p_o )
[sydtest] [27 of 33] Compiling Test.Syd.Output  ( src/Test/Syd/Output.hs, dist/build/Test/Syd/Output.p_o )
[sydtest] [28 of 33] Compiling Test.Syd.Runner.Synchronous.Interleaved ( src/Test/Syd/Runner/Synchronous/Interleaved.hs, dist/build/Test/Syd/Runner/Synchronous/Interleaved.p_o )
[sydtest] [29 of 33] Compiling Test.Syd.Runner.Synchronous ( src/Test/Syd/Runner/Synchronous.hs, dist/build/Test/Syd/Runner/Synchronous.p_o )
[sydtest] [30 of 33] Compiling Test.Syd.Runner.Asynchronous ( src/Test/Syd/Runner/Asynchronous.hs, dist/build/Test/Syd/Runner/Asynchronous.p_o )
[sydtest] [31 of 33] Compiling Test.Syd.Runner  ( src/Test/Syd/Runner.hs, dist/build/Test/Syd/Runner.p_o )
[sydtest] [32 of 33] Compiling Test.Syd.MutationMode ( src/Test/Syd/MutationMode.hs, dist/build/Test/Syd/MutationMode.p_o )
[sydtest] [33 of 33] Compiling Test.Syd         ( src/Test/Syd.hs, dist/build/Test/Syd.p_o )
[sydtest] buildPhase completed in 45 seconds
[sydtest] Phase: checkPhase
[sydtest] Package has no test suites.
[sydtest] Phase: haddockPhase
[sydtest] Preprocessing library for sydtest-0.23.0.2...
[sydtest] Running Haddock on library for sydtest-0.23.0.2...
[sydtest] Warning: The documentation for the following packages are not installed. No
[sydtest] links will be generated to these packages: attoparsec-0.14.4,
[sydtest] attoparsec-0.14.4, libyaml-clib-0.2.5, opt-env-conf-0.15.0.1, path-0.9.6,
[sydtest] path-0.9.6, vector-0.13.2.0
[sydtest] [ 1 of 33] Compiling Paths_sydtest    ( dist/build/autogen/Paths_sydtest.hs, /build/ghc1723_0/ghc_10.o, /build/ghc1723_0/ghc_10.dyn_o )
[sydtest] [ 2 of 33] Compiling Test.Syd.HList   ( src/Test/Syd/HList.hs, /build/ghc1723_0/ghc_30.o, /build/ghc1723_0/ghc_30.dyn_o )
[sydtest] [ 3 of 33] Compiling Test.Syd.Run     ( src/Test/Syd/Run.hs, /build/ghc1723_0/ghc_44.o, /build/ghc1723_0/ghc_44.dyn_o )
[sydtest] [ 4 of 33] Compiling Test.Syd.OptParse ( src/Test/Syd/OptParse.hs, /build/ghc1723_0/ghc_34.o, /build/ghc1723_0/ghc_34.dyn_o )
[sydtest] [ 5 of 33] Compiling Test.Syd.Expectation ( src/Test/Syd/Expectation.hs, /build/ghc1723_0/ghc_28.o, /build/ghc1723_0/ghc_28.dyn_o )
[sydtest] [ 6 of 33] Compiling Test.Syd.Def.Golden ( src/Test/Syd/Def/Golden.hs, /build/ghc1723_0/ghc_18.o, /build/ghc1723_0/ghc_18.dyn_o )
[sydtest] [ 7 of 33] Compiling Test.Syd.SpecForest ( src/Test/Syd/SpecForest.hs, /build/ghc1723_0/ghc_58.o, /build/ghc1723_0/ghc_58.dyn_o )
[sydtest] [ 8 of 33] Compiling Test.Syd.SpecDef ( src/Test/Syd/SpecDef.hs, /build/ghc1723_0/ghc_56.o, /build/ghc1723_0/ghc_56.dyn_o )
[sydtest] [ 9 of 33] Compiling Test.Syd.Runner.Wrappers ( src/Test/Syd/Runner/Wrappers.hs, /build/ghc1723_0/ghc_54.o, /build/ghc1723_0/ghc_54.dyn_o )
[sydtest] [10 of 33] Compiling Test.Syd.Runner.Single ( src/Test/Syd/Runner/Single.hs, /build/ghc1723_0/ghc_46.o, /build/ghc1723_0/ghc_46.dyn_o )
[sydtest] [11 of 33] Compiling Test.Syd.Mutation.Forest ( src/Test/Syd/Mutation/Forest.hs, /build/ghc1723_0/ghc_32.o, /build/ghc1723_0/ghc_32.dyn_o )
[sydtest] [12 of 33] Compiling Test.Syd.Def.TestDefM ( src/Test/Syd/Def/TestDefM.hs, /build/ghc1723_0/ghc_26.o, /build/ghc1723_0/ghc_26.dyn_o )
[sydtest] [13 of 33] Compiling Test.Syd.Def.Specify ( src/Test/Syd/Def/Specify.hs, /build/ghc1723_0/ghc_24.o, /build/ghc1723_0/ghc_24.dyn_o )
[sydtest] [14 of 33] Compiling Test.Syd.Def.Scenario ( src/Test/Syd/Def/Scenario.hs, /build/ghc1723_0/ghc_20.o, /build/ghc1723_0/ghc_20.dyn_o )
[sydtest] [15 of 33] Compiling Test.Syd.Def.AroundAll ( src/Test/Syd/Def/AroundAll.hs, /build/ghc1723_0/ghc_16.o, /build/ghc1723_0/ghc_16.dyn_o )
[sydtest] [16 of 33] Compiling Test.Syd.Def.Around ( src/Test/Syd/Def/Around.hs, /build/ghc1723_0/ghc_14.o, /build/ghc1723_0/ghc_14.dyn_o )
[sydtest] [17 of 33] Compiling Test.Syd.Def.SetupFunc ( src/Test/Syd/Def/SetupFunc.hs, /build/ghc1723_0/ghc_22.o, /build/ghc1723_0/ghc_22.dyn_o )
[sydtest] [18 of 33] Compiling Test.Syd.Path    ( src/Test/Syd/Path.hs, nothing )
[sydtest] [19 of 33] Compiling Test.Syd.Def     ( src/Test/Syd/Def.hs, /build/ghc1723_0/ghc_12.o, /build/ghc1723_0/ghc_12.dyn_o )
[sydtest] [20 of 33] Compiling Test.Syd.Modify  ( src/Test/Syd/Modify.hs, nothing )
[sydtest] [21 of 33] Compiling Test.Syd.SVG     ( src/Test/Syd/SVG.hs, nothing )
[sydtest] [22 of 33] Compiling Test.Syd.Runner.Synchronous.Separate ( src/Test/Syd/Runner/Synchronous/Separate.hs, /build/ghc1723_0/ghc_52.o, /build/ghc1723_0/ghc_52.dyn_o )
[sydtest] [23 of 33] Compiling Test.Syd.ReRun   ( src/Test/Syd/ReRun.hs, nothing )
[sydtest] [24 of 33] Compiling Test.Syd.Output.Common ( src/Test/Syd/Output/Common.hs, /build/ghc1723_0/ghc_38.o, /build/ghc1723_0/ghc_38.dyn_o )
[sydtest] [25 of 33] Compiling Test.Syd.Output.Terse ( src/Test/Syd/Output/Terse.hs, /build/ghc1723_0/ghc_42.o, /build/ghc1723_0/ghc_42.dyn_o )
[sydtest] [26 of 33] Compiling Test.Syd.Output.Pretty ( src/Test/Syd/Output/Pretty.hs, /build/ghc1723_0/ghc_40.o, /build/ghc1723_0/ghc_40.dyn_o )
[sydtest] [27 of 33] Compiling Test.Syd.Output  ( src/Test/Syd/Output.hs, /build/ghc1723_0/ghc_36.o, /build/ghc1723_0/ghc_36.dyn_o )
[sydtest] [28 of 33] Compiling Test.Syd.Runner.Synchronous.Interleaved ( src/Test/Syd/Runner/Synchronous/Interleaved.hs, /build/ghc1723_0/ghc_50.o, /build/ghc1723_0/ghc_50.dyn_o )
[sydtest] [29 of 33] Compiling Test.Syd.Runner.Synchronous ( src/Test/Syd/Runner/Synchronous.hs, /build/ghc1723_0/ghc_48.o, /build/ghc1723_0/ghc_48.dyn_o )
[sydtest] [30 of 33] Compiling Test.Syd.Runner.Asynchronous ( src/Test/Syd/Runner/Asynchronous.hs, nothing )
[sydtest] [31 of 33] Compiling Test.Syd.Runner  ( src/Test/Syd/Runner.hs, nothing )
[sydtest] [32 of 33] Compiling Test.Syd.MutationMode ( src/Test/Syd/MutationMode.hs, nothing )
[sydtest] [33 of 33] Compiling Test.Syd         ( src/Test/Syd.hs, nothing )
[sydtest] Haddock coverage:
[sydtest]    0% (  0 /  3) in 'Test.Syd.HList'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     HList (src/Test/Syd/HList.hs:13)
[sydtest]     HContains (src/Test/Syd/HList.hs:17)
[sydtest] Warning: 'SomeException' is ambiguous. It is defined
[sydtest]     * in ‘GHC.Internal.Exception.Type’
[sydtest]     * in ‘GHC.Internal.Exception.Type’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘GHC.Internal.Exception.Type’
[sydtest] Warning: 'shouldBe' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'golden' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'aroundAll' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'around' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'StagedGolden' is ambiguous. It is defined
[sydtest]     * at src/Test/Syd/Run.hs:383:5
[sydtest]     * at src/Test/Syd/Run.hs:382:1
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined at src/Test/Syd/Run.hs:382:1
[sydtest] Warning: 'timeit' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   21% (  8 / 37) in 'Test.Syd.Run'
[sydtest]   Missing documentation for:
[sydtest]     IsTest (src/Test/Syd/Run.hs:45)
[sydtest]     runPureTestWithArg (src/Test/Syd/Run.hs:81)
[sydtest]     applyWrapper2 (src/Test/Syd/Run.hs:106)
[sydtest]     runIOTestWithArg (src/Test/Syd/Run.hs:148)
[sydtest]     makeQuickCheckArgs (src/Test/Syd/Run.hs:188)
[sydtest]     runPropertyTestWithArg (src/Test/Syd/Run.hs:207)
[sydtest]     aroundProperty (src/Test/Syd/Run.hs:274)
[sydtest]     aroundProp (src/Test/Syd/Run.hs:277)
[sydtest]     aroundRose (src/Test/Syd/Run.hs:280)
[sydtest]     runGoldenTestWithArg (src/Test/Syd/Run.hs:347)
[sydtest]     StagedGolden (src/Test/Syd/Run.hs:382)
[sydtest]     runStagedGoldenWithArg (src/Test/Syd/Run.hs:412)
[sydtest]     exceptionHandlers (src/Test/Syd/Run.hs:475)
[sydtest]     Test (src/Test/Syd/Run.hs:487)
[sydtest]     TestRunSettings (src/Test/Syd/Run.hs:489)
[sydtest]     defaultTestRunSettings (src/Test/Syd/Run.hs:501)
[sydtest]     SeedSetting (src/Test/Syd/Run.hs:519)
[sydtest]     TestRunResult (src/Test/Syd/Run.hs:565)
[sydtest]     TestStatus (src/Test/Syd/Run.hs:579)
[sydtest]     addContextToException (src/Test/Syd/Run.hs:643)
[sydtest]     GoldenCase (src/Test/Syd/Run.hs:645)
[sydtest]     ProgressReporter (src/Test/Syd/Run.hs:651)
[sydtest]     noProgressReporter (src/Test/Syd/Run.hs:654)
[sydtest]     reportProgress (src/Test/Syd/Run.hs:657)
[sydtest]     Progress (src/Test/Syd/Run.hs:659)
[sydtest]     timeItDuration (src/Test/Syd/Run.hs:694)
[sydtest]     timeItBeginEnd (src/Test/Syd/Run.hs:699)
[sydtest]     Timed (src/Test/Syd/Run.hs:705)
[sydtest]     timedTime (src/Test/Syd/Run.hs:716)
[sydtest] Warning: 'TestCoverageMap' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   21% (  3 / 14) in 'Test.Syd.OptParse'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     getSettings (src/Test/Syd/OptParse.hs:39)
[sydtest]     defaultSettings (src/Test/Syd/OptParse.hs:251)
[sydtest]     defaultTimeout (src/Test/Syd/OptParse.hs:289)
[sydtest]     defaultRetries (src/Test/Syd/OptParse.hs:292)
[sydtest]     detectTerminalCapabilities (src/Test/Syd/OptParse.hs:303)
[sydtest]     Flags (src/Test/Syd/OptParse.hs:309)
[sydtest]     Timeout (src/Test/Syd/OptParse.hs:614)
[sydtest]     Threads (src/Test/Syd/OptParse.hs:647)
[sydtest]     Iterations (src/Test/Syd/OptParse.hs:708)
[sydtest]     ReportProgress (src/Test/Syd/OptParse.hs:753)
[sydtest] Warning: 'String' is ambiguous. It is defined
[sydtest]     * in ‘Text.Show.Value’
[sydtest]     * in ‘GHC.Internal.Base’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘GHC.Internal.Base’
[sydtest] Warning: 'a' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: '()' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   82% ( 23 / 28) in 'Test.Syd.Expectation'
[sydtest]   Missing documentation for:
[sydtest]     anyException (src/Test/Syd/Expectation.hs:175)
[sydtest]     anyErrorCall (src/Test/Syd/Expectation.hs:178)
[sydtest]     errorCall (src/Test/Syd/Expectation.hs:181)
[sydtest]     anyIOException (src/Test/Syd/Expectation.hs:184)
[sydtest]     anyArithException (src/Test/Syd/Expectation.hs:187)
[sydtest] Warning: Test.Syd.Def.Golden: Could not find documentation for exported module: Test.Syd.Def.Golden
[sydtest]   93% ( 14 / 15) in 'Test.Syd.Def.Golden'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]    0% (  0 /  5) in 'Test.Syd.SpecForest'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     SpecForest (src/Test/Syd/SpecForest.hs:10)
[sydtest]     SpecTree (src/Test/Syd/SpecForest.hs:12)
[sydtest]     flattenSpecForest (src/Test/Syd/SpecForest.hs:34)
[sydtest]     flattenSpecTree (src/Test/Syd/SpecForest.hs:37)
[sydtest] Warning: 'aroundAll' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'around' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'TestDefM' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: '()' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]    7% (  2 / 28) in 'Test.Syd.SpecDef'
[sydtest]   Missing documentation for:
[sydtest]     TDef (src/Test/Syd/SpecDef.hs:41)
[sydtest]     TestForest (src/Test/Syd/SpecDef.hs:44)
[sydtest]     TestTree (src/Test/Syd/SpecDef.hs:46)
[sydtest]     SpecDefForest (src/Test/Syd/SpecDef.hs:48)
[sydtest]     filterTestForest (src/Test/Syd/SpecDef.hs:221)
[sydtest]     randomiseTestForest (src/Test/Syd/SpecDef.hs:260)
[sydtest]     markSpecForestAsPending (src/Test/Syd/SpecDef.hs:287)
[sydtest]     Parallelism (src/Test/Syd/SpecDef.hs:311)
[sydtest]     ExecutionOrderRandomisation (src/Test/Syd/SpecDef.hs:316)
[sydtest]     FlakinessMode (src/Test/Syd/SpecDef.hs:321)
[sydtest]     ExpectationMode (src/Test/Syd/SpecDef.hs:326)
[sydtest]     ResultForest (src/Test/Syd/SpecDef.hs:331)
[sydtest]     ResultTree (src/Test/Syd/SpecDef.hs:333)
[sydtest]     computeTestSuiteStats (src/Test/Syd/SpecDef.hs:336)
[sydtest]     TestSuiteStats (src/Test/Syd/SpecDef.hs:372)
[sydtest]     shouldExitFail (src/Test/Syd/SpecDef.hs:406)
[sydtest]     anyFailedTests (src/Test/Syd/SpecDef.hs:420)
[sydtest]     TestRunReport (src/Test/Syd/SpecDef.hs:423)
[sydtest]     testRunReportReportedRun (src/Test/Syd/SpecDef.hs:432)
[sydtest]     testRunReportFailed (src/Test/Syd/SpecDef.hs:442)
[sydtest]     testRunReportStatus (src/Test/Syd/SpecDef.hs:446)
[sydtest]     testStatusMatchesExpectationMode (src/Test/Syd/SpecDef.hs:468)
[sydtest]     testRunReportExamples (src/Test/Syd/SpecDef.hs:474)
[sydtest]     testRunResultExamples (src/Test/Syd/SpecDef.hs:477)
[sydtest]     testRunReportWasFlaky (src/Test/Syd/SpecDef.hs:481)
[sydtest]     testRunReportRetries (src/Test/Syd/SpecDef.hs:489)
[sydtest]    0% (  0 /  8) in 'Test.Syd.Runner.Wrappers'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     Next (src/Test/Syd/Runner/Wrappers.hs:15)
[sydtest]     extractNext (src/Test/Syd/Runner/Wrappers.hs:19)
[sydtest]     failFastNext (src/Test/Syd/Runner/Wrappers.hs:23)
[sydtest]     applySimpleWrapper (src/Test/Syd/Runner/Wrappers.hs:33)
[sydtest]     applySimpleWrapper' (src/Test/Syd/Runner/Wrappers.hs:48)
[sydtest]     applySimpleWrapper'' (src/Test/Syd/Runner/Wrappers.hs:63)
[sydtest]     applySimpleWrapper2 (src/Test/Syd/Runner/Wrappers.hs:76)
[sydtest] Warning: 'maxRetries' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   50% (  1 /  2) in 'Test.Syd.Runner.Single'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest] Warning: 'TestId' is ambiguous. It is defined
[sydtest]     * in ‘Test.Syd.Mutation.TestId’
[sydtest]     * in ‘Test.Syd.Mutation.TestId’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘Test.Syd.Mutation.TestId’
[sydtest]  100% (  8 /  8) in 'Test.Syd.Mutation.Forest'
[sydtest] Warning: 'aroundAll' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'around' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'TestDefM' is ambiguous. It is defined
[sydtest]     * at src/Test/Syd/Def/TestDefM.hs:47:52
[sydtest]     * at src/Test/Syd/Def/TestDefM.hs:47:1
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined at src/Test/Syd/Def/TestDefM.hs:47:1
[sydtest] Warning: '()' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'describe' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   54% (  6 / 11) in 'Test.Syd.Def.TestDefM'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     TestDefEnv (src/Test/Syd/Def/TestDefM.hs:59)
[sydtest]     execTestDefM (src/Test/Syd/Def/TestDefM.hs:66)
[sydtest]     runTestDefM (src/Test/Syd/Def/TestDefM.hs:69)
[sydtest]     toTestRunSettings (src/Test/Syd/Def/TestDefM.hs:103)
[sydtest]   80% ( 21 / 26) in 'Test.Syd.Def.Specify'
[sydtest]   Missing documentation for:
[sydtest]     xdescribe (src/Test/Syd/Def/Specify.hs:74)
[sydtest]     xit (src/Test/Syd/Def/Specify.hs:195)
[sydtest]     xitWithOuter (src/Test/Syd/Def/Specify.hs:295)
[sydtest]     xitWithBoth (src/Test/Syd/Def/Specify.hs:396)
[sydtest]     xitWithAll (src/Test/Syd/Def/Specify.hs:465)
[sydtest]   66% (  2 /  3) in 'Test.Syd.Def.Scenario'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest] Warning: 'a' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'b' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'around_' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]  100% ( 12 / 12) in 'Test.Syd.Def.AroundAll'
[sydtest] Warning: 'inner' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'newInner' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'oldInner' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'c' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'd' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]   90% ( 10 / 11) in 'Test.Syd.Def.Around'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest] Warning: 'SetupFunc' is ambiguous. It is defined
[sydtest]     * at src/Test/Syd/Def/SetupFunc.hs:30:30
[sydtest]     * at src/Test/Syd/Def/SetupFunc.hs:30:1
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined at src/Test/Syd/Def/SetupFunc.hs:30:1
[sydtest] Warning: 'resource' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest]  100% ( 12 / 12) in 'Test.Syd.Def.SetupFunc'
[sydtest]   50% (  2 /  4) in 'Test.Syd.Path'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     tempBinaryFileWithContentsSetupFunc (src/Test/Syd/Path.hs:31)
[sydtest]  100% (  9 /  9) in 'Test.Syd.Def'
[sydtest]   74% ( 29 / 39) in 'Test.Syd.Modify'
[sydtest]   Missing documentation for:
[sydtest]     modifyMaxSuccess (src/Test/Syd/Modify.hs:64)
[sydtest]     modifyMaxDiscardRatio (src/Test/Syd/Modify.hs:67)
[sydtest]     modifyMaxSize (src/Test/Syd/Modify.hs:70)
[sydtest]     modifyMaxShrinks (src/Test/Syd/Modify.hs:73)
[sydtest]     modifyRunSettings (src/Test/Syd/Modify.hs:61)
[sydtest]     TestRunSettings (src/Test/Syd/Run.hs:489)
[sydtest]     Parallelism (src/Test/Syd/SpecDef.hs:311)
[sydtest]     ExecutionOrderRandomisation (src/Test/Syd/SpecDef.hs:316)
[sydtest]     FlakinessMode (src/Test/Syd/SpecDef.hs:321)
[sydtest]     ExpectationMode (src/Test/Syd/SpecDef.hs:326)
[sydtest]    0% (  0 /  2) in 'Test.Syd.SVG'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     writeSvgReport (src/Test/Syd/SVG.hs:18)
[sydtest]    0% (  0 /  2) in 'Test.Syd.Runner.Synchronous.Separate'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     runSpecForestSynchronously (src/Test/Syd/Runner/Synchronous/Separate.hs:21)
[sydtest]    0% (  0 /  2) in 'Test.Syd.ReRun'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     withRerunByReport (src/Test/Syd/ReRun.hs:35)
[sydtest] Warning: 'Chunk' is ambiguous. It is defined
[sydtest]     * in ‘Text.Colour.Chunk’
[sydtest]     * in ‘Text.Colour.Chunk’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘Text.Colour.Chunk’
[sydtest]    4% (  1 / 22) in 'Test.Syd.Output.Common'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     padding (src/Test/Syd/Output/Common.hs:28)
[sydtest]     paddingSize (src/Test/Syd/Output/Common.hs:31)
[sydtest]     orange (src/Test/Syd/Output/Common.hs:34)
[sydtest]     darkRed (src/Test/Syd/Output/Common.hs:37)
[sydtest]     statusColour (src/Test/Syd/Output/Common.hs:40)
[sydtest]     statusCheckMark (src/Test/Syd/Output/Common.hs:45)
[sydtest]     timeChunkFor (src/Test/Syd/Output/Common.hs:50)
[sydtest]     stringChunks (src/Test/Syd/Output/Common.hs:63)
[sydtest]     indexed (src/Test/Syd/Output/Common.hs:68)
[sydtest]     commaList (src/Test/Syd/Output/Common.hs:71)
[sydtest]     mContextChunks (src/Test/Syd/Output/Common.hs:76)
[sydtest]     outputSomeException (src/Test/Syd/Output/Common.hs:79)
[sydtest]     outputAssertion (src/Test/Syd/Output/Common.hs:93)
[sydtest]     outputEqualityAssertionFailed (src/Test/Syd/Output/Common.hs:143)
[sydtest]     formatDiff (src/Test/Syd/Output/Common.hs:155)
[sydtest]     outputNotEqualAssertionFailed (src/Test/Syd/Output/Common.hs:201)
[sydtest]     outputPredicateSuccessAssertionFailed (src/Test/Syd/Output/Common.hs:214)
[sydtest]     outputPredicateFailAssertionFailed (src/Test/Syd/Output/Common.hs:223)
[sydtest]     resultForestWidth (src/Test/Syd/Output/Common.hs:232)
[sydtest]     specForestWidth (src/Test/Syd/Output/Common.hs:244)
[sydtest]   80% (  4 /  5) in 'Test.Syd.Output.Terse'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]    0% (  0 / 25) in 'Test.Syd.Output.Pretty'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     renderPrettyReport (src/Test/Syd/Output/Pretty.hs:28)
[sydtest]     outputResultReport (src/Test/Syd/Output/Pretty.hs:35)
[sydtest]     outputPrettySummary (src/Test/Syd/Output/Pretty.hs:47)
[sydtest]     outputFailuresHeader (src/Test/Syd/Output/Pretty.hs:60)
[sydtest]     outputFailuresWithHeading (src/Test/Syd/Output/Pretty.hs:63)
[sydtest]     outputStats (src/Test/Syd/Output/Pretty.hs:73)
[sydtest]     outputProfilingInfo (src/Test/Syd/Output/Pretty.hs:121)
[sydtest]     outputTestsHeader (src/Test/Syd/Output/Pretty.hs:138)
[sydtest]     outputHeader (src/Test/Syd/Output/Pretty.hs:141)
[sydtest]     outputSpecForest (src/Test/Syd/Output/Pretty.hs:147)
[sydtest]     outputSpecTree (src/Test/Syd/Output/Pretty.hs:150)
[sydtest]     outputDescribeLine (src/Test/Syd/Output/Pretty.hs:157)
[sydtest]     outputSpecifyLines (src/Test/Syd/Output/Pretty.hs:160)
[sydtest]     exampleNrChunk (src/Test/Syd/Output/Pretty.hs:194)
[sydtest]     retriesChunks (src/Test/Syd/Output/Pretty.hs:201)
[sydtest]     labelsChunks (src/Test/Syd/Output/Pretty.hs:218)
[sydtest]     classesChunks (src/Test/Syd/Output/Pretty.hs:243)
[sydtest]     tablesChunks (src/Test/Syd/Output/Pretty.hs:264)
[sydtest]     outputPendingLines (src/Test/Syd/Output/Pretty.hs:287)
[sydtest]     outputFailureLabels (src/Test/Syd/Output/Pretty.hs:297)
[sydtest]     outputFailureClasses (src/Test/Syd/Output/Pretty.hs:303)
[sydtest]     outputGoldenCase (src/Test/Syd/Output/Pretty.hs:309)
[sydtest]     spacingChunk (src/Test/Syd/Output/Pretty.hs:318)
[sydtest]     outputFailures (src/Test/Syd/Output/Pretty.hs:331)
[sydtest]   71% (  5 /  7) in 'Test.Syd.Output'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     printOutputSpecForest (src/Test/Syd/Output.hs:22)
[sydtest]    0% (  0 /  2) in 'Test.Syd.Runner.Synchronous.Interleaved'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     runSpecForestInterleavedWithOutputSynchronously (src/Test/Syd/Runner/Synchronous/Interleaved.hs:28)
[sydtest]    0% (  0 /  3) in 'Test.Syd.Runner.Synchronous'
[sydtest]   Missing documentation for:
[sydtest]     Module header
[sydtest]     runSpecForestSynchronously (src/Test/Syd/Runner/Synchronous/Separate.hs:21)
[sydtest]     runSpecForestInterleavedWithOutputSynchronously (src/Test/Syd/Runner/Synchronous/Interleaved.hs:28)
[sydtest]   33% (  1 /  3) in 'Test.Syd.Runner.Asynchronous'
[sydtest]   Missing documentation for:
[sydtest]     runSpecForestAsynchronously (src/Test/Syd/Runner/Asynchronous.hs:39)
[sydtest]     runSpecForestInterleavedWithOutputAsynchronously (src/Test/Syd/Runner/Asynchronous.hs:48)
[sydtest] Warning: Test.Syd.Runner: Could not find documentation for exported module: Test.Syd.Runner
[sydtest]   50% (  4 /  8) in 'Test.Syd.Runner'
[sydtest]   Missing documentation for:
[sydtest]     sydTestResult (src/Test/Syd/Runner.hs:53)
[sydtest]     sydTestOnce (src/Test/Syd/Runner.hs:63)
[sydtest]     sydTestIterations (src/Test/Syd/Runner.hs:76)
[sydtest]     setPseudorandomness (src/Test/Syd/Runner.hs:113)
[sydtest] Warning: 'TestCoverageMap' is ambiguous. It is defined
[sydtest]     * in ‘Test.Syd.Mutation.TestCoverageMap’
[sydtest]     * in ‘Test.Syd.Mutation.TestCoverageMap’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘Test.Syd.Mutation.TestCoverageMap’
[sydtest] Warning: 'runIO' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'activeMutation' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'coverageSlot' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'Map' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'Set' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'MutationId' is ambiguous. It is defined
[sydtest]     * in ‘Test.Syd.Mutation.Runtime’
[sydtest]     * in ‘Test.Syd.Mutation.Runtime’
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined in ‘Test.Syd.Mutation.Runtime’
[sydtest]  100% (  5 /  5) in 'Test.Syd.MutationMode'
[sydtest] Warning: 'GoldenTest' is ambiguous. It is defined
[sydtest]     * at src/Test/Syd/Run.hs:298:21
[sydtest]     * at src/Test/Syd/Run.hs:298:1
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined at src/Test/Syd/Run.hs:298:1
[sydtest] Warning: '()' is out of scope.
[sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[sydtest] Warning: 'Settings' is ambiguous. It is defined
[sydtest]     * at src/Test/Syd/OptParse.hs:42:17
[sydtest]     * at src/Test/Syd/OptParse.hs:42:1
[sydtest]     You may be able to disambiguate the identifier by qualifying it or
[sydtest]     by specifying the type/value namespace explicitly.
[sydtest]     Defaulting to the one defined at src/Test/Syd/OptParse.hs:42:1
[sydtest]   83% (154 /184) in 'Test.Syd'
[sydtest]   Missing documentation for:
[sydtest]     xdescribe (src/Test/Syd/Def/Specify.hs:74)
[sydtest]     xit (src/Test/Syd/Def/Specify.hs:195)
[sydtest]     xitWithOuter (src/Test/Syd/Def/Specify.hs:295)
[sydtest]     xitWithBoth (src/Test/Syd/Def/Specify.hs:396)
[sydtest]     xitWithAll (src/Test/Syd/Def/Specify.hs:465)
[sydtest]     anyException (src/Test/Syd/Expectation.hs:175)
[sydtest]     anyErrorCall (src/Test/Syd/Expectation.hs:178)
[sydtest]     errorCall (src/Test/Syd/Expectation.hs:181)
[sydtest]     anyIOException (src/Test/Syd/Expectation.hs:184)
[sydtest]     anyArithException (src/Test/Syd/Expectation.hs:187)
[sydtest]     modifyMaxSuccess (src/Test/Syd/Modify.hs:64)
[sydtest]     modifyMaxDiscardRatio (src/Test/Syd/Modify.hs:67)
[sydtest]     modifyMaxSize (src/Test/Syd/Modify.hs:70)
[sydtest]     modifyMaxShrinks (src/Test/Syd/Modify.hs:73)
[sydtest]     modifyRunSettings (src/Test/Syd/Modify.hs:61)
[sydtest]     TestRunSettings (src/Test/Syd/Run.hs:489)
[sydtest]     Parallelism (src/Test/Syd/SpecDef.hs:311)
[sydtest]     ExecutionOrderRandomisation (src/Test/Syd/SpecDef.hs:316)
[sydtest]     FlakinessMode (src/Test/Syd/SpecDef.hs:321)
[sydtest]     ExpectationMode (src/Test/Syd/SpecDef.hs:326)
[sydtest]     execTestDefM (src/Test/Syd/Def/TestDefM.hs:66)
[sydtest]     runTestDefM (src/Test/Syd/Def/TestDefM.hs:69)
[sydtest]     IsTest (src/Test/Syd/Run.hs:45)
[sydtest]     TDef (src/Test/Syd/SpecDef.hs:41)
[sydtest]     TestForest (src/Test/Syd/SpecDef.hs:44)
[sydtest]     TestTree (src/Test/Syd/SpecDef.hs:46)
[sydtest]     SpecDefForest (src/Test/Syd/SpecDef.hs:48)
[sydtest]     ResultForest (src/Test/Syd/SpecDef.hs:331)
[sydtest]     ResultTree (src/Test/Syd/SpecDef.hs:333)
[sydtest]     shouldExitFail (src/Test/Syd/SpecDef.hs:406)
[sydtest] Warning: Test.Syd.Run: could not find link destinations for: 
[sydtest] 	- Test.QuickCheck.Property.Result
[sydtest] 	- Test.QuickCheck.Property.Prop
[sydtest] 	- Test.QuickCheck.Property.Rose
[sydtest] 	- OptEnvConf.Parser.HasParser
[sydtest] 	- OptEnvConf.Parser.settingsParser
[sydtest] 	- OptEnvConf.Parser.Parser
[sydtest] 	- Test.Syd.Run.Rep_Timed
[sydtest] 	- Test.Syd.Run.Rep_Progress
[sydtest] 	- Test.Syd.Run.Rep_TestRunResult
[sydtest] 	- Test.Syd.Run.Rep_GoldenCase
[sydtest] 	- Test.Syd.Run.Rep_Assertion
[sydtest] 	- Test.Syd.Run.Rep_TestStatus
[sydtest] 	- Test.Syd.Run.Rep_TestRunSettings
[sydtest] 	- Test.Syd.Run.Rep_SeedSetting
[sydtest] Warning: Test.Syd.OptParse: could not find link destinations for: 
[sydtest] 	- Path.Internal.Posix.Path
[sydtest] 	- OptEnvConf.Parser.HasParser
[sydtest] 	- OptEnvConf.Parser.settingsParser
[sydtest] 	- OptEnvConf.Parser.Parser
[sydtest] 	- Path.Posix.Abs
[sydtest] 	- Path.Posix.Dir
[sydtest] 	- Path.Posix.File
[sydtest] 	- Test.Syd.OptParse.Rep_Settings
[sydtest] 	- Test.Syd.OptParse.Rep_Flags
[sydtest] 	- Test.Syd.OptParse.Rep_ReportProgress
[sydtest] 	- Test.Syd.OptParse.Rep_Iterations
[sydtest] 	- Test.Syd.OptParse.Rep_Threads
[sydtest] 	- Test.Syd.OptParse.Rep_Timeout
[sydtest] 	- Test.Syd.OptParse.Rep_OutputFormat
[sydtest] Warning: Test.Syd.SpecDef: could not find link destinations for: 
[sydtest] 	- Test.Syd.SpecDef.Rep_TestRunReport
[sydtest] 	- Test.Syd.SpecDef.Rep_ExpectationMode
[sydtest] 	- Test.Syd.SpecDef.Rep_FlakinessMode
[sydtest] 	- Test.Syd.SpecDef.Rep_ExecutionOrderRandomisation
[sydtest] 	- Test.Syd.SpecDef.Rep_Parallelism
[sydtest] Warning: Test.Syd.Def.TestDefM: could not find link destinations for: 
[sydtest] 	- Test.Syd.Def.TestDefM.Rep_TestDefEnv
[sydtest] Warning: Test.Syd.Path: could not find link destinations for: 
[sydtest] 	- Path.Internal.Posix.Path
[sydtest] 	- Path.Posix.Abs
[sydtest] 	- Path.Posix.Dir
[sydtest] 	- Path.Posix.File
[sydtest] Warning: Test.Syd.Modify: could not find link destinations for: 
[sydtest] 	- Test.Syd.Run.Rep_TestRunSettings
[sydtest] 	- Test.Syd.SpecDef.Rep_ExpectationMode
[sydtest] 	- Test.Syd.SpecDef.Rep_FlakinessMode
[sydtest] 	- Test.Syd.SpecDef.Rep_ExecutionOrderRandomisation
[sydtest] 	- Test.Syd.SpecDef.Rep_Parallelism
[sydtest] Warning: Test.Syd.MutationMode: could not find link destinations for: 
[sydtest] 	- Path.Internal.Posix.Path
[sydtest] 	- Path.Posix.Abs
[sydtest] 	- Path.Posix.Dir
[sydtest] Warning: Test.Syd: could not find link destinations for: 
[sydtest] 	- Test.Syd.Run.Rep_Assertion
[sydtest] 	- Test.Syd.Run.Rep_TestRunSettings
[sydtest] 	- Test.Syd.SpecDef.Rep_ExpectationMode
[sydtest] 	- Test.Syd.SpecDef.Rep_FlakinessMode
[sydtest] 	- Test.Syd.SpecDef.Rep_ExecutionOrderRandomisation
[sydtest] 	- Test.Syd.SpecDef.Rep_Parallelism
[sydtest] Documentation created: dist/doc/html/sydtest/,
[sydtest] dist/doc/html/sydtest/sydtest.txt
[sydtest] haddockPhase completed in 32 seconds
[sydtest] Phase: installPhase
[sydtest] Installing library in /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[sydtest] Phase: fixupPhase
[sydtest] shrinking RPATHs of ELF executables and libraries in /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2
[sydtest] shrinking /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSsydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw-ghc9.10.3.so
[sydtest] checking for references to /build/ in /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2...
[sydtest] patching script interpreter paths in /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2
[sydtest] stripping (with command strip and flags -S -p) in  /nix/store/dvs0ifimpzmsrwkr93sgc6f17vjx18cf-sydtest-0.23.0.2/lib
[sydtest] shrinking RPATHs of ELF executables and libraries in /nix/store/drf9wd13xmy0j1p7f12cm3nnkbka8mn5-sydtest-0.23.0.2-doc
[sydtest] checking for references to /build/ in /nix/store/drf9wd13xmy0j1p7f12cm3nnkbka8mn5-sydtest-0.23.0.2-doc...
[sydtest] patching script interpreter paths in /nix/store/drf9wd13xmy0j1p7f12cm3nnkbka8mn5-sydtest-0.23.0.2-doc
Progress: 5 of 11 built
Building genvalidity-sydtest-source
Building opt-env-conf-test-source
[opt-env-conf-test-source] Phase: setupCompilerEnvironmentPhase
[opt-env-conf-test-source] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[genvalidity-sydtest-source] Phase: setupCompilerEnvironmentPhase
[genvalidity-sydtest-source] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[opt-env-conf-test-source] Phase: unpackPhase
[opt-env-conf-test-source] unpacking source archive /nix/store/8sr4z0mday4k62xn3vyb8dvl02qhicbl-opt-env-conf-test
[opt-env-conf-test-source] source root is opt-env-conf-test
[opt-env-conf-test-source] Phase: patchPhase
[opt-env-conf-test-source] Phase: compileBuildDriverPhase
[opt-env-conf-test-source] setupCompileFlags: -package-db=/build/tmp.vL6os3J5KU/setup-package.conf.d -threaded
[opt-env-conf-test-source] [1 of 2] Compiling Main             ( /nix/store/4mdp8nhyfddh7bllbi7xszz7k9955n79-Setup.hs, /build/tmp.vL6os3J5KU/Main.o )
[genvalidity-sydtest-source] Phase: unpackPhase
[genvalidity-sydtest-source] unpacking source archive /nix/store/dqdpwym3w17fcyylxh144v7wvc1c621z-genvalidity-sydtest
[genvalidity-sydtest-source] source root is genvalidity-sydtest
[opt-env-conf-test-source] [2 of 2] Linking Setup
[genvalidity-sydtest-source] Phase: patchPhase
[genvalidity-sydtest-source] Phase: compileBuildDriverPhase
[genvalidity-sydtest-source] setupCompileFlags: -package-db=/build/tmp.uqm2mwwBk5/setup-package.conf.d -threaded
[genvalidity-sydtest-source] [1 of 2] Compiling Main             ( /nix/store/4mdp8nhyfddh7bllbi7xszz7k9955n79-Setup.hs, /build/tmp.uqm2mwwBk5/Main.o )
[genvalidity-sydtest-source] [2 of 2] Linking Setup
[opt-env-conf-test-source] Phase: updateAutotoolsGnuConfigScriptsPhase
[opt-env-conf-test-source] Phase: configurePhase
[opt-env-conf-test-source] configureFlags: --verbose --prefix=/nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/share/doc/opt-env-conf-test-0.0.0.4 --with-gcc=gcc --package-db=/build/tmp.vL6os3J5KU/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --disable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Werror --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[opt-env-conf-test-source] Using Parsec parser
[opt-env-conf-test-source] Configuring opt-env-conf-test-0.0.0.4...
[genvalidity-sydtest-source] Phase: updateAutotoolsGnuConfigScriptsPhase
[genvalidity-sydtest-source] Phase: configurePhase
[genvalidity-sydtest-source] configureFlags: --verbose --prefix=/nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/share/doc/genvalidity-sydtest-1.0.1.0 --with-gcc=gcc --package-db=/build/tmp.uqm2mwwBk5/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --disable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-option=-Wall --ghc-option=-Werror --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[genvalidity-sydtest-source] Using Parsec parser
[genvalidity-sydtest-source] Configuring genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest-source] Dependency QuickCheck: using QuickCheck-2.15.0.1
[genvalidity-sydtest-source] Dependency base >=4.7 && <5: using base-4.20.2.0
[genvalidity-sydtest-source] Dependency genvalidity >=1.0: using genvalidity-1.1.1.0
[genvalidity-sydtest-source] Dependency sydtest: using sydtest-0.23.0.2
[genvalidity-sydtest-source] Dependency QuickCheck: using QuickCheck-2.15.0.1
[genvalidity-sydtest-source] Dependency base >=4.7 && <5: using base-4.20.2.0
[genvalidity-sydtest-source] Dependency genvalidity: using genvalidity-1.1.1.0
[genvalidity-sydtest-source] Dependency genvalidity-sydtest: using genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest-source] Dependency sydtest: using sydtest-0.23.0.2
[genvalidity-sydtest-source] Source component graph:
[genvalidity-sydtest-source]     component lib
[genvalidity-sydtest-source]     component test:genvalidity-sydtest-test dependency lib
[genvalidity-sydtest-source] Configured component graph:
[genvalidity-sydtest-source]     component genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         include base-4.20.2.0-64da
[genvalidity-sydtest-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source]     component genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         include base-4.20.2.0-64da
[genvalidity-sydtest-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source] Linked component graph:
[genvalidity-sydtest-source]     unit genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         include base-4.20.2.0-64da
[genvalidity-sydtest-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source]         Test.Syd.Validity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity,Test.Syd.Validity.Applicative=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Applicative,Test.Syd.Validity.Arbitrary=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Arbitrary,Test.Syd.Validity.Eq=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Eq,Test.Syd.Validity.Functions=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions,Test.Syd.Validity.Functions.CanFail=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.CanFail,Test.Syd.Validity.Functions.Equivalence=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Equivalence,Test.Syd.Validity.Functions.Idempotence=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Idempotence,Test.Syd.Validity.Functions.Inverse=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Inverse,Test.Syd.Validity.Functions.Validity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Validity,Test.Syd.Validity.Functor=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functor,Test.Syd.Validity.GenValidity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.GenValidity,Test.Syd.Validity.GenValidity.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.GenValidity.Property,Test.Syd.Validity.Monad=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Monad,Test.Syd.Validity.Monoid=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Monoid,Test.Syd.Validity.Operations=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations,Test.Syd.Validity.Operations.Associativity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Associativity,Test.Syd.Validity.Operations.Commutativity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Commutativity,Test.Syd.Validity.Operations.Identity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Identity,Test.Syd.Validity.Ord=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Ord,Test.Syd.Validity.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Property,Test.Syd.Validity.Property.Utils=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Property.Utils,Test.Syd.Validity.Relations=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations,Test.Syd.Validity.Relations.Antireflexivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Antireflexivity,Test.Syd.Validity.Relations.Antisymmetry=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Antisymmetry,Test.Syd.Validity.Relations.Reflexivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Reflexivity,Test.Syd.Validity.Relations.Symmetry=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Symmetry,Test.Syd.Validity.Relations.Transitivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Transitivity,Test.Syd.Validity.Show=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Show,Test.Syd.Validity.Shrinking=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Shrinking,Test.Syd.Validity.Shrinking.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Shrinking.Property,Test.Syd.Validity.Types=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Types,Test.Syd.Validity.Utils=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Utils
[genvalidity-sydtest-source]     unit genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest-source]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         include base-4.20.2.0-64da
[genvalidity-sydtest-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source] Ready component graph:
[genvalidity-sydtest-source]     definite genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         depends base-4.20.2.0-64da
[genvalidity-sydtest-source]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source]     definite genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest-source]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest-source]         depends base-4.20.2.0-64da
[genvalidity-sydtest-source]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest-source]         depends genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest-source] Using Cabal-3.12.1.0 compiled by ghc-9.10
[genvalidity-sydtest-source] Using compiler: ghc-9.10.3
[genvalidity-sydtest-source] Using install prefix:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0
[genvalidity-sydtest-source] Executables installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/bin
[genvalidity-sydtest-source] Libraries installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest-source] Dynamic Libraries installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[genvalidity-sydtest-source] Private executables installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/libexec/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest-source] Data files installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/share/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest-source] Documentation installed in: /share/doc/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest-source] Configuration files installed in:
[genvalidity-sydtest-source] /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/etc
[genvalidity-sydtest-source] No alex found
[genvalidity-sydtest-source] Using ar found on system at:
[genvalidity-sydtest-source] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[genvalidity-sydtest-source] No c2hs found
[genvalidity-sydtest-source] No cpphs found
[genvalidity-sydtest-source] No doctest found
[genvalidity-sydtest-source] Using gcc version 14.3.0 given by user at:
[genvalidity-sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[genvalidity-sydtest-source] Using ghc version 9.10.3 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[genvalidity-sydtest-source] Using ghc-pkg version 9.10.3 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[genvalidity-sydtest-source] No ghcjs found
[genvalidity-sydtest-source] No ghcjs-pkg found
[genvalidity-sydtest-source] No greencard found
[genvalidity-sydtest-source] Using haddock version 2.31.1 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[genvalidity-sydtest-source] No happy found
[genvalidity-sydtest-source] Using haskell-suite found on system at: haskell-suite-dummy-location
[genvalidity-sydtest-source] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[genvalidity-sydtest-source] No hmake found
[genvalidity-sydtest-source] Using hpc version 0.69 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[genvalidity-sydtest-source] Using hsc2hs version 0.68.10 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[genvalidity-sydtest-source] Using hscolour version 1.25 found on system at:
[genvalidity-sydtest-source] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[genvalidity-sydtest-source] No jhc found
[genvalidity-sydtest-source] Using ld found on system at:
[genvalidity-sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[genvalidity-sydtest-source] No pkg-config found
[genvalidity-sydtest-source] Using runghc version 9.10.3 found on system at:
[genvalidity-sydtest-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[genvalidity-sydtest-source] Using strip version 2.44 found on system at:
[genvalidity-sydtest-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[genvalidity-sydtest-source] Using tar found on system at:
[genvalidity-sydtest-source] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[genvalidity-sydtest-source] No uhc found
[opt-env-conf-test-source] Dependency aeson: using aeson-2.2.3.0
[opt-env-conf-test-source] Dependency base <5: using base-4.20.2.0
[opt-env-conf-test-source] Dependency genvalidity: using genvalidity-1.1.1.0
[opt-env-conf-test-source] Dependency genvalidity-containers: using genvalidity-containers-1.0.0.2
[opt-env-conf-test-source] Dependency opt-env-conf >=0.9.0.0: using opt-env-conf-0.15.0.1
[opt-env-conf-test-source] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[opt-env-conf-test-source] Dependency sydtest: using sydtest-0.23.0.2
[opt-env-conf-test-source] Dependency text: using text-2.1.3
[opt-env-conf-test-source] Source component graph: component lib
[opt-env-conf-test-source] Configured component graph:
[opt-env-conf-test-source]     component opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test-source]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test-source]         include base-4.20.2.0-64da
[opt-env-conf-test-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test-source]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test-source]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test-source]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test-source]         include text-2.1.3-c691
[opt-env-conf-test-source] Linked component graph:
[opt-env-conf-test-source]     unit opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test-source]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test-source]         include base-4.20.2.0-64da
[opt-env-conf-test-source]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test-source]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test-source]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test-source]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test-source]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test-source]         include text-2.1.3-c691
[opt-env-conf-test-source]         OptEnvConf.Args.Gen=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.Args.Gen,OptEnvConf.EnvMap.Gen=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.EnvMap.Gen,OptEnvConf.Test=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.Test
[opt-env-conf-test-source] Ready component graph:
[opt-env-conf-test-source]     definite opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test-source]         depends aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test-source]         depends base-4.20.2.0-64da
[opt-env-conf-test-source]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test-source]         depends genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test-source]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test-source]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test-source]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test-source]         depends text-2.1.3-c691
[opt-env-conf-test-source] Using Cabal-3.12.1.0 compiled by ghc-9.10
[opt-env-conf-test-source] Using compiler: ghc-9.10.3
[opt-env-conf-test-source] Using install prefix:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4
[opt-env-conf-test-source] Executables installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/bin
[opt-env-conf-test-source] Libraries installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test-source] Dynamic Libraries installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[opt-env-conf-test-source] Private executables installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/libexec/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test-source] Data files installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/share/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test-source] Documentation installed in: /share/doc/opt-env-conf-test-0.0.0.4
[opt-env-conf-test-source] Configuration files installed in:
[opt-env-conf-test-source] /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/etc
[opt-env-conf-test-source] No alex found
[opt-env-conf-test-source] Using ar found on system at:
[opt-env-conf-test-source] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[opt-env-conf-test-source] No c2hs found
[opt-env-conf-test-source] No cpphs found
[opt-env-conf-test-source] No doctest found
[opt-env-conf-test-source] Using gcc version 14.3.0 given by user at:
[opt-env-conf-test-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[opt-env-conf-test-source] Using ghc version 9.10.3 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[opt-env-conf-test-source] Using ghc-pkg version 9.10.3 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[opt-env-conf-test-source] No ghcjs found
[opt-env-conf-test-source] No ghcjs-pkg found
[opt-env-conf-test-source] No greencard found
[opt-env-conf-test-source] Using haddock version 2.31.1 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[opt-env-conf-test-source] No happy found
[opt-env-conf-test-source] Using haskell-suite found on system at: haskell-suite-dummy-location
[opt-env-conf-test-source] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[opt-env-conf-test-source] No hmake found
[opt-env-conf-test-source] Using hpc version 0.69 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[opt-env-conf-test-source] Using hsc2hs version 0.68.10 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[opt-env-conf-test-source] Using hscolour version 1.25 found on system at:
[opt-env-conf-test-source] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[opt-env-conf-test-source] No jhc found
[opt-env-conf-test-source] Using ld found on system at:
[opt-env-conf-test-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[opt-env-conf-test-source] No pkg-config found
[opt-env-conf-test-source] Using runghc version 9.10.3 found on system at:
[opt-env-conf-test-source] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[opt-env-conf-test-source] Using strip version 2.44 found on system at:
[opt-env-conf-test-source] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[opt-env-conf-test-source] Using tar found on system at:
[opt-env-conf-test-source] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[opt-env-conf-test-source] No uhc found
[opt-env-conf-test-source] Phase: buildPhase
[genvalidity-sydtest-source] Phase: buildPhase
[genvalidity-sydtest-source] Distribution quality warnings:
[genvalidity-sydtest-source] [no-description] No 'description' field.
[genvalidity-sydtest-source] [missing-upper-bounds] On library, these packages miss upper bounds:
[genvalidity-sydtest-source] - QuickCheck
[genvalidity-sydtest-source] - genvalidity
[genvalidity-sydtest-source] - sydtest
[genvalidity-sydtest-source] Please add them. There is more information at https://pvp.haskell.org/
[genvalidity-sydtest-source] Building source dist for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest-source] Source tarball created: dist/genvalidity-sydtest-1.0.1.0.tar.gz
[genvalidity-sydtest-source] Phase: checkPhase
[genvalidity-sydtest-source] Phase: haddockPhase
[genvalidity-sydtest-source] Phase: installPhase
[genvalidity-sydtest-source] Phase: fixupPhase
Progress: 6 of 11 built (1 building)
Building genvalidity-sydtest
[opt-env-conf-test-source] Distribution quality warnings:
[opt-env-conf-test-source] [no-category] No 'category' field.
[opt-env-conf-test-source] [no-description] No 'description' field.
[opt-env-conf-test-source] [missing-upper-bounds] On library, these packages miss upper bounds:
[opt-env-conf-test-source] - aeson
[opt-env-conf-test-source] - genvalidity
[opt-env-conf-test-source] - genvalidity-containers
[opt-env-conf-test-source] - opt-env-conf
[opt-env-conf-test-source] - safe-coloured-text
[opt-env-conf-test-source] - sydtest
[opt-env-conf-test-source] - text
[opt-env-conf-test-source] Please add them. There is more information at https://pvp.haskell.org/
[opt-env-conf-test-source] Building source dist for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test-source] Source tarball created: dist/opt-env-conf-test-0.0.0.4.tar.gz
[opt-env-conf-test-source] Phase: haddockPhase
[opt-env-conf-test-source] Phase: installPhase
[opt-env-conf-test-source] Phase: fixupPhase
Progress: 7 of 11 built (1 building)
Building opt-env-conf-test
[genvalidity-sydtest] Phase: setupCompilerEnvironmentPhase
[genvalidity-sydtest] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[opt-env-conf-test] Phase: setupCompilerEnvironmentPhase
[opt-env-conf-test] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[opt-env-conf-test] Phase: unpackPhase
[opt-env-conf-test] unpacking source archive /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/opt-env-conf-test-0.0.0.4.tar.gz
[genvalidity-sydtest] Phase: unpackPhase
[genvalidity-sydtest] unpacking source archive /nix/store/cryxdnv7ad0g23h1wfwcdls9vvk4jpwj-genvalidity-sydtest-source-1.0.1.0/genvalidity-sydtest-1.0.1.0.tar.gz
[genvalidity-sydtest] source root is genvalidity-sydtest-1.0.1.0
[opt-env-conf-test] source root is opt-env-conf-test-0.0.0.4
[genvalidity-sydtest] setting SOURCE_DATE_EPOCH to timestamp 1778688886 of file "genvalidity-sydtest-1.0.1.0/test/Test/Syd/Validity/ShrinkingSpec.hs"
[genvalidity-sydtest] warning: file "genvalidity-sydtest-1.0.1.0/test/Test/Syd/Validity/ShrinkingSpec.hs" may be generated; SOURCE_DATE_EPOCH may be non-deterministic
[opt-env-conf-test] setting SOURCE_DATE_EPOCH to timestamp 1778688886 of file "opt-env-conf-test-0.0.0.4/test/Spec.hs"
[opt-env-conf-test] warning: file "opt-env-conf-test-0.0.0.4/test/Spec.hs" may be generated; SOURCE_DATE_EPOCH may be non-deterministic
[genvalidity-sydtest] Phase: patchPhase
[opt-env-conf-test] Phase: patchPhase
[genvalidity-sydtest] Phase: compileBuildDriverPhase
[genvalidity-sydtest] setupCompileFlags: -package-db=/build/tmp.HwXdHcB2SC/setup-package.conf.d -threaded
[opt-env-conf-test] Phase: compileBuildDriverPhase
[opt-env-conf-test] setupCompileFlags: -package-db=/build/tmp.5g8P4JTQ3x/setup-package.conf.d -threaded
[opt-env-conf-test] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.5g8P4JTQ3x/Main.o )
[genvalidity-sydtest] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.HwXdHcB2SC/Main.o )
[opt-env-conf-test] [2 of 2] Linking Setup
[genvalidity-sydtest] [2 of 2] Linking Setup
[opt-env-conf-test] Phase: updateAutotoolsGnuConfigScriptsPhase
[opt-env-conf-test] Phase: configurePhase
[genvalidity-sydtest] Phase: updateAutotoolsGnuConfigScriptsPhase
[opt-env-conf-test] configureFlags: --verbose --prefix=/nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --with-gcc=gcc --package-db=/build/tmp.5g8P4JTQ3x/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --disable-static --disable-executable-dynamic --disable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Werror --ghc-options=-fplugin-opt=Test.Syd.Mutation.Plugin:--debug --disable-optimization --ghc-option=-j1 --ghc-option=+RTS --ghc-option=-A32M --ghc-option=-M16g --ghc-option=-RTS --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[genvalidity-sydtest] Phase: configurePhase
[opt-env-conf-test] Using Parsec parser
[opt-env-conf-test] Configuring opt-env-conf-test-0.0.0.4...
[genvalidity-sydtest] configureFlags: --verbose --prefix=/nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --docdir=/nix/store/b1656l9077mn7wsqlhvsz4v1zdy3k4d2-genvalidity-sydtest-1.0.1.0-doc/share/doc/genvalidity-sydtest-1.0.1.0 --with-gcc=gcc --package-db=/build/tmp.HwXdHcB2SC/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --enable-static --disable-executable-dynamic --enable-tests --enable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-option=-haddock --ghc-option=-Wall --ghc-option=-Werror --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[genvalidity-sydtest] Using Parsec parser
[genvalidity-sydtest] Configuring genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] Dependency QuickCheck: using QuickCheck-2.15.0.1
[genvalidity-sydtest] Dependency base >=4.7 && <5: using base-4.20.2.0
[genvalidity-sydtest] Dependency genvalidity >=1.0: using genvalidity-1.1.1.0
[genvalidity-sydtest] Dependency sydtest: using sydtest-0.23.0.2
[genvalidity-sydtest] Dependency QuickCheck: using QuickCheck-2.15.0.1
[genvalidity-sydtest] Dependency base >=4.7 && <5: using base-4.20.2.0
[genvalidity-sydtest] Dependency genvalidity: using genvalidity-1.1.1.0
[genvalidity-sydtest] Dependency genvalidity-sydtest: using genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] Dependency sydtest: using sydtest-0.23.0.2
[genvalidity-sydtest] Source component graph:
[genvalidity-sydtest]     component lib
[genvalidity-sydtest]     component test:genvalidity-sydtest-test dependency lib
[genvalidity-sydtest] Configured component graph:
[genvalidity-sydtest]     component genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         include base-4.20.2.0-64da
[genvalidity-sydtest]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest]     component genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         include base-4.20.2.0-64da
[genvalidity-sydtest]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest] Linked component graph:
[genvalidity-sydtest]     unit genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         include base-4.20.2.0-64da
[genvalidity-sydtest]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest]         Test.Syd.Validity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity,Test.Syd.Validity.Applicative=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Applicative,Test.Syd.Validity.Arbitrary=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Arbitrary,Test.Syd.Validity.Eq=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Eq,Test.Syd.Validity.Functions=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions,Test.Syd.Validity.Functions.CanFail=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.CanFail,Test.Syd.Validity.Functions.Equivalence=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Equivalence,Test.Syd.Validity.Functions.Idempotence=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Idempotence,Test.Syd.Validity.Functions.Inverse=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Inverse,Test.Syd.Validity.Functions.Validity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functions.Validity,Test.Syd.Validity.Functor=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Functor,Test.Syd.Validity.GenValidity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.GenValidity,Test.Syd.Validity.GenValidity.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.GenValidity.Property,Test.Syd.Validity.Monad=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Monad,Test.Syd.Validity.Monoid=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Monoid,Test.Syd.Validity.Operations=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations,Test.Syd.Validity.Operations.Associativity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Associativity,Test.Syd.Validity.Operations.Commutativity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Commutativity,Test.Syd.Validity.Operations.Identity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Operations.Identity,Test.Syd.Validity.Ord=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Ord,Test.Syd.Validity.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Property,Test.Syd.Validity.Property.Utils=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Property.Utils,Test.Syd.Validity.Relations=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations,Test.Syd.Validity.Relations.Antireflexivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Antireflexivity,Test.Syd.Validity.Relations.Antisymmetry=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Antisymmetry,Test.Syd.Validity.Relations.Reflexivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Reflexivity,Test.Syd.Validity.Relations.Symmetry=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Symmetry,Test.Syd.Validity.Relations.Transitivity=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Relations.Transitivity,Test.Syd.Validity.Show=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Show,Test.Syd.Validity.Shrinking=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Shrinking,Test.Syd.Validity.Shrinking.Property=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Shrinking.Property,Test.Syd.Validity.Types=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Types,Test.Syd.Validity.Utils=genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1:Test.Syd.Validity.Utils
[genvalidity-sydtest]     unit genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         include base-4.20.2.0-64da
[genvalidity-sydtest]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest] Ready component graph:
[genvalidity-sydtest]     definite genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         depends base-4.20.2.0-64da
[genvalidity-sydtest]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest]     definite genvalidity-sydtest-1.0.1.0-1ny4a51zXrh2vGWfyFa5xL-genvalidity-sydtest-test
[genvalidity-sydtest]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[genvalidity-sydtest]         depends base-4.20.2.0-64da
[genvalidity-sydtest]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[genvalidity-sydtest]         depends genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[genvalidity-sydtest] Using Cabal-3.12.1.0 compiled by ghc-9.10
[genvalidity-sydtest] Using compiler: ghc-9.10.3
[genvalidity-sydtest] Using install prefix:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] Executables installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/bin
[genvalidity-sydtest] Libraries installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest] Dynamic Libraries installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[genvalidity-sydtest] Private executables installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/libexec/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] Data files installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/share/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] Documentation installed in:
[genvalidity-sydtest] /nix/store/b1656l9077mn7wsqlhvsz4v1zdy3k4d2-genvalidity-sydtest-1.0.1.0-doc/share/doc/genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] Configuration files installed in:
[genvalidity-sydtest] /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/etc
[genvalidity-sydtest] No alex found
[genvalidity-sydtest] Using ar found on system at:
[genvalidity-sydtest] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[genvalidity-sydtest] No c2hs found
[genvalidity-sydtest] No cpphs found
[genvalidity-sydtest] No doctest found
[genvalidity-sydtest] Using gcc version 14.3.0 given by user at:
[genvalidity-sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[genvalidity-sydtest] Using ghc version 9.10.3 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[genvalidity-sydtest] Using ghc-pkg version 9.10.3 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[genvalidity-sydtest] No ghcjs found
[genvalidity-sydtest] No ghcjs-pkg found
[genvalidity-sydtest] No greencard found
[genvalidity-sydtest] Using haddock version 2.31.1 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[genvalidity-sydtest] No happy found
[genvalidity-sydtest] Using haskell-suite found on system at: haskell-suite-dummy-location
[genvalidity-sydtest] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[genvalidity-sydtest] No hmake found
[genvalidity-sydtest] Using hpc version 0.69 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[genvalidity-sydtest] Using hsc2hs version 0.68.10 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[genvalidity-sydtest] Using hscolour version 1.25 found on system at:
[genvalidity-sydtest] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[genvalidity-sydtest] No jhc found
[genvalidity-sydtest] Using ld found on system at:
[genvalidity-sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[genvalidity-sydtest] No pkg-config found
[genvalidity-sydtest] Using runghc version 9.10.3 found on system at:
[genvalidity-sydtest] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[genvalidity-sydtest] Using strip version 2.44 found on system at:
[genvalidity-sydtest] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[genvalidity-sydtest] Using tar found on system at:
[genvalidity-sydtest] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[genvalidity-sydtest] No uhc found
[opt-env-conf-test] Dependency aeson: using aeson-2.2.3.0
[opt-env-conf-test] Dependency base <5: using base-4.20.2.0
[opt-env-conf-test] Dependency genvalidity: using genvalidity-1.1.1.0
[opt-env-conf-test] Dependency genvalidity-containers: using genvalidity-containers-1.0.0.2
[opt-env-conf-test] Dependency opt-env-conf >=0.9.0.0: using opt-env-conf-0.15.0.1
[opt-env-conf-test] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[opt-env-conf-test] Dependency sydtest: using sydtest-0.23.0.2
[opt-env-conf-test] Dependency text: using text-2.1.3
[opt-env-conf-test] Source component graph: component lib
[opt-env-conf-test] Configured component graph:
[opt-env-conf-test]     component opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test] Linked component graph:
[opt-env-conf-test]     unit opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test]         OptEnvConf.Args.Gen=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.Args.Gen,OptEnvConf.EnvMap.Gen=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.EnvMap.Gen,OptEnvConf.Test=opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC:OptEnvConf.Test
[opt-env-conf-test] Ready component graph:
[opt-env-conf-test]     definite opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test]         depends aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         depends base-4.20.2.0-64da
[opt-env-conf-test]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         depends genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         depends text-2.1.3-c691
[opt-env-conf-test] Using Cabal-3.12.1.0 compiled by ghc-9.10
[opt-env-conf-test] Using compiler: ghc-9.10.3
[opt-env-conf-test] Using install prefix:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Executables installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/bin
[opt-env-conf-test] Libraries installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[opt-env-conf-test] Dynamic Libraries installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[opt-env-conf-test] Private executables installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/libexec/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Data files installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/share/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Documentation installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/share/doc/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Configuration files installed in:
[opt-env-conf-test] /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/etc
[opt-env-conf-test] No alex found
[opt-env-conf-test] Using ar found on system at:
[opt-env-conf-test] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[opt-env-conf-test] No c2hs found
[opt-env-conf-test] No cpphs found
[opt-env-conf-test] No doctest found
[opt-env-conf-test] Using gcc version 14.3.0 given by user at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[opt-env-conf-test] Using ghc version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[opt-env-conf-test] Using ghc-pkg version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[opt-env-conf-test] No ghcjs found
[opt-env-conf-test] No ghcjs-pkg found
[opt-env-conf-test] No greencard found
[opt-env-conf-test] Using haddock version 2.31.1 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[opt-env-conf-test] No happy found
[opt-env-conf-test] Using haskell-suite found on system at: haskell-suite-dummy-location
[opt-env-conf-test] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[opt-env-conf-test] No hmake found
[opt-env-conf-test] Using hpc version 0.69 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[opt-env-conf-test] Using hsc2hs version 0.68.10 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[opt-env-conf-test] Using hscolour version 1.25 found on system at:
[opt-env-conf-test] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[opt-env-conf-test] No jhc found
[opt-env-conf-test] Using ld found on system at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[opt-env-conf-test] No pkg-config found
[opt-env-conf-test] Using runghc version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[opt-env-conf-test] Using strip version 2.44 found on system at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[opt-env-conf-test] Using tar found on system at:
[opt-env-conf-test] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[opt-env-conf-test] No uhc found
[genvalidity-sydtest] Phase: buildPhase
[genvalidity-sydtest] Preprocessing library for genvalidity-sydtest-1.0.1.0...
[opt-env-conf-test] Phase: buildPhase
[opt-env-conf-test] mutation-nix: setting MUTATION_MANIFEST_DIR=/nix/store/7sd5cfgk1d943w5dj66x5iafn4q34d18-opt-env-conf-test-0.0.0.4-manifest
[genvalidity-sydtest] Building library for genvalidity-sydtest-1.0.1.0...
[opt-env-conf-test] Preprocessing library for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] Building library for opt-env-conf-test-0.0.0.4...
[genvalidity-sydtest] [ 1 of 34] Compiling Paths_genvalidity_sydtest ( dist/build/autogen/Paths_genvalidity_sydtest.hs, dist/build/Paths_genvalidity_sydtest.o, dist/build/Paths_genvalidity_sydtest.dyn_o )
[opt-env-conf-test] [1 of 4] Compiling OptEnvConf.Args.Gen ( src/OptEnvConf/Args/Gen.hs, dist/build/OptEnvConf/Args/Gen.o, dist/build/OptEnvConf/Args/Gen.dyn_o )
[genvalidity-sydtest] [ 2 of 34] Compiling Test.Syd.Validity.Functions.Idempotence ( src/Test/Syd/Validity/Functions/Idempotence.hs, dist/build/Test/Syd/Validity/Functions/Idempotence.o, dist/build/Test/Syd/Validity/Functions/Idempotence.dyn_o )
[genvalidity-sydtest] [ 3 of 34] Compiling Test.Syd.Validity.Operations.Associativity ( src/Test/Syd/Validity/Operations/Associativity.hs, dist/build/Test/Syd/Validity/Operations/Associativity.o, dist/build/Test/Syd/Validity/Operations/Associativity.dyn_o )
[genvalidity-sydtest] [ 4 of 34] Compiling Test.Syd.Validity.Operations.Commutativity ( src/Test/Syd/Validity/Operations/Commutativity.hs, dist/build/Test/Syd/Validity/Operations/Commutativity.o, dist/build/Test/Syd/Validity/Operations/Commutativity.dyn_o )
[genvalidity-sydtest] [ 5 of 34] Compiling Test.Syd.Validity.Operations.Identity ( src/Test/Syd/Validity/Operations/Identity.hs, dist/build/Test/Syd/Validity/Operations/Identity.o, dist/build/Test/Syd/Validity/Operations/Identity.dyn_o )
[genvalidity-sydtest] [ 6 of 34] Compiling Test.Syd.Validity.Operations ( src/Test/Syd/Validity/Operations.hs, dist/build/Test/Syd/Validity/Operations.o, dist/build/Test/Syd/Validity/Operations.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Args.Gen
[opt-env-conf-test] added 0 mutations
[genvalidity-sydtest] [ 7 of 34] Compiling Test.Syd.Validity.Property.Utils ( src/Test/Syd/Validity/Property/Utils.hs, dist/build/Test/Syd/Validity/Property/Utils.o, dist/build/Test/Syd/Validity/Property/Utils.dyn_o )
[genvalidity-sydtest] [ 8 of 34] Compiling Test.Syd.Validity.GenValidity.Property ( src/Test/Syd/Validity/GenValidity/Property.hs, dist/build/Test/Syd/Validity/GenValidity/Property.o, dist/build/Test/Syd/Validity/GenValidity/Property.dyn_o )
[genvalidity-sydtest] [ 9 of 34] Compiling Test.Syd.Validity.Functions.Validity ( src/Test/Syd/Validity/Functions/Validity.hs, dist/build/Test/Syd/Validity/Functions/Validity.o, dist/build/Test/Syd/Validity/Functions/Validity.dyn_o )
[genvalidity-sydtest] [10 of 34] Compiling Test.Syd.Validity.Relations.Antireflexivity ( src/Test/Syd/Validity/Relations/Antireflexivity.hs, dist/build/Test/Syd/Validity/Relations/Antireflexivity.o, dist/build/Test/Syd/Validity/Relations/Antireflexivity.dyn_o )
[genvalidity-sydtest] [11 of 34] Compiling Test.Syd.Validity.Relations.Antisymmetry ( src/Test/Syd/Validity/Relations/Antisymmetry.hs, dist/build/Test/Syd/Validity/Relations/Antisymmetry.o, dist/build/Test/Syd/Validity/Relations/Antisymmetry.dyn_o )
[genvalidity-sydtest] [12 of 34] Compiling Test.Syd.Validity.Relations.Reflexivity ( src/Test/Syd/Validity/Relations/Reflexivity.hs, dist/build/Test/Syd/Validity/Relations/Reflexivity.o, dist/build/Test/Syd/Validity/Relations/Reflexivity.dyn_o )
[genvalidity-sydtest] [13 of 34] Compiling Test.Syd.Validity.Relations.Symmetry ( src/Test/Syd/Validity/Relations/Symmetry.hs, dist/build/Test/Syd/Validity/Relations/Symmetry.o, dist/build/Test/Syd/Validity/Relations/Symmetry.dyn_o )
[genvalidity-sydtest] [14 of 34] Compiling Test.Syd.Validity.Relations.Transitivity ( src/Test/Syd/Validity/Relations/Transitivity.hs, dist/build/Test/Syd/Validity/Relations/Transitivity.o, dist/build/Test/Syd/Validity/Relations/Transitivity.dyn_o )
[genvalidity-sydtest] [15 of 34] Compiling Test.Syd.Validity.Relations ( src/Test/Syd/Validity/Relations.hs, dist/build/Test/Syd/Validity/Relations.o, dist/build/Test/Syd/Validity/Relations.dyn_o )
[genvalidity-sydtest] [16 of 34] Compiling Test.Syd.Validity.Shrinking.Property ( src/Test/Syd/Validity/Shrinking/Property.hs, dist/build/Test/Syd/Validity/Shrinking/Property.o, dist/build/Test/Syd/Validity/Shrinking/Property.dyn_o )
[genvalidity-sydtest] [17 of 34] Compiling Test.Syd.Validity.Types ( src/Test/Syd/Validity/Types.hs, dist/build/Test/Syd/Validity/Types.o, dist/build/Test/Syd/Validity/Types.dyn_o )
[genvalidity-sydtest] [18 of 34] Compiling Test.Syd.Validity.Functions.Inverse ( src/Test/Syd/Validity/Functions/Inverse.hs, dist/build/Test/Syd/Validity/Functions/Inverse.o, dist/build/Test/Syd/Validity/Functions/Inverse.dyn_o )
[genvalidity-sydtest] [19 of 34] Compiling Test.Syd.Validity.Functions.Equivalence ( src/Test/Syd/Validity/Functions/Equivalence.hs, dist/build/Test/Syd/Validity/Functions/Equivalence.o, dist/build/Test/Syd/Validity/Functions/Equivalence.dyn_o )
[genvalidity-sydtest] [20 of 34] Compiling Test.Syd.Validity.Functions.CanFail ( src/Test/Syd/Validity/Functions/CanFail.hs, dist/build/Test/Syd/Validity/Functions/CanFail.o, dist/build/Test/Syd/Validity/Functions/CanFail.dyn_o )
[genvalidity-sydtest] [21 of 34] Compiling Test.Syd.Validity.Functions ( src/Test/Syd/Validity/Functions.hs, dist/build/Test/Syd/Validity/Functions.o, dist/build/Test/Syd/Validity/Functions.dyn_o )
[genvalidity-sydtest] [22 of 34] Compiling Test.Syd.Validity.Property ( src/Test/Syd/Validity/Property.hs, dist/build/Test/Syd/Validity/Property.o, dist/build/Test/Syd/Validity/Property.dyn_o )
[genvalidity-sydtest] [23 of 34] Compiling Test.Syd.Validity.Utils ( src/Test/Syd/Validity/Utils.hs, dist/build/Test/Syd/Validity/Utils.o, dist/build/Test/Syd/Validity/Utils.dyn_o )
[genvalidity-sydtest] [24 of 34] Compiling Test.Syd.Validity.Shrinking ( src/Test/Syd/Validity/Shrinking.hs, dist/build/Test/Syd/Validity/Shrinking.o, dist/build/Test/Syd/Validity/Shrinking.dyn_o )
[genvalidity-sydtest] [25 of 34] Compiling Test.Syd.Validity.Show ( src/Test/Syd/Validity/Show.hs, dist/build/Test/Syd/Validity/Show.o, dist/build/Test/Syd/Validity/Show.dyn_o )
[genvalidity-sydtest] [26 of 34] Compiling Test.Syd.Validity.Ord ( src/Test/Syd/Validity/Ord.hs, dist/build/Test/Syd/Validity/Ord.o, dist/build/Test/Syd/Validity/Ord.dyn_o )
[genvalidity-sydtest] [27 of 34] Compiling Test.Syd.Validity.Monoid ( src/Test/Syd/Validity/Monoid.hs, dist/build/Test/Syd/Validity/Monoid.o, dist/build/Test/Syd/Validity/Monoid.dyn_o )
[genvalidity-sydtest] [28 of 34] Compiling Test.Syd.Validity.Monad ( src/Test/Syd/Validity/Monad.hs, dist/build/Test/Syd/Validity/Monad.o, dist/build/Test/Syd/Validity/Monad.dyn_o )
[genvalidity-sydtest] [29 of 34] Compiling Test.Syd.Validity.GenValidity ( src/Test/Syd/Validity/GenValidity.hs, dist/build/Test/Syd/Validity/GenValidity.o, dist/build/Test/Syd/Validity/GenValidity.dyn_o )
[genvalidity-sydtest] [30 of 34] Compiling Test.Syd.Validity.Functor ( src/Test/Syd/Validity/Functor.hs, dist/build/Test/Syd/Validity/Functor.o, dist/build/Test/Syd/Validity/Functor.dyn_o )
[genvalidity-sydtest] [31 of 34] Compiling Test.Syd.Validity.Eq ( src/Test/Syd/Validity/Eq.hs, dist/build/Test/Syd/Validity/Eq.o, dist/build/Test/Syd/Validity/Eq.dyn_o )
[genvalidity-sydtest] [32 of 34] Compiling Test.Syd.Validity.Arbitrary ( src/Test/Syd/Validity/Arbitrary.hs, dist/build/Test/Syd/Validity/Arbitrary.o, dist/build/Test/Syd/Validity/Arbitrary.dyn_o )
[genvalidity-sydtest] [33 of 34] Compiling Test.Syd.Validity.Applicative ( src/Test/Syd/Validity/Applicative.hs, dist/build/Test/Syd/Validity/Applicative.o, dist/build/Test/Syd/Validity/Applicative.dyn_o )
[genvalidity-sydtest] [34 of 34] Compiling Test.Syd.Validity ( src/Test/Syd/Validity.hs, dist/build/Test/Syd/Validity.o, dist/build/Test/Syd/Validity.dyn_o )
[opt-env-conf-test] [2 of 4] Compiling OptEnvConf.EnvMap.Gen ( src/OptEnvConf/EnvMap/Gen.hs, dist/build/OptEnvConf/EnvMap/Gen.o, dist/build/OptEnvConf/EnvMap/Gen.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMap.Gen
[opt-env-conf-test] added 0 mutations
[genvalidity-sydtest] [ 1 of 34] Compiling Paths_genvalidity_sydtest ( dist/build/autogen/Paths_genvalidity_sydtest.hs, dist/build/Paths_genvalidity_sydtest.p_o )
[opt-env-conf-test] [3 of 4] Compiling OptEnvConf.Test  ( src/OptEnvConf/Test.hs, dist/build/OptEnvConf/Test.o, dist/build/OptEnvConf/Test.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Test
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (True) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not not ((null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v) && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c) || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || not (c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c || c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && not (all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | True = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | not (isVersion version) = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c) || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || not (c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c || c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,7 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added 48 mutations
[genvalidity-sydtest] [ 2 of 34] Compiling Test.Syd.Validity.Functions.Idempotence ( src/Test/Syd/Validity/Functions/Idempotence.hs, dist/build/Test/Syd/Validity/Functions/Idempotence.p_o )
[genvalidity-sydtest] [ 3 of 34] Compiling Test.Syd.Validity.Operations.Associativity ( src/Test/Syd/Validity/Operations/Associativity.hs, dist/build/Test/Syd/Validity/Operations/Associativity.p_o )
[genvalidity-sydtest] [ 4 of 34] Compiling Test.Syd.Validity.Operations.Commutativity ( src/Test/Syd/Validity/Operations/Commutativity.hs, dist/build/Test/Syd/Validity/Operations/Commutativity.p_o )
[genvalidity-sydtest] [ 5 of 34] Compiling Test.Syd.Validity.Operations.Identity ( src/Test/Syd/Validity/Operations/Identity.hs, dist/build/Test/Syd/Validity/Operations/Identity.p_o )
[genvalidity-sydtest] [ 6 of 34] Compiling Test.Syd.Validity.Operations ( src/Test/Syd/Validity/Operations.hs, dist/build/Test/Syd/Validity/Operations.p_o )
[genvalidity-sydtest] [ 7 of 34] Compiling Test.Syd.Validity.Property.Utils ( src/Test/Syd/Validity/Property/Utils.hs, dist/build/Test/Syd/Validity/Property/Utils.p_o )
[genvalidity-sydtest] [ 8 of 34] Compiling Test.Syd.Validity.GenValidity.Property ( src/Test/Syd/Validity/GenValidity/Property.hs, dist/build/Test/Syd/Validity/GenValidity/Property.p_o )
[genvalidity-sydtest] [ 9 of 34] Compiling Test.Syd.Validity.Functions.Validity ( src/Test/Syd/Validity/Functions/Validity.hs, dist/build/Test/Syd/Validity/Functions/Validity.p_o )
[genvalidity-sydtest] [10 of 34] Compiling Test.Syd.Validity.Relations.Antireflexivity ( src/Test/Syd/Validity/Relations/Antireflexivity.hs, dist/build/Test/Syd/Validity/Relations/Antireflexivity.p_o )
[genvalidity-sydtest] [11 of 34] Compiling Test.Syd.Validity.Relations.Antisymmetry ( src/Test/Syd/Validity/Relations/Antisymmetry.hs, dist/build/Test/Syd/Validity/Relations/Antisymmetry.p_o )
[genvalidity-sydtest] [12 of 34] Compiling Test.Syd.Validity.Relations.Reflexivity ( src/Test/Syd/Validity/Relations/Reflexivity.hs, dist/build/Test/Syd/Validity/Relations/Reflexivity.p_o )
[genvalidity-sydtest] [13 of 34] Compiling Test.Syd.Validity.Relations.Symmetry ( src/Test/Syd/Validity/Relations/Symmetry.hs, dist/build/Test/Syd/Validity/Relations/Symmetry.p_o )
[genvalidity-sydtest] [14 of 34] Compiling Test.Syd.Validity.Relations.Transitivity ( src/Test/Syd/Validity/Relations/Transitivity.hs, dist/build/Test/Syd/Validity/Relations/Transitivity.p_o )
[genvalidity-sydtest] [15 of 34] Compiling Test.Syd.Validity.Relations ( src/Test/Syd/Validity/Relations.hs, dist/build/Test/Syd/Validity/Relations.p_o )
[genvalidity-sydtest] [16 of 34] Compiling Test.Syd.Validity.Shrinking.Property ( src/Test/Syd/Validity/Shrinking/Property.hs, dist/build/Test/Syd/Validity/Shrinking/Property.p_o )
[genvalidity-sydtest] [17 of 34] Compiling Test.Syd.Validity.Types ( src/Test/Syd/Validity/Types.hs, dist/build/Test/Syd/Validity/Types.p_o )
[genvalidity-sydtest] [18 of 34] Compiling Test.Syd.Validity.Functions.Inverse ( src/Test/Syd/Validity/Functions/Inverse.hs, dist/build/Test/Syd/Validity/Functions/Inverse.p_o )
[genvalidity-sydtest] [19 of 34] Compiling Test.Syd.Validity.Functions.Equivalence ( src/Test/Syd/Validity/Functions/Equivalence.hs, dist/build/Test/Syd/Validity/Functions/Equivalence.p_o )
[genvalidity-sydtest] [20 of 34] Compiling Test.Syd.Validity.Functions.CanFail ( src/Test/Syd/Validity/Functions/CanFail.hs, dist/build/Test/Syd/Validity/Functions/CanFail.p_o )
[genvalidity-sydtest] [21 of 34] Compiling Test.Syd.Validity.Functions ( src/Test/Syd/Validity/Functions.hs, dist/build/Test/Syd/Validity/Functions.p_o )
[genvalidity-sydtest] [22 of 34] Compiling Test.Syd.Validity.Property ( src/Test/Syd/Validity/Property.hs, dist/build/Test/Syd/Validity/Property.p_o )
[opt-env-conf-test] [4 of 4] Compiling Paths_opt_env_conf_test ( dist/build/autogen/Paths_opt_env_conf_test.hs, dist/build/Paths_opt_env_conf_test.o, dist/build/Paths_opt_env_conf_test.dyn_o )
[genvalidity-sydtest] [23 of 34] Compiling Test.Syd.Validity.Utils ( src/Test/Syd/Validity/Utils.hs, dist/build/Test/Syd/Validity/Utils.p_o )
[genvalidity-sydtest] [24 of 34] Compiling Test.Syd.Validity.Shrinking ( src/Test/Syd/Validity/Shrinking.hs, dist/build/Test/Syd/Validity/Shrinking.p_o )
[genvalidity-sydtest] [25 of 34] Compiling Test.Syd.Validity.Show ( src/Test/Syd/Validity/Show.hs, dist/build/Test/Syd/Validity/Show.p_o )
[genvalidity-sydtest] [26 of 34] Compiling Test.Syd.Validity.Ord ( src/Test/Syd/Validity/Ord.hs, dist/build/Test/Syd/Validity/Ord.p_o )
[opt-env-conf-test] [1 of 4] Compiling OptEnvConf.Args.Gen ( src/OptEnvConf/Args/Gen.hs, dist/build/OptEnvConf/Args/Gen.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Args.Gen
[opt-env-conf-test] added 0 mutations
[genvalidity-sydtest] [27 of 34] Compiling Test.Syd.Validity.Monoid ( src/Test/Syd/Validity/Monoid.hs, dist/build/Test/Syd/Validity/Monoid.p_o )
[genvalidity-sydtest] [28 of 34] Compiling Test.Syd.Validity.Monad ( src/Test/Syd/Validity/Monad.hs, dist/build/Test/Syd/Validity/Monad.p_o )
[genvalidity-sydtest] [29 of 34] Compiling Test.Syd.Validity.GenValidity ( src/Test/Syd/Validity/GenValidity.hs, dist/build/Test/Syd/Validity/GenValidity.p_o )
[genvalidity-sydtest] [30 of 34] Compiling Test.Syd.Validity.Functor ( src/Test/Syd/Validity/Functor.hs, dist/build/Test/Syd/Validity/Functor.p_o )
[genvalidity-sydtest] [31 of 34] Compiling Test.Syd.Validity.Eq ( src/Test/Syd/Validity/Eq.hs, dist/build/Test/Syd/Validity/Eq.p_o )
[genvalidity-sydtest] [32 of 34] Compiling Test.Syd.Validity.Arbitrary ( src/Test/Syd/Validity/Arbitrary.hs, dist/build/Test/Syd/Validity/Arbitrary.p_o )
[genvalidity-sydtest] [33 of 34] Compiling Test.Syd.Validity.Applicative ( src/Test/Syd/Validity/Applicative.hs, dist/build/Test/Syd/Validity/Applicative.p_o )
[genvalidity-sydtest] [34 of 34] Compiling Test.Syd.Validity ( src/Test/Syd/Validity.hs, dist/build/Test/Syd/Validity.p_o )
[opt-env-conf-test] [2 of 4] Compiling OptEnvConf.EnvMap.Gen ( src/OptEnvConf/EnvMap/Gen.hs, dist/build/OptEnvConf/EnvMap/Gen.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMap.Gen
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [3 of 4] Compiling OptEnvConf.Test  ( src/OptEnvConf/Test.hs, dist/build/OptEnvConf/Test.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Test
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (True) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not not ((null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v) && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c) || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || not (c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c || c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && not (all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | True = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | not (isVersion version) = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c) || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || not (c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c || c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,7 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added 48 mutations
[opt-env-conf-test] [4 of 4] Compiling Paths_opt_env_conf_test ( dist/build/autogen/Paths_opt_env_conf_test.hs, dist/build/Paths_opt_env_conf_test.p_o )
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Args/Gen.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/EnvMap/Gen.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Test.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/Paths_opt_env_conf_test.dyn_o'
[genvalidity-sydtest] Preprocessing test suite 'genvalidity-sydtest-test' for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] Building test suite 'genvalidity-sydtest-test' for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] [ 1 of 15] Compiling Paths_genvalidity_sydtest ( dist/build/genvalidity-sydtest-test/autogen/Paths_genvalidity_sydtest.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Paths_genvalidity_sydtest.o )
[opt-env-conf-test] mutation-nix: manifest output at /nix/store/7sd5cfgk1d943w5dj66x5iafn4q34d18-opt-env-conf-test-0.0.0.4-manifest:
[opt-env-conf-test] total 76
[opt-env-conf-test] drwxr-xr-x   2 nixbld nixbld  4096 May 13 16:14 .
[opt-env-conf-test] drwxrwxr-t 311 nobody nixbld 28672 May 13 16:14 ..
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld     2 May 13 16:14 OptEnvConf.Args.Gen.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld     2 May 13 16:14 OptEnvConf.EnvMap.Gen.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld 29842 May 13 16:14 OptEnvConf.Test.json
[opt-env-conf-test] Phase: haddockPhase
[opt-env-conf-test] Phase: installPhase
[opt-env-conf-test] Installing library in /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC
[genvalidity-sydtest] [ 2 of 15] Compiling Test.Syd.Validity.ApplicativeSpec ( test/Test/Syd/Validity/ApplicativeSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/ApplicativeSpec.o )
[genvalidity-sydtest] [ 3 of 15] Compiling Test.Syd.Validity.ArbitrarySpec ( test/Test/Syd/Validity/ArbitrarySpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/ArbitrarySpec.o )
[genvalidity-sydtest] [ 4 of 15] Compiling Test.Syd.Validity.EqSpec ( test/Test/Syd/Validity/EqSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/EqSpec.o )
[genvalidity-sydtest] [ 5 of 15] Compiling Test.Syd.Validity.FunctorSpec ( test/Test/Syd/Validity/FunctorSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/FunctorSpec.o )
[genvalidity-sydtest] [ 6 of 15] Compiling Test.Syd.Validity.GenRelativeValiditySpec ( test/Test/Syd/Validity/GenRelativeValiditySpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/GenRelativeValiditySpec.o )
[genvalidity-sydtest] [ 7 of 15] Compiling Test.Syd.Validity.GenValiditySpec ( test/Test/Syd/Validity/GenValiditySpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/GenValiditySpec.o )
[genvalidity-sydtest] [ 8 of 15] Compiling Test.Syd.Validity.MonadSpec ( test/Test/Syd/Validity/MonadSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/MonadSpec.o )
[opt-env-conf-test] Phase: fixupPhase
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] shrinking /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-6DPLjxGHlNS3QVbDSbLJDC-ghc9.10.3.so
[genvalidity-sydtest] [ 9 of 15] Compiling Test.Syd.Validity.MonoidSpec ( test/Test/Syd/Validity/MonoidSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/MonoidSpec.o )
[genvalidity-sydtest] [10 of 15] Compiling Test.Syd.Validity.Operations.CommutativitySpec ( test/Test/Syd/Validity/Operations/CommutativitySpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/Operations/CommutativitySpec.o )
[genvalidity-sydtest] [11 of 15] Compiling Test.Syd.Validity.OrdSpec ( test/Test/Syd/Validity/OrdSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/OrdSpec.o )
[genvalidity-sydtest] [12 of 15] Compiling Test.Syd.Validity.RelativeValiditySpec ( test/Test/Syd/Validity/RelativeValiditySpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/RelativeValiditySpec.o )
[genvalidity-sydtest] [13 of 15] Compiling Test.Syd.Validity.ShowSpec ( test/Test/Syd/Validity/ShowSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/ShowSpec.o )
[genvalidity-sydtest] [14 of 15] Compiling Test.Syd.Validity.ShrinkingSpec ( test/Test/Syd/Validity/ShrinkingSpec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Test/Syd/Validity/ShrinkingSpec.o )
[genvalidity-sydtest] [15 of 15] Compiling Main             ( test/Spec.hs, dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test-tmp/Main.o )
[opt-env-conf-test] checking for references to /build/ in /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] patching script interpreter paths in /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] stripping (with command strip and flags -S -p) in  /nix/store/4iyyr3v2r1n34ssy84nk4zszvk6jy5qc-opt-env-conf-test-0.0.0.4/lib
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/7sd5cfgk1d943w5dj66x5iafn4q34d18-opt-env-conf-test-0.0.0.4-manifest
[opt-env-conf-test] checking for references to /build/ in /nix/store/7sd5cfgk1d943w5dj66x5iafn4q34d18-opt-env-conf-test-0.0.0.4-manifest...
[opt-env-conf-test] patching script interpreter paths in /nix/store/7sd5cfgk1d943w5dj66x5iafn4q34d18-opt-env-conf-test-0.0.0.4-manifest
Progress: 8 of 11 built (1 building)
[genvalidity-sydtest] [16 of 16] Linking dist/build/genvalidity-sydtest-test/genvalidity-sydtest-test
[genvalidity-sydtest] Phase: checkPhase
[genvalidity-sydtest] Running 1 test suites...
[genvalidity-sydtest] Test suite genvalidity-sydtest-test: RUNNING...
[genvalidity-sydtest] Tests:
[genvalidity-sydtest] 
[genvalidity-sydtest] Test.Syd.Validity.MonoidSpec
[genvalidity-sydtest]   Monoid [Int]
[genvalidity-sydtest]     mappend :: [Int] -> [Int] -> [Int]
[genvalidity-sydtest]       ✓ is an associative operation for "valid :: ([Int],[Int],[Int])"                                                                                                                                                                                                                   32.87 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mempty :: [Int]
[genvalidity-sydtest]       ✓ is the identity for mappend :: [Int] -> [Int] -> [Int] for "valid :: [Int]"                                                                                                                                                                                                      45.93 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mconcat :: [[Int]] -> [Int]
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "valid :: [[Int]]"                                                                                                                                                                                                               36.45 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monoid [Int]
[genvalidity-sydtest]     mconcat :: [[Int]] -> [Int]
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "arbitrary :: [[Int]]"                                                                                                                                                                                                           36.31 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mempty :: [Int]
[genvalidity-sydtest]       ✓ is the identity for mappend :: [Int] -> [Int] -> [Int] for "arbitrary :: [Int]"                                                                                                                                                                                                  45.88 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mappend :: [Int] -> [Int] -> [Int]
[genvalidity-sydtest]       ✓ is an associative operation for "arbitrary :: ([Int],[Int],[Int])"                                                                                                                                                                                                               59.73 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monoid ([Ratio Integer])
[genvalidity-sydtest]     mappend :: ([Ratio Integer]) -> ([Ratio Integer]) -> ([Ratio Integer])
[genvalidity-sydtest]       ✓ is an associative operation for "valid :: (([Ratio Integer],[Ratio Integer],[Ratio Integer]))"                                                                                                                                                                                  121.49 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mempty :: ([Ratio Integer])
[genvalidity-sydtest]       ✓ is the identity for mappend :: ([Ratio Integer]) -> ([Ratio Integer]) -> ([Ratio Integer]) for "valid :: ([Ratio Integer])"                                                                                                                                                      95.72 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mconcat :: [([Ratio Integer])] -> ([Ratio Integer])
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "valid :: ([[Ratio Integer]])"                                                                                                                                                                                                   95.66 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monoid [Char]
[genvalidity-sydtest]     mappend :: [Char] -> [Char] -> [Char]
[genvalidity-sydtest]       ✓ is an associative operation for "singleton list of 'a' :: ([Char],[Char],[Char])"                                                                                                                                                                                                 1.48 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mempty :: [Char]
[genvalidity-sydtest]       ✓ is the identity for mappend :: [Char] -> [Char] -> [Char] for "singleton list of 'a' :: [Char]"                                                                                                                                                                                   1.88 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     mconcat :: [[Char]] -> [Char]
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "singleton list of 'a' :: [[Char]]"                                                                                                                                                                                              36.32 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.OrdSpec
[genvalidity-sydtest]   Ord (Ratio Integer)
[genvalidity-sydtest]     "max :: (Ratio Integer -> Ratio Integer -> Ratio Integer)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a >= b then a else b) for "valid (Ratio Integer)"'s                                                                                                                                                                                                 20.82 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>=) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is transitive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                      18.92 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                   18.75 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                       18.71 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= LT) for "valid (Ratio Integer)"'s                                                                                                                                                                                                       54.16 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "min :: (Ratio Integer -> Ratio Integer -> Ratio Integer)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a <= b then a else b) for "valid (Ratio Integer)"'s                                                                                                                                                                                                 19.37 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<=) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= GT) for "valid (Ratio Integer)"'s                                                                                                                                                                                                       35.63 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                       16.71 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                      42.12 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                   31.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == GT) for "valid (Ratio Integer)"'s                                                                                                                                                                                                       43.97 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                      76.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                   55.15 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                   51.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == LT) for "valid (Ratio Integer)"'s                                                                                                                                                                                                       73.24 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid (Ratio Integer)"'s                                                                                                                                                                                                                                      71.50 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Ord Int
[genvalidity-sydtest]     (<=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= GT) for "arbitrary Int"'s                                                                                                                                                                                                               69.92 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "arbitrary Int"'s                                                                                                                                                                                                                                              68.74 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "arbitrary Int"'s                                                                                                                                                                                                                                               73.87 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "arbitrary Int"'s                                                                                                                                                                                                                                           74.27 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "min :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a <= b then a else b) for "arbitrary Int"'s                                                                                                                                                                                                         75.48 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "arbitrary Int"'s                                                                                                                                                                                                                                           75.31 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "arbitrary Int"'s                                                                                                                                                                                                                                              73.92 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == GT) for "arbitrary Int"'s                                                                                                                                                                                                               74.36 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "max :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a >= b then a else b) for "arbitrary Int"'s                                                                                                                                                                                                         62.79 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "arbitrary Int"'s                                                                                                                                                                                                                                              60.10 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == LT) for "arbitrary Int"'s                                                                                                                                                                                                               60.37 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "arbitrary Int"'s                                                                                                                                                                                                                                           60.33 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "arbitrary Int"'s                                                                                                                                                                                                                                              62.26 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= LT) for "arbitrary Int"'s                                                                                                                                                                                                               61.59 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "arbitrary Int"'s                                                                                                                                                                                                                                               53.83 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "arbitrary Int"'s                                                                                                                                                                                                                                           53.89 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Ord Int
[genvalidity-sydtest]     (>=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antisymmetric for "valid Int"'s                                                                                                                                                                                                                                               53.93 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= LT) for "valid Int"'s                                                                                                                                                                                                                   58.30 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid Int"'s                                                                                                                                                                                                                                                  51.97 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid Int"'s                                                                                                                                                                                                                                                   51.99 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "max :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a >= b then a else b) for "valid Int"'s                                                                                                                                                                                                             49.29 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "min :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a <= b then a else b) for "valid Int"'s                                                                                                                                                                                                             49.21 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "valid Int"'s                                                                                                                                                                                                                                               35.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == GT) for "valid Int"'s                                                                                                                                                                                                                   35.58 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid Int"'s                                                                                                                                                                                                                                                  30.69 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "valid Int"'s                                                                                                                                                                                                                                               30.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid Int"'s                                                                                                                                                                                                                                                  31.61 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == LT) for "valid Int"'s                                                                                                                                                                                                                   25.82 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antisymmetric for "valid Int"'s                                                                                                                                                                                                                                               25.43 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= GT) for "valid Int"'s                                                                                                                                                                                                                   25.34 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid Int"'s                                                                                                                                                                                                                                                  25.35 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid Int"'s                                                                                                                                                                                                                                                   25.36 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Ord Int
[genvalidity-sydtest]     (>=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "even Int"'s                                                                                                                                                                                                                                                   25.81 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= LT) for "even Int"'s                                                                                                                                                                                                                    25.79 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "even Int"'s                                                                                                                                                                                                                                                25.73 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "even Int"'s                                                                                                                                                                                                                                                    25.91 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == LT) for "even Int"'s                                                                                                                                                                                                                    28.94 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "even Int"'s                                                                                                                                                                                                                                                28.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "even Int"'s                                                                                                                                                                                                                                                   28.11 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "even Int"'s                                                                                                                                                                                                                                                   26.97 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b == GT) for "even Int"'s                                                                                                                                                                                                                    26.65 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "even Int"'s                                                                                                                                                                                                                                                30.07 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "max :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a >= b then a else b) for "even Int"'s                                                                                                                                                                                                              30.03 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     "min :: (Int -> Int -> Int)"
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> if a <= b then a else b) for "even Int"'s                                                                                                                                                                                                              29.99 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "even Int"'s                                                                                                                                                                                                                                                   24.79 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "even Int"'s                                                                                                                                                                                                                                                    23.18 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> compare a b /= GT) for "even Int"'s                                                                                                                                                                                                                    25.26 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antisymmetric for "even Int"'s                                                                                                                                                                                                                                                23.96 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.MonadSpec
[genvalidity-sydtest]   Monad []
[genvalidity-sydtest]     relation with Applicative []
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "[] of ints :: [Int]"                                                                                                                                                                                                                              30.30 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "[] of ints :: [Int]" and "[] of ints :: [Int]"                                                                                                                                                                                                      87.68 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "[] of additions :: ([Int -> Int])" and "[] of ints :: [Int]"                                                                                                                                                                                         28.31 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Functor []
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "increments :: (Int -> Int)" and "[] of ints :: [Int]"                                                                                                                                                                             27.11 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "[] of ints :: [Int]" "perturbations using the int :: (Int -> [Int])" and "perturbations using the double the int :: (Int -> [Int])"                                                             1351.99 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> [] a and (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "int :: Int" and "perturbations using the int :: (Int -> [Int])"                                                                                                                                                         25.35 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "[] of ints :: [Int]"                                                                                                                                                                                                       30.60 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad Maybe
[genvalidity-sydtest]     (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "Maybe of ints :: (Maybe Int)" "perturbations using the int :: (Int -> Maybe Int)" and "perturbations using the double the int :: (Int -> Maybe Int)"                                              23.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> Maybe a and (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                              27.40 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "int :: Int" and "perturbations using the int :: (Int -> Maybe Int)"                                                                                                                                                     27.40 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Functor Maybe
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "increments :: (Int -> Int)" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                    28.08 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative Maybe
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "Maybe of additions :: (Maybe (Int -> Int))" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                       28.30 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                                                     27.72 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "Maybe of ints :: (Maybe Int)" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                    29.28 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad Maybe
[genvalidity-sydtest]     (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "Maybe of ints :: (Maybe Int)" "perturbations using the int :: (Int -> Maybe Int)" and "perturbations using the double the int :: (Int -> Maybe Int)"                                              29.23 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative Maybe
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                                                     31.66 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "Maybe of ints :: (Maybe Int)" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                    29.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "Maybe of additions :: (Maybe (Int -> Int))" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                       28.92 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> Maybe a and (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                              33.49 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "int :: Int" and "perturbations using the int :: (Int -> Maybe Int)"                                                                                                                                                     27.71 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Functor Maybe
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "increments :: (Int -> Int)" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                    27.54 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad (Either Int)
[genvalidity-sydtest]     return :: a -> (Either Int) a and (>>=) :: (Either Int) a -> (b -> (Either Int) a) -> (Either Int) b
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                                                  29.90 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "int :: Int" and "perturbations using the int :: (Int -> Either Int Int)"                                                                                                                                                34.38 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative (Either Int)
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "(Either Int) of additions :: (Either Int (Int -> Int))" and "(Either Int) of ints :: (Either Int Int)"                                                                                                                                               34.34 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                                                                         28.87 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "(Either Int) of ints :: (Either Int Int)" and "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                            41.81 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>>=) :: (Either Int) a -> (b -> (Either Int) a) -> (Either Int) b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "(Either Int) of ints :: (Either Int Int)" "perturbations using the int :: (Int -> Either Int Int)" and "perturbations using the double the int :: (Int -> Either Int Int)"                        39.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Functor (Either Int)
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "increments :: (Int -> Int)" and "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                        39.96 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad Maybe
[genvalidity-sydtest]     relation with Functor Maybe
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "appends :: ([Char] -> [Char])" and "Just an ABC :: (Maybe [Char])"                                                                                                                                                                51.60 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative Maybe
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "Just an ABC :: (Maybe [Char])"                                                                                                                                                                                                                    64.64 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "Just an ABC :: (Maybe [Char])" and "Just an ABC :: (Maybe [Char])"                                                                                                                                                                                  81.25 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "append 'a' in Just :: (Maybe ([Char] -> [Char]))" and "Just an ABC :: (Maybe [Char])"                                                                                                                                                                64.39 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "Just an ABC :: (Maybe [Char])" "justisation :: ([Char] -> Maybe [Char])" and "justisation :: ([Char] -> Maybe [Char])"                                                                            64.35 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> Maybe a and (>>=) :: Maybe a -> (b -> Maybe a) -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "Just an ABC :: (Maybe [Char])"                                                                                                                                                                                             62.57 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "ABC :: [Char]" and "justisation :: ([Char] -> Maybe [Char])"                                                                                                                                                            69.16 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad []
[genvalidity-sydtest]     (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "list of fives :: [Int]" "singletonisation :: (Int -> [Int])" and "singletonisation :: (Int -> [Int])"                                                                                             82.65 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> [] a and (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "list of fives :: [Int]"                                                                                                                                                                                                    76.59 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "four :: Int" and "singletonisation :: (Int -> [Int])"                                                                                                                                                                   75.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative []
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "list of fives :: [Int]"                                                                                                                                                                                                                           67.23 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "list of fives :: [Int]" and "list of sixes :: [Int]"                                                                                                                                                                                               136.27 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "increment in list :: ([Int -> Int])" and "list of fives :: [Int]"                                                                                                                                                                                    75.95 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Functor []
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "factorisations :: (Int -> Int)" and "list of fives :: [Int]"                                                                                                                                                                      77.85 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Monad []
[genvalidity-sydtest]     relation with Functor []
[genvalidity-sydtest]       ✓ satisfies 'fmap f xs = xs >>= return . f' for "increments :: (Int -> Int)" and "[] of ints :: [Int]"                                                                                                                                                                             88.31 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfies the third Monad law: 'm >>= (x -> k x >>= h) = (m >>= k) >>= h' for "[] of ints :: [Int]" "perturbations using the int :: (Int -> [Int])" and "perturbations using the double the int :: (Int -> [Int])"                                                             1064.62 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     relation with Applicative []
[genvalidity-sydtest]       ✓ satisfies '(>>) = (*>)' for "[] of ints :: [Int]" and "[] of ints :: [Int]"                                                                                                                                                                                                     145.09 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies 'pure = return' for "[] of ints :: [Int]"                                                                                                                                                                                                                              78.76 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies '(<*>) = ap' for "[] of additions :: ([Int -> Int])" and "[] of ints :: [Int]"                                                                                                                                                                                         90.94 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     return :: a -> [] a and (>>=) :: [] a -> (b -> [] a) -> [] b
[genvalidity-sydtest]       ✓ satisfy the first Monad law: 'return a >>= k = k a' for "int :: Int" and "perturbations using the int :: (Int -> [Int])"                                                                                                                                                         73.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the second Monad law: 'm >>= return = m' for "[] of ints :: [Int]"                                                                                                                                                                                                       73.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.EqSpec
[genvalidity-sydtest]   Eq (Ratio Integer)
[genvalidity-sydtest]     (==) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a /= b) for "valid (Ratio Integer)"s                                                                                                                                                                                                            123.83 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid (Ratio Integer)"s                                                                                                                                                                                                                                      123.55 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid (Ratio Integer)"s                                                                                                                                                                                                                                       115.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is symmetric for "valid (Ratio Integer)"s                                                                                                                                                                                                                                       136.77 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (/=) :: (Ratio Integer) -> (Ratio Integer) -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a == b) for "valid (Ratio Integer)"s                                                                                                                                                                                                            125.73 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "valid (Ratio Integer)"s                                                                                                                                                                                                                                   132.19 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Eq Int
[genvalidity-sydtest]     (==) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a /= b) for "valid Int"s                                                                                                                                                                                                                        136.30 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "valid Int"s                                                                                                                                                                                                                                                   129.93 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "valid Int"s                                                                                                                                                                                                                                                  129.88 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is symmetric for "valid Int"s                                                                                                                                                                                                                                                   140.67 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (/=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a == b) for "valid Int"s                                                                                                                                                                                                                        150.40 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is antireflexive for "valid Int"s                                                                                                                                                                                                                                               143.89 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Eq Int
[genvalidity-sydtest]     (==) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is transitive for "arbitrary Int"s                                                                                                                                                                                                                                              144.73 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is symmetric for "arbitrary Int"s                                                                                                                                                                                                                                               151.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "arbitrary Int"s                                                                                                                                                                                                                                               150.02 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a /= b) for "arbitrary Int"s                                                                                                                                                                                                                    150.04 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (/=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "arbitrary Int"s                                                                                                                                                                                                                                           149.09 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a == b) for "arbitrary Int"s                                                                                                                                                                                                                    146.68 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Eq Int
[genvalidity-sydtest]     (/=) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is antireflexive for "even Int"s                                                                                                                                                                                                                                                147.57 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a == b) for "even Int"s                                                                                                                                                                                                                         145.27 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (==) :: Int -> Int -> Bool
[genvalidity-sydtest]       ✓ is equivalent to (\a b -> not $ a /= b) for "even Int"s                                                                                                                                                                                                                         145.21 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is symmetric for "even Int"s                                                                                                                                                                                                                                                    145.13 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is reflexive for "even Int"s                                                                                                                                                                                                                                                    193.02 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ is transitive for "even Int"s                                                                                                                                                                                                                                                   169.55 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.ArbitrarySpec
[genvalidity-sydtest]   Arbitrary Int
[genvalidity-sydtest]     arbitrary :: Gen Int
[genvalidity-sydtest]       ✓ only generates valid values                                                                                                                                                                                                                                                     176.69 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.Operations.CommutativitySpec
[genvalidity-sydtest]   commutative
[genvalidity-sydtest]     ✓ cross product is not commutative                                                                                                                                                                                                                                                  394.00 ms
[genvalidity-sydtest]       passed for all of 1 inputs.
[genvalidity-sydtest]     ✓ + is commutative                                                                                                                                                                                                                                                                  176.08 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ * is commutative                                                                                                                                                                                                                                                                  185.79 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ - is not commutative                                                                                                                                                                                                                                                              885.07 ms
[genvalidity-sydtest]       passed for all of 1 inputs.
[genvalidity-sydtest]     ✓ dot product is commutative                                                                                                                                                                                                                                                        178.05 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.GenValiditySpec
[genvalidity-sydtest]   GenValid (Ratio Integer)
[genvalidity-sydtest]     genValid   :: Gen (Ratio Integer)
[genvalidity-sydtest]       ✓ only generates valid '(Ratio Integer)'s                                                                                                                                                                                                                                         205.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   GenValid (Ratio Integer)
[genvalidity-sydtest]     genValid   :: Gen (Ratio Integer)
[genvalidity-sydtest]       ✓ only generates valid '(Ratio Integer)'s                                                                                                                                                                                                                                         212.30 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.ShrinkingSpec
[genvalidity-sydtest]   shrinkValid :: (Int -> [Int])
[genvalidity-sydtest]     ✓ preserves validity                                                                                                                                                                                                                                                                219.63 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ never shrinks to itself for valid values                                                                                                                                                                                                                                          218.94 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   shrinkValidPreservesValidOnGenValid
[genvalidity-sydtest]     ✓ [Ordering]                                                                                                                                                                                                                                                                        318.91 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ Ordering                                                                                                                                                                                                                                                                          244.99 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   shrinkValid :: (Ratio Int8 -> [Ratio Int8])
[genvalidity-sydtest]     ✓ never shrinks to itself for valid values                                                                                                                                                                                                                                          278.12 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ preserves validity                                                                                                                                                                                                                                                                296.99 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   shrinkValidDoesNotShrinkToItself
[genvalidity-sydtest]     ✓ [Int]                                                                                                                                                                                                                                                                             865.06 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ Int                                                                                                                                                                                                                                                                               263.04 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   shrinkValidDoesNotShrinkToItself
[genvalidity-sydtest]     ✓ [Ordering]                                                                                                                                                                                                                                                                        295.76 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ Ordering                                                                                                                                                                                                                                                                          261.93 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   shrinkValidPreservesValidOnGenValid
[genvalidity-sydtest]     ✓ Ordering                                                                                                                                                                                                                                                                          261.98 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]     ✓ [Ordering]                                                                                                                                                                                                                                                                        329.14 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.FunctorSpec
[genvalidity-sydtest]   Functor Maybe
[genvalidity-sydtest]     fmap :: (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "Just an ABC :: (Maybe [Char])" 's given to "prepends :: ([Char] -> [Char])" and "appends :: ([Char] -> [Char])"                                                                                       270.86 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "Just an ABC :: (Maybe [Char])"                                                                                                                                                                                             261.06 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<$) :: a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "ABC :: [Char]" and "Just an ABC :: (Maybe [Char])"                                                                                                                                                                             268.04 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor []
[genvalidity-sydtest]     fmap :: (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "list of fives :: [Int]"                                                                                                                                                                                                    269.06 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "list of fives :: [Int]" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                                       252.63 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<$) :: a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "four :: Int" and "list of fives :: [Int]"                                                                                                                                                                                      247.99 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor []
[genvalidity-sydtest]     (<$) :: a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "[] of ints :: [Int]"                                                                                                                                                                                          216.98 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     fmap :: (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "[] of ints :: [Int]" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                                          218.89 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "[] of ints :: [Int]"                                                                                                                                                                                                       244.90 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor (Either Int)
[genvalidity-sydtest]     fmap :: (a -> b) -> (Either Int) a -> (Either Int) b
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                                                  217.86 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "(Either Int) of ints :: (Either Int Int)" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                     213.02 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<$) :: a -> (Either Int) b -> (Either Int) a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                                     194.81 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor []
[genvalidity-sydtest]     (<$) :: a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "[] of ints :: [Int]"                                                                                                                                                                                          190.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     fmap :: (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "[] of ints :: [Int]"                                                                                                                                                                                                       191.02 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "[] of ints :: [Int]" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                                          170.03 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor Maybe
[genvalidity-sydtest]     (<$) :: a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                 136.05 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     fmap :: (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "Maybe of ints :: (Maybe Int)" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                                 137.89 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                              136.40 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor ((,) Int)
[genvalidity-sydtest]     fmap :: (a -> b) -> ((,) Int) a -> ((,) Int) b
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "((,) Int) of ints :: (Int,Int)" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                               150.04 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "((,) Int) of ints :: (Int,Int)"                                                                                                                                                                                            136.80 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<$) :: a -> ((,) Int) b -> ((,) Int) a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "((,) Int) of ints :: (Int,Int)"                                                                                                                                                                               143.85 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Functor Maybe
[genvalidity-sydtest]     (<$) :: a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation for "int :: Int" and "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                 141.22 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     fmap :: (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfieds the second Functor law: 'fmap (f . g) == fmap f . fmap g' for "Maybe of ints :: (Maybe Int)" 's given to "increments :: (Int -> Int)" and "scalings :: (Int -> Int)"                                                                                                 156.57 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfies the first Fuctor law: 'fmap id == id' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                              150.01 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.ShowSpec
[genvalidity-sydtest]   Show (Ratio Integer) and Read (Ratio Integer)
[genvalidity-sydtest]     ✓ are implemented such that read . show == id for arbitrary values                                                                                                                                                                                                                  181.41 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   Show Int and Read Int
[genvalidity-sydtest]     ✓ are implemented such that read . show == id for valid values                                                                                                                                                                                                                      158.20 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   Show (Ratio Integer) and Read (Ratio Integer)
[genvalidity-sydtest]     ✓ are implemented such that read . show == id for valid values                                                                                                                                                                                                                      218.21 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest]   Show Int and Read Int
[genvalidity-sydtest]     ✓ are implemented such that read . show == id for even values                                                                                                                                                                                                                       146.98 ms
[genvalidity-sydtest]       passed for all of 100 inputs.
[genvalidity-sydtest] Test.Syd.Validity.ApplicativeSpec
[genvalidity-sydtest]   Applicative []
[genvalidity-sydtest]     (*>) :: [] a -> [] b -> [] b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "[] of ints :: [Int]" in front of "[] of ints :: Int"                                                                                                                                 222.96 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     pure :: a -> [] a and (<*>) :: [] (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "[] of increments :: ([Int -> Int])" sequenced with "int :: Int"                                                                                                                                             158.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "[] of ints :: [Int]"                                                                                                                                          198.38 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "[] of ints :: [Int]"                                                                                                                                                                                                         186.20 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "[] of scalings :: ([Int -> Int])" composed with "[] of increments :: ([Int -> Int])" and applied to "[] of ints :: [Int]"                                                                      182.84 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "int :: Int"                                                                                                                                                     182.63 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: [] a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "[] of ints :: Int" behind "[] of ints :: [Int]"                                                                                                                                              241.88 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative (Either Int)
[genvalidity-sydtest]     (*>) :: (Either Int) a -> (Either Int) b -> (Either Int) b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "(Either Int) of ints :: (Either Int Int)" in front of "(Either Int) of ints :: Int"                                                                                                  173.21 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: (Either Int) a -> (Either Int) b -> (Either Int) a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "(Either Int) of ints :: Int" behind "(Either Int) of ints :: (Either Int Int)"                                                                                                               156.89 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     pure :: a -> (Either Int) a and (<*>) :: (Either Int) (a -> b) -> (Either Int) a -> (Either Int) b
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "(Either Int) of ints :: (Either Int Int)"                                                                                                                                                                                    192.94 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "(Either Int) of ints :: (Either Int Int)"                                                                                                                     193.37 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "(Either Int) of scalings :: (Either Int (Int -> Int))" composed with "(Either Int) of increments :: (Either Int (Int -> Int))" and applied to "(Either Int) of ints :: (Either Int Int)"       257.72 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "int :: Int"                                                                                                                                                     232.00 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "(Either Int) of increments :: (Either Int (Int -> Int))" sequenced with "int :: Int"                                                                                                                        206.83 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative Maybe
[genvalidity-sydtest]     pure :: a -> Maybe a and (<*>) :: Maybe (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "int :: Int"                                                                                                                                                     230.07 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "Maybe of increments :: (Maybe (Int -> Int))" sequenced with "int :: Int"                                                                                                                                    205.78 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "Maybe of ints :: (Maybe Int)"                                                                                                                                 217.63 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "Maybe of scalings :: (Maybe (Int -> Int))" composed with "Maybe of increments :: (Maybe (Int -> Int))" and applied to "Maybe of ints :: (Maybe Int)"                                           233.40 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                                201.56 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: Maybe a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "Maybe of ints :: Int" behind "Maybe of ints :: (Maybe Int)"                                                                                                                                  206.19 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (*>) :: Maybe a -> Maybe b -> Maybe b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "Maybe of ints :: (Maybe Int)" in front of "Maybe of ints :: Int"                                                                                                                     203.80 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative Maybe
[genvalidity-sydtest]     (<*) :: Maybe a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "purely Nothing :: [Char]" behind "Just an ABC :: (Maybe [Char])"                                                                                                                             202.77 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (*>) :: Maybe a -> Maybe b -> Maybe b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "Just an ABC :: (Maybe [Char])" in front of "purely Nothing :: [Char]"                                                                                                                193.48 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     pure :: a -> Maybe a and (<*>) :: Maybe (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "Just an ABC :: (Maybe [Char])"                                                                                                                                                                                               192.04 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "prepends :: ([Char] -> [Char])" mapped over "Just an ABC :: (Maybe [Char])"                                                                                                                            160.46 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "prepends :: ([Char] -> [Char])" sequenced with "ABC :: [Char]"                                                                                                                                              160.33 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "appends in a Just :: (Maybe ([Char] -> [Char]))" composed with "prepends in a Just :: (Maybe ([Char] -> [Char]))" and applied to "Just an ABC :: (Maybe [Char])"                               152.69 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "prepends in a Just :: (Maybe ([Char] -> [Char]))" sequenced with "ABC :: [Char]"                                                                                                                            152.74 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative []
[genvalidity-sydtest]     (*>) :: [] a -> [] b -> [] b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "[] of ints :: [Int]" in front of "[] of ints :: Int"                                                                                                                                 236.51 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     pure :: a -> [] a and (<*>) :: [] (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "int :: Int"                                                                                                                                                     163.14 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "[] of scalings :: ([Int -> Int])" composed with "[] of increments :: ([Int -> Int])" and applied to "[] of ints :: [Int]"                                                                      172.04 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "[] of ints :: [Int]"                                                                                                                                          171.08 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "[] of ints :: [Int]"                                                                                                                                                                                                         144.50 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "[] of increments :: ([Int -> Int])" sequenced with "int :: Int"                                                                                                                                             156.61 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: [] a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "[] of ints :: Int" behind "[] of ints :: [Int]"                                                                                                                                              191.13 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative []
[genvalidity-sydtest]     pure :: a -> [] a and (<*>) :: [] (a -> b) -> [] a -> [] b
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "four :: Int"                                                                                                                                                    140.23 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "increments in a list :: ([Int -> Int])" sequenced with "four :: Int"                                                                                                                                        128.64 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "scalings in a list :: ([Int -> Int])" composed with "increments in a list :: ([Int -> Int])" and applied to "list of fives :: [Int]"                                                           117.62 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "list of fives :: [Int]"                                                                                                                                                                                                      116.95 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "list of fives :: [Int]"                                                                                                                                       116.93 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: [] a -> [] b -> [] a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "purely empty list :: Int" behind "list of fives :: [Int]"                                                                                                                                    116.52 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (*>) :: [] a -> [] b -> [] b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "list of fives :: [Int]" in front of "purely empty list :: Int"                                                                                                                       110.88 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]   Applicative Maybe
[genvalidity-sydtest]     (*>) :: Maybe a -> Maybe b -> Maybe b
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u Type> v = pure (const id) <*> u <*> v' for "Maybe of ints :: (Maybe Int)" in front of "Maybe of ints :: Int"                                                                                                                     107.13 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     (<*) :: Maybe a -> Maybe b -> Maybe a
[genvalidity-sydtest]       ✓ is equivalent to its default implementation 'u <* v = pure const <*> u <*> v' for "Maybe of ints :: Int" behind "Maybe of ints :: (Maybe Int)"                                                                                                                                  106.22 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]     pure :: a -> Maybe a and (<*>) :: Maybe (a -> b) -> Maybe a -> Maybe b
[genvalidity-sydtest]       ✓ satisfy the composition law: 'pure (.) <*> u <*> v <*> w = u <*> (v <*> w)' for "Maybe of scalings :: (Maybe (Int -> Int))" composed with "Maybe of increments :: (Maybe (Int -> Int))" and applied to "Maybe of ints :: (Maybe Int)"                                           123.70 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the identity law: 'pure id <*> v = v' for "Maybe of ints :: (Maybe Int)"                                                                                                                                                                                                113.22 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the law about the functor instance: fmap f x = pure f <*> x for "increments :: (Int -> Int)" mapped over "Maybe of ints :: (Maybe Int)"                                                                                                                                 128.96 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the homomorphism law: 'pure f <*> pure x = pure (f x)' for "increments :: (Int -> Int)" sequenced with "int :: Int"                                                                                                                                                     129.06 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest]       ✓ satisfy the interchange law: 'u <*> pure y = pure ($ y) <*> u' for "Maybe of increments :: (Maybe (Int -> Int))" sequenced with "int :: Int"                                                                                                                                    120.51 ms
[genvalidity-sydtest]         passed for all of 100 inputs.
[genvalidity-sydtest] 
[genvalidity-sydtest]   Examples:                     24402
[genvalidity-sydtest]   Passed:                       246
[genvalidity-sydtest]   Failed:                       0
[genvalidity-sydtest]   Sum of test runtimes:        31.77 seconds
[genvalidity-sydtest]   Test suite took:              1.55 seconds
[genvalidity-sydtest] 
[genvalidity-sydtest] Test suite genvalidity-sydtest-test: PASS
[genvalidity-sydtest] Test suite logged to:
[genvalidity-sydtest] dist/test/genvalidity-sydtest-1.0.1.0-genvalidity-sydtest-test.log
[genvalidity-sydtest] 1 of 1 test suites (1 of 1 test cases) passed.
[genvalidity-sydtest] Phase: haddockPhase
[genvalidity-sydtest] Preprocessing library for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] Running Haddock on library for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] Warning: The documentation for the following packages are not installed. No
[genvalidity-sydtest] links will be generated to these packages: attoparsec-0.14.4,
[genvalidity-sydtest] attoparsec-0.14.4, libyaml-clib-0.2.5, opt-env-conf-0.15.0.1, path-0.9.6,
[genvalidity-sydtest] path-0.9.6, vector-0.13.2.0
[genvalidity-sydtest] [ 1 of 34] Compiling Paths_genvalidity_sydtest ( dist/build/autogen/Paths_genvalidity_sydtest.hs, nothing )
[genvalidity-sydtest] [ 2 of 34] Compiling Test.Syd.Validity.Functions.Idempotence ( src/Test/Syd/Validity/Functions/Idempotence.hs, nothing )
[genvalidity-sydtest] [ 3 of 34] Compiling Test.Syd.Validity.Operations.Associativity ( src/Test/Syd/Validity/Operations/Associativity.hs, nothing )
[genvalidity-sydtest] [ 4 of 34] Compiling Test.Syd.Validity.Operations.Commutativity ( src/Test/Syd/Validity/Operations/Commutativity.hs, nothing )
[genvalidity-sydtest] [ 5 of 34] Compiling Test.Syd.Validity.Operations.Identity ( src/Test/Syd/Validity/Operations/Identity.hs, nothing )
[genvalidity-sydtest] [ 6 of 34] Compiling Test.Syd.Validity.Operations ( src/Test/Syd/Validity/Operations.hs, nothing )
[genvalidity-sydtest] [ 7 of 34] Compiling Test.Syd.Validity.Property.Utils ( src/Test/Syd/Validity/Property/Utils.hs, nothing )
[genvalidity-sydtest] [ 8 of 34] Compiling Test.Syd.Validity.GenValidity.Property ( src/Test/Syd/Validity/GenValidity/Property.hs, nothing )
[genvalidity-sydtest] [ 9 of 34] Compiling Test.Syd.Validity.Functions.Validity ( src/Test/Syd/Validity/Functions/Validity.hs, nothing )
[genvalidity-sydtest] [10 of 34] Compiling Test.Syd.Validity.Relations.Antireflexivity ( src/Test/Syd/Validity/Relations/Antireflexivity.hs, nothing )
[genvalidity-sydtest] [11 of 34] Compiling Test.Syd.Validity.Relations.Antisymmetry ( src/Test/Syd/Validity/Relations/Antisymmetry.hs, nothing )
[genvalidity-sydtest] [12 of 34] Compiling Test.Syd.Validity.Relations.Reflexivity ( src/Test/Syd/Validity/Relations/Reflexivity.hs, nothing )
[genvalidity-sydtest] [13 of 34] Compiling Test.Syd.Validity.Relations.Symmetry ( src/Test/Syd/Validity/Relations/Symmetry.hs, nothing )
[genvalidity-sydtest] [14 of 34] Compiling Test.Syd.Validity.Relations.Transitivity ( src/Test/Syd/Validity/Relations/Transitivity.hs, nothing )
[genvalidity-sydtest] [15 of 34] Compiling Test.Syd.Validity.Relations ( src/Test/Syd/Validity/Relations.hs, nothing )
[genvalidity-sydtest] [16 of 34] Compiling Test.Syd.Validity.Shrinking.Property ( src/Test/Syd/Validity/Shrinking/Property.hs, nothing )
[genvalidity-sydtest] [17 of 34] Compiling Test.Syd.Validity.Types ( src/Test/Syd/Validity/Types.hs, nothing )
[genvalidity-sydtest] [18 of 34] Compiling Test.Syd.Validity.Functions.Inverse ( src/Test/Syd/Validity/Functions/Inverse.hs, nothing )
[genvalidity-sydtest] [19 of 34] Compiling Test.Syd.Validity.Functions.Equivalence ( src/Test/Syd/Validity/Functions/Equivalence.hs, nothing )
[genvalidity-sydtest] [20 of 34] Compiling Test.Syd.Validity.Functions.CanFail ( src/Test/Syd/Validity/Functions/CanFail.hs, nothing )
[genvalidity-sydtest] [21 of 34] Compiling Test.Syd.Validity.Functions ( src/Test/Syd/Validity/Functions.hs, nothing )
[genvalidity-sydtest] [22 of 34] Compiling Test.Syd.Validity.Property ( src/Test/Syd/Validity/Property.hs, nothing )
[genvalidity-sydtest] [23 of 34] Compiling Test.Syd.Validity.Utils ( src/Test/Syd/Validity/Utils.hs, nothing )
[genvalidity-sydtest] [24 of 34] Compiling Test.Syd.Validity.Shrinking ( src/Test/Syd/Validity/Shrinking.hs, nothing )
[genvalidity-sydtest] [25 of 34] Compiling Test.Syd.Validity.Show ( src/Test/Syd/Validity/Show.hs, nothing )
[genvalidity-sydtest] [26 of 34] Compiling Test.Syd.Validity.Ord ( src/Test/Syd/Validity/Ord.hs, nothing )
[genvalidity-sydtest] [27 of 34] Compiling Test.Syd.Validity.Monoid ( src/Test/Syd/Validity/Monoid.hs, nothing )
[genvalidity-sydtest] [28 of 34] Compiling Test.Syd.Validity.Monad ( src/Test/Syd/Validity/Monad.hs, nothing )
[genvalidity-sydtest] [29 of 34] Compiling Test.Syd.Validity.GenValidity ( src/Test/Syd/Validity/GenValidity.hs, nothing )
[genvalidity-sydtest] [30 of 34] Compiling Test.Syd.Validity.Functor ( src/Test/Syd/Validity/Functor.hs, nothing )
[genvalidity-sydtest] [31 of 34] Compiling Test.Syd.Validity.Eq ( src/Test/Syd/Validity/Eq.hs, nothing )
[genvalidity-sydtest] [32 of 34] Compiling Test.Syd.Validity.Arbitrary ( src/Test/Syd/Validity/Arbitrary.hs, nothing )
[genvalidity-sydtest] [33 of 34] Compiling Test.Syd.Validity.Applicative ( src/Test/Syd/Validity/Applicative.hs, nothing )
[genvalidity-sydtest] [34 of 34] Compiling Test.Syd.Validity ( src/Test/Syd/Validity.hs, nothing )
[genvalidity-sydtest] Haddock coverage:
[genvalidity-sydtest]   50% (  2 /  4) in 'Test.Syd.Validity.Functions.Idempotence'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     idempotentOnGen (src/Test/Syd/Validity/Functions/Idempotence.hs:17)
[genvalidity-sydtest]     idempotent (src/Test/Syd/Validity/Functions/Idempotence.hs:20)
[genvalidity-sydtest]   75% (  3 /  4) in 'Test.Syd.Validity.Operations.Associativity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]   75% (  3 /  4) in 'Test.Syd.Validity.Operations.Commutativity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]   64% (  9 / 14) in 'Test.Syd.Validity.Operations.Identity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     leftIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:54)
[genvalidity-sydtest]     leftIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:66)
[genvalidity-sydtest]     rightIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:111)
[genvalidity-sydtest]     rightIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:123)
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Operations'
[genvalidity-sydtest]    0% (  0 /  6) in 'Test.Syd.Validity.Property.Utils'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     forAllValid (src/Test/Syd/Validity/Property/Utils.hs:15)
[genvalidity-sydtest]     shouldBeValid (src/Test/Syd/Validity/Property/Utils.hs:24)
[genvalidity-sydtest]     shouldBeInvalid (src/Test/Syd/Validity/Property/Utils.hs:40)
[genvalidity-sydtest]     <==> (src/Test/Syd/Validity/Property/Utils.hs:21)
[genvalidity-sydtest]     ===> (src/Test/Syd/Validity/Property/Utils.hs:18)
[genvalidity-sydtest]  100% (  3 /  3) in 'Test.Syd.Validity.GenValidity.Property'
[genvalidity-sydtest]   40% (  4 / 10) in 'Test.Syd.Validity.Functions.Validity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     producesValidsOnGens2 (src/Test/Syd/Validity/Functions/Validity.hs:51)
[genvalidity-sydtest]     producesValid2 (src/Test/Syd/Validity/Functions/Validity.hs:58)
[genvalidity-sydtest]     producesValidsOnArbitrary2 (src/Test/Syd/Validity/Functions/Validity.hs:64)
[genvalidity-sydtest]     producesValidsOnGens3 (src/Test/Syd/Validity/Functions/Validity.hs:72)
[genvalidity-sydtest]     producesValid3 (src/Test/Syd/Validity/Functions/Validity.hs:87)
[genvalidity-sydtest]     producesValidsOnArbitrary3 (src/Test/Syd/Validity/Functions/Validity.hs:101)
[genvalidity-sydtest]   60% (  3 /  5) in 'Test.Syd.Validity.Relations.Antireflexivity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     antireflexivityOnGen (src/Test/Syd/Validity/Relations/Antireflexivity.hs:32)
[genvalidity-sydtest]   50% (  3 /  6) in 'Test.Syd.Validity.Relations.Antisymmetry'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     antisymmetryOnGensWithEquality (src/Test/Syd/Validity/Relations/Antisymmetry.hs:43)
[genvalidity-sydtest]     antisymmetryOnGens (src/Test/Syd/Validity/Relations/Antisymmetry.hs:54)
[genvalidity-sydtest]   60% (  3 /  5) in 'Test.Syd.Validity.Relations.Reflexivity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     reflexivityOnGen (src/Test/Syd/Validity/Relations/Reflexivity.hs:32)
[genvalidity-sydtest]   60% (  3 /  5) in 'Test.Syd.Validity.Relations.Symmetry'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     symmetryOnGens (src/Test/Syd/Validity/Relations/Symmetry.hs:34)
[genvalidity-sydtest]   60% (  3 /  5) in 'Test.Syd.Validity.Relations.Transitivity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     transitivityOnGens (src/Test/Syd/Validity/Relations/Transitivity.hs:35)
[genvalidity-sydtest]  100% (  6 /  6) in 'Test.Syd.Validity.Relations'
[genvalidity-sydtest]  100% ( 13 / 13) in 'Test.Syd.Validity.Shrinking.Property'
[genvalidity-sydtest]   50% (  1 /  2) in 'Test.Syd.Validity.Types'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]   15% (  2 / 13) in 'Test.Syd.Validity.Functions.Inverse'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     inverseFunctionsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:28)
[genvalidity-sydtest]     inverseFunctions (src/Test/Syd/Validity/Functions/Inverse.hs:33)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:49)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:60)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:68)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:78)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:89)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:97)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:107)
[genvalidity-sydtest]     inverseFunctionsIfSucceed (src/Test/Syd/Validity/Functions/Inverse.hs:120)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:128)
[genvalidity-sydtest]    7% (  2 / 28) in 'Test.Syd.Validity.Functions.Equivalence'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     equivalentOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:47)
[genvalidity-sydtest]     equivalent (src/Test/Syd/Validity/Functions/Equivalence.hs:54)
[genvalidity-sydtest]     equivalentOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:73)
[genvalidity-sydtest]     equivalent2 (src/Test/Syd/Validity/Functions/Equivalence.hs:81)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:100)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:119)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:111)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:129)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:162)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:147)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:172)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:191)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:183)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:201)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:234)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:219)
[genvalidity-sydtest]     equivalentWhenSucceedOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:244)
[genvalidity-sydtest]     equivalentWhenSucceed (src/Test/Syd/Validity/Functions/Equivalence.hs:258)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:266)
[genvalidity-sydtest]     equivalentWhenSucceedOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:276)
[genvalidity-sydtest]     equivalentWhenSucceed2 (src/Test/Syd/Validity/Functions/Equivalence.hs:312)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:297)
[genvalidity-sydtest]     equivalentOnGens3 (src/Test/Syd/Validity/Functions/Equivalence.hs:322)
[genvalidity-sydtest]     equivalent3 (src/Test/Syd/Validity/Functions/Equivalence.hs:338)
[genvalidity-sydtest]     equivalentOnArbitrary3 (src/Test/Syd/Validity/Functions/Equivalence.hs:353)
[genvalidity-sydtest]   38% (  7 / 18) in 'Test.Syd.Validity.Functions.CanFail'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     succeedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:77)
[genvalidity-sydtest]     succeeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:84)
[genvalidity-sydtest]     succeedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:90)
[genvalidity-sydtest]     failsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:100)
[genvalidity-sydtest]     validIfSucceedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:109)
[genvalidity-sydtest]     validIfSucceeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:119)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:125)
[genvalidity-sydtest]     validIfSucceedsOnGens3 (src/Test/Syd/Validity/Functions/CanFail.hs:133)
[genvalidity-sydtest]     validIfSucceeds3 (src/Test/Syd/Validity/Functions/CanFail.hs:152)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary3 (src/Test/Syd/Validity/Functions/CanFail.hs:158)
[genvalidity-sydtest]  100% (  6 /  6) in 'Test.Syd.Validity.Functions'
[genvalidity-sydtest]   54% ( 80 /146) in 'Test.Syd.Validity.Property'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     Module header
[genvalidity-sydtest]     forAllValid (src/Test/Syd/Validity/Property/Utils.hs:15)
[genvalidity-sydtest]     producesValidsOnGens2 (src/Test/Syd/Validity/Functions/Validity.hs:51)
[genvalidity-sydtest]     producesValid2 (src/Test/Syd/Validity/Functions/Validity.hs:58)
[genvalidity-sydtest]     producesValidsOnArbitrary2 (src/Test/Syd/Validity/Functions/Validity.hs:64)
[genvalidity-sydtest]     producesValidsOnGens3 (src/Test/Syd/Validity/Functions/Validity.hs:72)
[genvalidity-sydtest]     producesValid3 (src/Test/Syd/Validity/Functions/Validity.hs:87)
[genvalidity-sydtest]     producesValidsOnArbitrary3 (src/Test/Syd/Validity/Functions/Validity.hs:101)
[genvalidity-sydtest]     succeedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:77)
[genvalidity-sydtest]     succeeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:84)
[genvalidity-sydtest]     succeedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:90)
[genvalidity-sydtest]     failsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:100)
[genvalidity-sydtest]     validIfSucceedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:109)
[genvalidity-sydtest]     validIfSucceeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:119)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:125)
[genvalidity-sydtest]     validIfSucceedsOnGens3 (src/Test/Syd/Validity/Functions/CanFail.hs:133)
[genvalidity-sydtest]     validIfSucceeds3 (src/Test/Syd/Validity/Functions/CanFail.hs:152)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary3 (src/Test/Syd/Validity/Functions/CanFail.hs:158)
[genvalidity-sydtest]     equivalentOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:47)
[genvalidity-sydtest]     equivalent (src/Test/Syd/Validity/Functions/Equivalence.hs:54)
[genvalidity-sydtest]     equivalentOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:73)
[genvalidity-sydtest]     equivalent2 (src/Test/Syd/Validity/Functions/Equivalence.hs:81)
[genvalidity-sydtest]     equivalentOnGens3 (src/Test/Syd/Validity/Functions/Equivalence.hs:322)
[genvalidity-sydtest]     equivalent3 (src/Test/Syd/Validity/Functions/Equivalence.hs:338)
[genvalidity-sydtest]     equivalentOnArbitrary3 (src/Test/Syd/Validity/Functions/Equivalence.hs:353)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:100)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:119)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:111)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:129)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:162)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:147)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:172)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:191)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:183)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:201)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:234)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:219)
[genvalidity-sydtest]     equivalentWhenSucceedOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:244)
[genvalidity-sydtest]     equivalentWhenSucceed (src/Test/Syd/Validity/Functions/Equivalence.hs:258)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:266)
[genvalidity-sydtest]     equivalentWhenSucceedOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:276)
[genvalidity-sydtest]     equivalentWhenSucceed2 (src/Test/Syd/Validity/Functions/Equivalence.hs:312)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:297)
[genvalidity-sydtest]     inverseFunctionsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:28)
[genvalidity-sydtest]     inverseFunctions (src/Test/Syd/Validity/Functions/Inverse.hs:33)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:49)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:60)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:68)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:78)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:89)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:97)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:107)
[genvalidity-sydtest]     inverseFunctionsIfSucceed (src/Test/Syd/Validity/Functions/Inverse.hs:120)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:128)
[genvalidity-sydtest]     idempotentOnGen (src/Test/Syd/Validity/Functions/Idempotence.hs:17)
[genvalidity-sydtest]     idempotent (src/Test/Syd/Validity/Functions/Idempotence.hs:20)
[genvalidity-sydtest]     reflexivityOnGen (src/Test/Syd/Validity/Relations/Reflexivity.hs:32)
[genvalidity-sydtest]     transitivityOnGens (src/Test/Syd/Validity/Relations/Transitivity.hs:35)
[genvalidity-sydtest]     antisymmetryOnGensWithEquality (src/Test/Syd/Validity/Relations/Antisymmetry.hs:43)
[genvalidity-sydtest]     antisymmetryOnGens (src/Test/Syd/Validity/Relations/Antisymmetry.hs:54)
[genvalidity-sydtest]     antireflexivityOnGen (src/Test/Syd/Validity/Relations/Antireflexivity.hs:32)
[genvalidity-sydtest]     symmetryOnGens (src/Test/Syd/Validity/Relations/Symmetry.hs:34)
[genvalidity-sydtest]     leftIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:54)
[genvalidity-sydtest]     leftIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:66)
[genvalidity-sydtest]     rightIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:111)
[genvalidity-sydtest]     rightIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:123)
[genvalidity-sydtest] Warning: 'Spec' is out of scope.
[genvalidity-sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[genvalidity-sydtest]   14% (  1 /  7) in 'Test.Syd.Validity.Utils'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     nameOf (src/Test/Syd/Validity/Utils.hs:27)
[genvalidity-sydtest]     genDescr (src/Test/Syd/Validity/Utils.hs:38)
[genvalidity-sydtest]     binRelStr (src/Test/Syd/Validity/Utils.hs:45)
[genvalidity-sydtest]     shouldBeValid (src/Test/Syd/Validity/Property/Utils.hs:24)
[genvalidity-sydtest]     shouldBeInvalid (src/Test/Syd/Validity/Property/Utils.hs:40)
[genvalidity-sydtest]     Anon (src/Test/Syd/Validity/Utils.hs:49)
[genvalidity-sydtest]   45% (  5 / 11) in 'Test.Syd.Validity.Shrinking'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     shrinkValidSpec (src/Test/Syd/Validity/Shrinking.hs:35)
[genvalidity-sydtest]     shrinkValidSpecWithLimit (src/Test/Syd/Validity/Shrinking.hs:48)
[genvalidity-sydtest]     shrinkValidPreservesValidOnGenValid (src/Test/Syd/Validity/Shrinking.hs:66)
[genvalidity-sydtest]     shrinkValidPreservesValidOnGenValidWithLimit (src/Test/Syd/Validity/Shrinking.hs:74)
[genvalidity-sydtest]     shrinkValidDoesNotShrinkToItself (src/Test/Syd/Validity/Shrinking.hs:81)
[genvalidity-sydtest]     shrinkValidDoesNotShrinkToItselfWithLimit (src/Test/Syd/Validity/Shrinking.hs:89)
[genvalidity-sydtest]  100% (  7 /  7) in 'Test.Syd.Validity.Show'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Ord'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Monoid'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Monad'
[genvalidity-sydtest]  100% (  5 /  5) in 'Test.Syd.Validity.GenValidity'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Functor'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Eq'
[genvalidity-sydtest]  100% (  3 /  3) in 'Test.Syd.Validity.Arbitrary'
[genvalidity-sydtest]  100% (  4 /  4) in 'Test.Syd.Validity.Applicative'
[genvalidity-sydtest] Warning: 'Spec' is out of scope.
[genvalidity-sydtest]     If you qualify the identifier, haddock can try to link it anyway.
[genvalidity-sydtest]   63% (122 /192) in 'Test.Syd.Validity'
[genvalidity-sydtest]   Missing documentation for:
[genvalidity-sydtest]     forAllValid (src/Test/Syd/Validity/Property/Utils.hs:15)
[genvalidity-sydtest]     shouldBeValid (src/Test/Syd/Validity/Property/Utils.hs:24)
[genvalidity-sydtest]     shouldBeInvalid (src/Test/Syd/Validity/Property/Utils.hs:40)
[genvalidity-sydtest]     shrinkValidSpec (src/Test/Syd/Validity/Shrinking.hs:35)
[genvalidity-sydtest]     shrinkValidSpecWithLimit (src/Test/Syd/Validity/Shrinking.hs:48)
[genvalidity-sydtest]     shrinkValidPreservesValidOnGenValid (src/Test/Syd/Validity/Shrinking.hs:66)
[genvalidity-sydtest]     producesValidsOnGens2 (src/Test/Syd/Validity/Functions/Validity.hs:51)
[genvalidity-sydtest]     producesValid2 (src/Test/Syd/Validity/Functions/Validity.hs:58)
[genvalidity-sydtest]     producesValidsOnArbitrary2 (src/Test/Syd/Validity/Functions/Validity.hs:64)
[genvalidity-sydtest]     producesValidsOnGens3 (src/Test/Syd/Validity/Functions/Validity.hs:72)
[genvalidity-sydtest]     producesValid3 (src/Test/Syd/Validity/Functions/Validity.hs:87)
[genvalidity-sydtest]     producesValidsOnArbitrary3 (src/Test/Syd/Validity/Functions/Validity.hs:101)
[genvalidity-sydtest]     succeedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:77)
[genvalidity-sydtest]     succeeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:84)
[genvalidity-sydtest]     succeedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:90)
[genvalidity-sydtest]     failsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:100)
[genvalidity-sydtest]     validIfSucceedsOnGens2 (src/Test/Syd/Validity/Functions/CanFail.hs:109)
[genvalidity-sydtest]     validIfSucceeds2 (src/Test/Syd/Validity/Functions/CanFail.hs:119)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/CanFail.hs:125)
[genvalidity-sydtest]     validIfSucceedsOnGens3 (src/Test/Syd/Validity/Functions/CanFail.hs:133)
[genvalidity-sydtest]     validIfSucceeds3 (src/Test/Syd/Validity/Functions/CanFail.hs:152)
[genvalidity-sydtest]     validIfSucceedsOnArbitrary3 (src/Test/Syd/Validity/Functions/CanFail.hs:158)
[genvalidity-sydtest]     equivalentOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:47)
[genvalidity-sydtest]     equivalent (src/Test/Syd/Validity/Functions/Equivalence.hs:54)
[genvalidity-sydtest]     equivalentOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:73)
[genvalidity-sydtest]     equivalent2 (src/Test/Syd/Validity/Functions/Equivalence.hs:81)
[genvalidity-sydtest]     equivalentOnGens3 (src/Test/Syd/Validity/Functions/Equivalence.hs:322)
[genvalidity-sydtest]     equivalent3 (src/Test/Syd/Validity/Functions/Equivalence.hs:338)
[genvalidity-sydtest]     equivalentOnArbitrary3 (src/Test/Syd/Validity/Functions/Equivalence.hs:353)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:100)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:119)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:111)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:129)
[genvalidity-sydtest]     equivalentWhenFirstSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:162)
[genvalidity-sydtest]     equivalentWhenFirstSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:147)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:172)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds (src/Test/Syd/Validity/Functions/Equivalence.hs:191)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:183)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:201)
[genvalidity-sydtest]     equivalentWhenSecondSucceeds2 (src/Test/Syd/Validity/Functions/Equivalence.hs:234)
[genvalidity-sydtest]     equivalentWhenSecondSucceedsOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:219)
[genvalidity-sydtest]     equivalentWhenSucceedOnGen (src/Test/Syd/Validity/Functions/Equivalence.hs:244)
[genvalidity-sydtest]     equivalentWhenSucceed (src/Test/Syd/Validity/Functions/Equivalence.hs:258)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Equivalence.hs:266)
[genvalidity-sydtest]     equivalentWhenSucceedOnGens2 (src/Test/Syd/Validity/Functions/Equivalence.hs:276)
[genvalidity-sydtest]     equivalentWhenSucceed2 (src/Test/Syd/Validity/Functions/Equivalence.hs:312)
[genvalidity-sydtest]     equivalentWhenSucceedOnArbitrary2 (src/Test/Syd/Validity/Functions/Equivalence.hs:297)
[genvalidity-sydtest]     inverseFunctionsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:28)
[genvalidity-sydtest]     inverseFunctions (src/Test/Syd/Validity/Functions/Inverse.hs:33)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:49)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:60)
[genvalidity-sydtest]     inverseFunctionsIfFirstSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:68)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:78)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceeds (src/Test/Syd/Validity/Functions/Inverse.hs:89)
[genvalidity-sydtest]     inverseFunctionsIfSecondSucceedsOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:97)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnGen (src/Test/Syd/Validity/Functions/Inverse.hs:107)
[genvalidity-sydtest]     inverseFunctionsIfSucceed (src/Test/Syd/Validity/Functions/Inverse.hs:120)
[genvalidity-sydtest]     inverseFunctionsIfSucceedOnArbitrary (src/Test/Syd/Validity/Functions/Inverse.hs:128)
[genvalidity-sydtest]     idempotentOnGen (src/Test/Syd/Validity/Functions/Idempotence.hs:17)
[genvalidity-sydtest]     idempotent (src/Test/Syd/Validity/Functions/Idempotence.hs:20)
[genvalidity-sydtest]     reflexivityOnGen (src/Test/Syd/Validity/Relations/Reflexivity.hs:32)
[genvalidity-sydtest]     transitivityOnGens (src/Test/Syd/Validity/Relations/Transitivity.hs:35)
[genvalidity-sydtest]     antisymmetryOnGensWithEquality (src/Test/Syd/Validity/Relations/Antisymmetry.hs:43)
[genvalidity-sydtest]     antisymmetryOnGens (src/Test/Syd/Validity/Relations/Antisymmetry.hs:54)
[genvalidity-sydtest]     antireflexivityOnGen (src/Test/Syd/Validity/Relations/Antireflexivity.hs:32)
[genvalidity-sydtest]     symmetryOnGens (src/Test/Syd/Validity/Relations/Symmetry.hs:34)
[genvalidity-sydtest]     leftIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:54)
[genvalidity-sydtest]     leftIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:66)
[genvalidity-sydtest]     rightIdentityOnGenWithEquality (src/Test/Syd/Validity/Operations/Identity.hs:111)
[genvalidity-sydtest]     rightIdentityOnGen (src/Test/Syd/Validity/Operations/Identity.hs:123)
[genvalidity-sydtest] Documentation created: dist/doc/html/genvalidity-sydtest/,
[genvalidity-sydtest] dist/doc/html/genvalidity-sydtest/genvalidity-sydtest.txt
[genvalidity-sydtest] Preprocessing test suite 'genvalidity-sydtest-test' for genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] Phase: installPhase
[genvalidity-sydtest] Installing library in /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[genvalidity-sydtest] Phase: fixupPhase
[genvalidity-sydtest] shrinking RPATHs of ELF executables and libraries in /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] shrinking /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSgenvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1-ghc9.10.3.so
[genvalidity-sydtest] checking for references to /build/ in /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0...
[genvalidity-sydtest] patching script interpreter paths in /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0
[genvalidity-sydtest] stripping (with command strip and flags -S -p) in  /nix/store/sgkyb7pc9wdgkg4vf35v3rh8hvv9dzf6-genvalidity-sydtest-1.0.1.0/lib
[genvalidity-sydtest] shrinking RPATHs of ELF executables and libraries in /nix/store/b1656l9077mn7wsqlhvsz4v1zdy3k4d2-genvalidity-sydtest-1.0.1.0-doc
[genvalidity-sydtest] checking for references to /build/ in /nix/store/b1656l9077mn7wsqlhvsz4v1zdy3k4d2-genvalidity-sydtest-1.0.1.0-doc...
[genvalidity-sydtest] patching script interpreter paths in /nix/store/b1656l9077mn7wsqlhvsz4v1zdy3k4d2-genvalidity-sydtest-1.0.1.0-doc
Progress: 9 of 11 built
Building opt-env-conf-test
[opt-env-conf-test] Phase: setupCompilerEnvironmentPhase
[opt-env-conf-test] Build with /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3.
[opt-env-conf-test] Phase: unpackPhase
[opt-env-conf-test] unpacking source archive /nix/store/szg912dq8cjqpi9hjxdjhhqnmll08r8m-opt-env-conf-test-source-0.0.0.4/opt-env-conf-test-0.0.0.4.tar.gz
[opt-env-conf-test] source root is opt-env-conf-test-0.0.0.4
[opt-env-conf-test] setting SOURCE_DATE_EPOCH to timestamp 1778688886 of file "opt-env-conf-test-0.0.0.4/test/Spec.hs"
[opt-env-conf-test] warning: file "opt-env-conf-test-0.0.0.4/test/Spec.hs" may be generated; SOURCE_DATE_EPOCH may be non-deterministic
[opt-env-conf-test] Phase: patchPhase
[opt-env-conf-test] Phase: compileBuildDriverPhase
[opt-env-conf-test] setupCompileFlags: -package-db=/build/tmp.kzmBGq1HTZ/setup-package.conf.d -threaded
[opt-env-conf-test] [1 of 2] Compiling Main             ( Setup.hs, /build/tmp.kzmBGq1HTZ/Main.o )
[opt-env-conf-test] [2 of 2] Linking Setup
[opt-env-conf-test] Phase: updateAutotoolsGnuConfigScriptsPhase
[opt-env-conf-test] Phase: configurePhase
[opt-env-conf-test] configureFlags: --verbose --prefix=/nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4 --libdir=$prefix/lib/$compiler/lib --libsubdir=$abi/$libname --with-gcc=gcc --package-db=/build/tmp.kzmBGq1HTZ/package.conf.d --ghc-option=-j16 --ghc-option=+RTS --ghc-option=-A64M --ghc-option=-RTS --enable-library-profiling --profiling-detail=exported-functions --disable-profiling --enable-shared --disable-coverage --disable-static --disable-executable-dynamic --enable-tests --disable-benchmarks --enable-library-vanilla --disable-library-for-ghci --enable-split-sections --enable-library-stripping --enable-executable-stripping --ghc-options=-O2 --ghc-options=-Wall --ghc-options=-Wincomplete-uni-patterns --ghc-options=-Wincomplete-record-updates --ghc-options=-Wpartial-fields --ghc-options=-Widentities --ghc-options=-Wredundant-constraints --ghc-options=-Wcpp-undef --ghc-options=-Werror --ghc-options=-fplugin-opt=Test.Syd.Mutation.Plugin:--debug --disable-optimization --ghc-option=-j1 --ghc-option=+RTS --ghc-option=-A32M --ghc-option=-M16g --ghc-option=-RTS --extra-lib-dirs=/nix/store/ffyzkisqs4vc4mg28bwwlyqjf8i9ph6b-ncurses-6.5/lib --extra-lib-dirs=/nix/store/n28qgdj8c1q41kf7n4y1jxa6ckp85m3c-libffi-3.5.2/lib --extra-lib-dirs=/nix/store/1b6h99dw7bk4wbn77kbalih42zbc67m1-elfutils-0.194/lib --extra-lib-dirs=/nix/store/hi0ar880110k6jsmmili7dh1gq3cg2a9-gmp-with-cxx-6.3.0/lib --extra-lib-dirs=/nix/store/g09cflpnp4g80q56sj9dng1qzv4v4ybc-numactl-2.0.18/lib --extra-lib-dirs=/nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/lib
[opt-env-conf-test] Using Parsec parser
[opt-env-conf-test] Configuring opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] Dependency aeson: using aeson-2.2.3.0
[opt-env-conf-test] Dependency base <5: using base-4.20.2.0
[opt-env-conf-test] Dependency genvalidity: using genvalidity-1.1.1.0
[opt-env-conf-test] Dependency genvalidity-containers: using genvalidity-containers-1.0.0.2
[opt-env-conf-test] Dependency opt-env-conf >=0.9.0.0: using opt-env-conf-0.15.0.1
[opt-env-conf-test] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[opt-env-conf-test] Dependency sydtest: using sydtest-0.23.0.2
[opt-env-conf-test] Dependency text: using text-2.1.3
[opt-env-conf-test] Dependency QuickCheck: using QuickCheck-2.15.0.1
[opt-env-conf-test] Dependency aeson: using aeson-2.2.3.0
[opt-env-conf-test] Dependency autodocodec: using autodocodec-0.5.0.0
[opt-env-conf-test] Dependency base <5: using base-4.20.2.0
[opt-env-conf-test] Dependency containers: using containers-0.7
[opt-env-conf-test] Dependency genvalidity-aeson: using genvalidity-aeson-1.1.0.0
[opt-env-conf-test] Dependency genvalidity-sydtest: using genvalidity-sydtest-1.0.1.0
[opt-env-conf-test] Dependency genvalidity-text: using genvalidity-text-1.0.0.1
[opt-env-conf-test] Dependency mtl: using mtl-2.3.1
[opt-env-conf-test] Dependency opt-env-conf: using opt-env-conf-0.15.0.1
[opt-env-conf-test] Dependency opt-env-conf-test: using opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Dependency path: using path-0.9.6
[opt-env-conf-test] Dependency path-io: using path-io-1.8.2
[opt-env-conf-test] Dependency pretty-show: using pretty-show-1.10
[opt-env-conf-test] Dependency safe-coloured-text: using safe-coloured-text-0.5.0.0
[opt-env-conf-test] Dependency sydtest: using sydtest-0.23.0.2
[opt-env-conf-test] Dependency text: using text-2.1.3
[opt-env-conf-test] Source component graph:
[opt-env-conf-test]     component lib
[opt-env-conf-test]     component test:opt-env-conf-test dependency lib
[opt-env-conf-test] Configured component graph:
[opt-env-conf-test]     component opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test]     component opt-env-conf-test-0.0.0.4-KxSfu6G06Q14RRoIVXj6rB-opt-env-conf-test
[opt-env-conf-test]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include containers-0.7-504a
[opt-env-conf-test]         include genvalidity-aeson-1.1.0.0-9PPko3LuC4hJdadeXInnhB
[opt-env-conf-test]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[opt-env-conf-test]         include genvalidity-text-1.0.0.1-3o9b8WY3tDp4YbgmJHHJUk
[opt-env-conf-test]         include mtl-2.3.1-b4af
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf-test]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf-test]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test] Linked component graph:
[opt-env-conf-test]     unit opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         include genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test]         OptEnvConf.Args.Gen=opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT:OptEnvConf.Args.Gen,OptEnvConf.EnvMap.Gen=opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT:OptEnvConf.EnvMap.Gen,OptEnvConf.Test=opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT:OptEnvConf.Test
[opt-env-conf-test]     unit opt-env-conf-test-0.0.0.4-KxSfu6G06Q14RRoIVXj6rB-opt-env-conf-test
[opt-env-conf-test]         include QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[opt-env-conf-test]         include aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         include autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf-test]         include base-4.20.2.0-64da
[opt-env-conf-test]         include containers-0.7-504a
[opt-env-conf-test]         include genvalidity-aeson-1.1.0.0-9PPko3LuC4hJdadeXInnhB
[opt-env-conf-test]         include genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[opt-env-conf-test]         include genvalidity-text-1.0.0.1-3o9b8WY3tDp4YbgmJHHJUk
[opt-env-conf-test]         include mtl-2.3.1-b4af
[opt-env-conf-test]         include opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         include opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         include path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf-test]         include path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf-test]         include pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[opt-env-conf-test]         include safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         include sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         include text-2.1.3-c691
[opt-env-conf-test] Ready component graph:
[opt-env-conf-test]     definite opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         depends aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         depends base-4.20.2.0-64da
[opt-env-conf-test]         depends genvalidity-1.1.1.0-KJOcA1wEUno9vXRiVdno1L
[opt-env-conf-test]         depends genvalidity-containers-1.0.0.2-DXaOCEBh8iJ1c8u2LwVlK1
[opt-env-conf-test]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         depends text-2.1.3-c691
[opt-env-conf-test]     definite opt-env-conf-test-0.0.0.4-KxSfu6G06Q14RRoIVXj6rB-opt-env-conf-test
[opt-env-conf-test]         depends QuickCheck-2.15.0.1-8fVC1qSJKj9H9pvMjJXUwU
[opt-env-conf-test]         depends aeson-2.2.3.0-7E4AsQHgFKfArDQma5twwk
[opt-env-conf-test]         depends autodocodec-0.5.0.0-1mMvp4WI6JDKv9IH8Klk8Y
[opt-env-conf-test]         depends base-4.20.2.0-64da
[opt-env-conf-test]         depends containers-0.7-504a
[opt-env-conf-test]         depends genvalidity-aeson-1.1.0.0-9PPko3LuC4hJdadeXInnhB
[opt-env-conf-test]         depends genvalidity-sydtest-1.0.1.0-Cj9ZxpByhih2ReY6BClfG1
[opt-env-conf-test]         depends genvalidity-text-1.0.0.1-3o9b8WY3tDp4YbgmJHHJUk
[opt-env-conf-test]         depends mtl-2.3.1-b4af
[opt-env-conf-test]         depends opt-env-conf-0.15.0.1-JvaGg7XfaOeFjxfZDQZnJI
[opt-env-conf-test]         depends opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test]         depends path-0.9.6-JuNdYVciddTDWUiQr3NuVx
[opt-env-conf-test]         depends path-io-1.8.2-J5Tb8ehzZIb1sPaxTlVmSL
[opt-env-conf-test]         depends pretty-show-1.10-CuGoXeUvzjB9II93JT7lKs
[opt-env-conf-test]         depends safe-coloured-text-0.5.0.0-4FuoIi5owbVJgc3wW3DUAf
[opt-env-conf-test]         depends sydtest-0.23.0.2-RzVaEpJISaERaSrCHYFLw
[opt-env-conf-test]         depends text-2.1.3-c691
[opt-env-conf-test] Using Cabal-3.12.1.0 compiled by ghc-9.10
[opt-env-conf-test] Using compiler: ghc-9.10.3
[opt-env-conf-test] Using install prefix:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Executables installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/bin
[opt-env-conf-test] Libraries installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test] Dynamic Libraries installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6
[opt-env-conf-test] Private executables installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/libexec/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Data files installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/share/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Documentation installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/share/doc/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4
[opt-env-conf-test] Configuration files installed in:
[opt-env-conf-test] /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/etc
[opt-env-conf-test] No alex found
[opt-env-conf-test] Using ar found on system at:
[opt-env-conf-test] /nix/store/iz5lckcsg66r223si2gck7csk2hihj0m-binutils-wrapper-2.44/bin/ar
[opt-env-conf-test] No c2hs found
[opt-env-conf-test] No cpphs found
[opt-env-conf-test] No doctest found
[opt-env-conf-test] Using gcc version 14.3.0 given by user at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/gcc
[opt-env-conf-test] Using ghc version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc
[opt-env-conf-test] Using ghc-pkg version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/ghc-pkg-9.10.3
[opt-env-conf-test] No ghcjs found
[opt-env-conf-test] No ghcjs-pkg found
[opt-env-conf-test] No greencard found
[opt-env-conf-test] Using haddock version 2.31.1 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/haddock-ghc-9.10.3
[opt-env-conf-test] No happy found
[opt-env-conf-test] Using haskell-suite found on system at: haskell-suite-dummy-location
[opt-env-conf-test] Using haskell-suite-pkg found on system at: haskell-suite-pkg-dummy-location
[opt-env-conf-test] No hmake found
[opt-env-conf-test] Using hpc version 0.69 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hpc-ghc-9.10.3
[opt-env-conf-test] Using hsc2hs version 0.68.10 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/hsc2hs-ghc-9.10.3
[opt-env-conf-test] Using hscolour version 1.25 found on system at:
[opt-env-conf-test] /nix/store/f755skyzf4jvfx3crwq9mmh3x4lsaz8i-hscolour-1.25/bin/HsColour
[opt-env-conf-test] No jhc found
[opt-env-conf-test] Using ld found on system at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/ld
[opt-env-conf-test] No pkg-config found
[opt-env-conf-test] Using runghc version 9.10.3 found on system at:
[opt-env-conf-test] /nix/store/s9jd43rkwc2syl9cvgj6f786avy8bgzy-ghc-9.10.3/bin/runghc-9.10.3
[opt-env-conf-test] Using strip version 2.44 found on system at:
[opt-env-conf-test] /nix/store/8v97ngkcpfzgghwnnr7fsz33p2x22gy9-gcc-wrapper-14.3.0/bin/strip
[opt-env-conf-test] Using tar found on system at:
[opt-env-conf-test] /nix/store/xl6pd2spjajwcpq09fnmnjv5psqmlmma-gnutar-1.35/bin/tar
[opt-env-conf-test] No uhc found
[opt-env-conf-test] Phase: buildPhase
[opt-env-conf-test] mutation-nix: setting MUTATION_MANIFEST_DIR=/nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
[opt-env-conf-test] Preprocessing library for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] Building library for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] [1 of 4] Compiling OptEnvConf.Args.Gen ( src/OptEnvConf/Args/Gen.hs, dist/build/OptEnvConf/Args/Gen.o, dist/build/OptEnvConf/Args/Gen.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Args.Gen
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [2 of 4] Compiling OptEnvConf.EnvMap.Gen ( src/OptEnvConf/EnvMap/Gen.hs, dist/build/OptEnvConf/EnvMap/Gen.o, dist/build/OptEnvConf/EnvMap/Gen.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMap.Gen
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [3 of 4] Compiling OptEnvConf.Test  ( src/OptEnvConf/Test.hs, dist/build/OptEnvConf/Test.o, dist/build/OptEnvConf/Test.dyn_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Test
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (True) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not not ((null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v) && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c) || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || not (c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c || c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && not (all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | True = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | not (isVersion version) = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c) || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || not (c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c || c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,7 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added 48 mutations
[opt-env-conf-test] [4 of 4] Compiling Paths_opt_env_conf_test ( dist/build/autogen/Paths_opt_env_conf_test.hs, dist/build/Paths_opt_env_conf_test.o, dist/build/Paths_opt_env_conf_test.dyn_o )
[opt-env-conf-test] [1 of 4] Compiling OptEnvConf.Args.Gen ( src/OptEnvConf/Args/Gen.hs, dist/build/OptEnvConf/Args/Gen.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Args.Gen
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [2 of 4] Compiling OptEnvConf.EnvMap.Gen ( src/OptEnvConf/EnvMap/Gen.hs, dist/build/OptEnvConf/EnvMap/Gen.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMap.Gen
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [3 of 4] Compiling OptEnvConf.Test  ( src/OptEnvConf/Test.hs, dist/build/OptEnvConf/Test.p_o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.Test
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (True) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not not ((null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v) && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c) || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || not (c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False) v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c || c == '.')) v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && not (all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | True = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | not (isVersion version) = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c) || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || not (c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation Negate at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c || c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,7 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] added 48 mutations
[opt-env-conf-test] [4 of 4] Compiling Paths_opt_env_conf_test ( dist/build/autogen/Paths_opt_env_conf_test.hs, dist/build/Paths_opt_env_conf_test.p_o )
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Args/Gen.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/EnvMap/Gen.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/OptEnvConf/Test.dyn_o'
[opt-env-conf-test] Warning: ignoring unrecognised input `dist/build/Paths_opt_env_conf_test.dyn_o'
[opt-env-conf-test] Preprocessing test suite 'opt-env-conf-test' for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] Building test suite 'opt-env-conf-test' for opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] [ 1 of 16] Compiling OptEnvConf.ArgsSpec ( test/OptEnvConf/ArgsSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ArgsSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ArgsSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ArgsSpec.hs:38:69-73
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]    describe "renderDashed" $ do
[opt-env-conf-test]      it "roundtrips with parseArg for long dashed" $
[opt-env-conf-test]        forAllValid $ \n ->
[opt-env-conf-test] -        parseArg (renderDashed (DashedLong n)) `shouldBe` ArgDashed True n
[opt-env-conf-test] +        parseArg (renderDashed (DashedLong n)) `shouldBe` ArgDashed False n
[opt-env-conf-test]  
[opt-env-conf-test]      it "roundtrips with parseArg for short dashed" $
[opt-env-conf-test]        forAllValid $ \c ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ArgsSpec.hs:42:70-75
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "roundtrips with parseArg for short dashed" $
[opt-env-conf-test]        forAllValid $ \c ->
[opt-env-conf-test] -        parseArg (renderDashed (DashedShort c)) `shouldBe` ArgDashed False (c :| [])
[opt-env-conf-test] +        parseArg (renderDashed (DashedShort c)) `shouldBe` ArgDashed True (c :| [])
[opt-env-conf-test]  
[opt-env-conf-test]    describe "consumeArgument" $ do
[opt-env-conf-test]      it "does not consume anything if there is nothing to consume" $
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed True cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed False cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed not (isLong) cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed True cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed False cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed not (isLong) cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added 8 mutations
[opt-env-conf-test] [ 2 of 16] Compiling OptEnvConf.CheckSpec ( test/OptEnvConf/CheckSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CheckSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CheckSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:30:52-56
[opt-env-conf-test] @@ -27,7 +27,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p Args.emptyArgs EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckSucceeded () -> True
[opt-env-conf-test] +                              CheckSucceeded () -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:31:36-41
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckSucceeded () -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "fails when a required setting is missing" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:40:48-52
[opt-env-conf-test] @@ -37,7 +37,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p Args.emptyArgs EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:41:36-41
[opt-env-conf-test] @@ -38,7 +38,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says incapable when a required capability is missing" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:50:51-55
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn (disableCapability (Capability "read-secret") allCapabilities) stderrTc p ["arg"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckIncapable _ -> True
[opt-env-conf-test] +                              CheckIncapable _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:51:36-41
[opt-env-conf-test] @@ -48,7 +48,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckIncapable _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says failed when a required capability is available" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:60:48-52
[opt-env-conf-test] @@ -57,7 +57,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p ["arg"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:61:36-41
[opt-env-conf-test] @@ -58,7 +58,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says failed when a required capability is missing but another setting failed" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:75:48-52
[opt-env-conf-test] @@ -72,6 +72,6 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn (disableCapability (Capability "read-secret") allCapabilities) stderrTc p ["arg1", "arg2"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:76:36-41
[opt-env-conf-test] @@ -73,5 +73,5 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test] added 10 mutations
[opt-env-conf-test] [ 3 of 16] Compiling OptEnvConf.CompleterSpec ( test/OptEnvConf/CompleterSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CompleterSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CompleterSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,8 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,7 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" []
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,7 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,8 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [fileR "bar/quux.txt", dirR "bar/"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:62:15-53
[opt-env-conf-test] @@ -59,7 +59,7 @@
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test] -        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] +        c "." []
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:62:15-53
[opt-env-conf-test] @@ -59,7 +59,7 @@
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test] -        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] +        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" []
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,8 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" [fileR "./foo.txt", fileR "./config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" []
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,8 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" [fileR "././foo.txt", fileR "././config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:65:17-59
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] -        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] +        c "./." []
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:65:17-59
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] -        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] +        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,8 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:72:18-58
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test]          -- shells decide whether to append a trailing space after a
[opt-env-conf-test]          -- completion.
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:72:18-58
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test]          -- shells decide whether to append a trailing space after a
[opt-env-conf-test]          -- completion.
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:74:22-67
[opt-env-conf-test] @@ -71,7 +71,7 @@
[opt-env-conf-test]          -- completion.
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test] -        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/deep" []
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test]          c "bar/q" [fileR "bar/quux.txt"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:74:22-67
[opt-env-conf-test] @@ -71,7 +71,7 @@
[opt-env-conf-test]          -- completion.
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test] -        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test]          c "bar/q" [fileR "bar/quux.txt"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,10 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml",
[opt-env-conf-test] +                           dirR "../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,10 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml",
[opt-env-conf-test] +                           dirR "../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:110:26-27
[opt-env-conf-test] @@ -107,9 +107,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Parent directory in the middle of a path
[opt-env-conf-test]          itWithOuter "can complete \"bar/../\" to current dir contents" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:110:26-27
[opt-env-conf-test] @@ -107,9 +107,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] +                           dirR "../bar/deep/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Parent directory in the middle of a path
[opt-env-conf-test]          itWithOuter "can complete \"bar/../\" to current dir contents" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,7 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,10 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] +                           fileR "bar/../config.yaml",
[opt-env-conf-test] +                           dirR "bar/../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,9 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] +                           fileR "bar/../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:133:26-27
[opt-env-conf-test] @@ -130,9 +130,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/deep/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Absolute paths
[opt-env-conf-test]          itWithOuter "can complete absolute paths" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:133:26-27
[opt-env-conf-test] @@ -130,9 +130,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/deep/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] +                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Absolute paths
[opt-env-conf-test]          itWithOuter "can complete absolute paths" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,7 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,10 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] +                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] +                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,10 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] +                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] +                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:163:19-54
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test]          c "././" [dirR "././bar/"]
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:163:19-54
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test]          c "././" [dirR "././bar/"]
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:167:18-49
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] -        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:167:18-49
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] -        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:210:14-48
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:210:14-48
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:213:17-48
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]          c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" []
[opt-env-conf-test]  
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:213:17-48
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]          c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:220:55-72
[opt-env-conf-test] @@ -217,7 +217,7 @@
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test]                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test] -                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test] +                  unCompleter (filePathWithExtensions []) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:220:55-72
[opt-env-conf-test] @@ -217,7 +217,7 @@
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test]                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test] -                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test] +                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,8 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:223:18-58
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test]  fileR s =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:223:18-58
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test]  fileR s =
[opt-env-conf-test] added 66 mutations
[opt-env-conf-test] [ 4 of 16] Compiling OptEnvConf.CompletionSpec ( test/OptEnvConf/CompletionSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CompletionSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CompletionSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,7 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,7 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,8 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [switch (), short 'e'
[opt-env-conf-test] +])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:37:9-10
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:42:18-40
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e'])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:42:18-40
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e'])
[opt-env-conf-test] +        (setting [switch (), short 'e'])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:43:9-10
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), short 'e'])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:49:18-45
[opt-env-conf-test] @@ -46,7 +46,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:49:18-45
[opt-env-conf-test] @@ -46,7 +46,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [switch (), long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:50:9-10
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:56:18-45
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:56:18-45
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [switch (), long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:57:9-10
[opt-env-conf-test] @@ -54,7 +54,7 @@
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:64:9-10
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:71:9-10
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:78:9-10
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:78:9-10
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:88:9-10
[opt-env-conf-test] @@ -85,7 +85,7 @@
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:88:9-10
[opt-env-conf-test] @@ -85,7 +85,7 @@
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:26-49
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:26-49
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:62-85
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:62-85
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:98:9-10
[opt-env-conf-test] @@ -95,7 +95,7 @@
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:100:9-10
[opt-env-conf-test] @@ -97,9 +97,7 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:100:9-10
[opt-env-conf-test] @@ -97,9 +97,9 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:26-49
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:26-49
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:62-85
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:62-85
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:107:9-10
[opt-env-conf-test] @@ -104,7 +104,7 @@
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--baz"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:109:9-10
[opt-env-conf-test] @@ -106,9 +106,7 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--baz"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:109:9-10
[opt-env-conf-test] @@ -106,9 +106,9 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--baz"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--bar",
[opt-env-conf-test] +          "--baz"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:18-41
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:18-41
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:54-77
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:54-77
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:116:9-10
[opt-env-conf-test] @@ -113,7 +113,7 @@
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:118:9-10
[opt-env-conf-test] @@ -115,9 +115,7 @@
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:118:9-10
[opt-env-conf-test] @@ -115,9 +115,9 @@
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:28-51
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting []) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:28-51
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:75-98
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting []))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:75-98
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:125:9-10
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:127:9-10
[opt-env-conf-test] @@ -124,9 +124,7 @@
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:127:9-10
[opt-env-conf-test] @@ -124,9 +124,9 @@
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,7 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,10 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,10 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:142:11-12
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:152:11-12
[opt-env-conf-test] @@ -149,7 +149,7 @@
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["b"]
[opt-env-conf-test]            [ Completion "bar" (Just "2"),
[opt-env-conf-test]              Completion "baz" (Just "3")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:154:11-12
[opt-env-conf-test] @@ -151,9 +151,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:154:11-12
[opt-env-conf-test] @@ -151,9 +151,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,8 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e'
[opt-env-conf-test] +]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:162:11-12
[opt-env-conf-test] @@ -159,7 +159,7 @@
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:162:11-12
[opt-env-conf-test] @@ -159,7 +159,7 @@
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:167:50-72
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:167:50-72
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:168:11-12
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:168:11-12
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:169:11-23
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:169:11-23
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:174:50-77
[opt-env-conf-test] @@ -171,7 +171,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:174:50-77
[opt-env-conf-test] @@ -171,7 +171,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:175:11-12
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:175:11-12
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:176:11-23
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:176:11-23
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:181:50-77
[opt-env-conf-test] @@ -178,7 +178,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:181:50-77
[opt-env-conf-test] @@ -178,7 +178,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:182:11-12
[opt-env-conf-test] @@ -179,7 +179,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:182:11-12
[opt-env-conf-test] @@ -179,7 +179,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:183:11-24
[opt-env-conf-test] @@ -180,7 +180,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "--"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:183:11-24
[opt-env-conf-test] @@ -180,7 +180,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "--"]
[opt-env-conf-test] +          ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:190:11-24
[opt-env-conf-test] @@ -187,7 +187,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "-e"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:190:11-24
[opt-env-conf-test] @@ -187,7 +187,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "-e"]
[opt-env-conf-test] +          ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:197:11-31
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "--example"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:197:11-31
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "--example"]
[opt-env-conf-test] +          ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:202:26-53
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", argument])
[opt-env-conf-test] +        (filePathSetting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:202:26-53
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", argument])
[opt-env-conf-test] +        (filePathSetting [help "file arg", argument])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:203:9-10
[opt-env-conf-test] @@ -200,7 +200,7 @@
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", argument])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [help "file arg", option
[opt-env-conf-test] +])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:210:9-10
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:210:9-10
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:216:31-57
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] +        (directoryPathSetting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:216:31-57
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:217:9-10
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", option
[opt-env-conf-test] +])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:224:9-10
[opt-env-conf-test] @@ -221,7 +221,7 @@
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:224:9-10
[opt-env-conf-test] @@ -221,7 +221,7 @@
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:26-49
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:26-49
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:62-85
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:62-85
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:231:9-10
[opt-env-conf-test] @@ -228,7 +228,7 @@
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:231:9-10
[opt-env-conf-test] @@ -228,7 +228,7 @@
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting []
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,8 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,7 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,7 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,8 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:240:25-49
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] -            <*> setting [switch (), long "quux"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:240:25-49
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] -            <*> setting [switch (), long "quux"]
[opt-env-conf-test] +            <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        -2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:243:9-25
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] -        ["--foo", "foo"]
[opt-env-conf-test] +        []
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:243:9-25
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] -        ["--foo", "foo"]
[opt-env-conf-test] +        ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:244:9-10
[opt-env-conf-test] @@ -241,9 +241,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--quux"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:244:9-10
[opt-env-conf-test] @@ -241,9 +241,9 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--quux"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--bar",
[opt-env-conf-test] +          "--quux"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting []
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,8 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting [switch (), long "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:255:9-10
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test]          [ "ho",
[opt-env-conf-test]            "hu"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:255:9-10
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test]          [ "ho",
[opt-env-conf-test]            "hu"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:257:9-10
[opt-env-conf-test] @@ -254,9 +254,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] -        [ "ho",
[opt-env-conf-test] -          "hu"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:257:9-10
[opt-env-conf-test] @@ -254,9 +254,9 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] -        [ "ho",
[opt-env-conf-test] -          "hu"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "ho",
[opt-env-conf-test] +          "hu"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,7 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,11 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure (),
[opt-env-conf-test] +                defaultCommand "bar"
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,10 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:273:11-12
[opt-env-conf-test] @@ -270,7 +270,7 @@
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:283:11-12
[opt-env-conf-test] @@ -280,7 +280,7 @@
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["b"]
[opt-env-conf-test]            [ Completion "bar" (Just "2"),
[opt-env-conf-test]              Completion "baz" (Just "3")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:285:11-12
[opt-env-conf-test] @@ -282,9 +282,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:285:11-12
[opt-env-conf-test] @@ -282,9 +282,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:45-72
[opt-env-conf-test] @@ -289,7 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:45-72
[opt-env-conf-test] @@ -289,7 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,10 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,9 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:297:11-12
[opt-env-conf-test] @@ -294,7 +294,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:45-72
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:45-72
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,10 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,9 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:309:11-12
[opt-env-conf-test] @@ -306,7 +306,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            "--example"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,10 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,9 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:324:11-12
[opt-env-conf-test] @@ -321,7 +321,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,10 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar",
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,9 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:336:11-12
[opt-env-conf-test] @@ -333,7 +333,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:336:11-12
[opt-env-conf-test] @@ -333,7 +333,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,10 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar",
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,9 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:348:11-12
[opt-env-conf-test] @@ -345,7 +345,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test]            [ "1",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,7 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,10 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "1",
[opt-env-conf-test] +            "2",
[opt-env-conf-test] +            "arg help"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,9 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "1",
[opt-env-conf-test] +            "2"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:361:33-58
[opt-env-conf-test] @@ -358,7 +358,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <$> setting []
[opt-env-conf-test]                      <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:361:33-58
[opt-env-conf-test] @@ -358,7 +358,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test]                      <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:362:33-59
[opt-env-conf-test] @@ -359,7 +359,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                    <*> setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:362:33-59
[opt-env-conf-test] @@ -359,7 +359,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,7 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,13 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,12 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                command "bar" "2" $ pure ((), ())
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:367:11-12
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test]            ["--second"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:367:11-12
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test]            ["--second"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,8 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:377:33-60
[opt-env-conf-test] @@ -374,7 +374,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                    <*> setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:377:33-60
[opt-env-conf-test] @@ -374,7 +374,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,7 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,13 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,12 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                command "bar" "2" $ pure ("bar", ())
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:383:11-30
[opt-env-conf-test] @@ -380,7 +380,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--name", "hello"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "global options with commands and a default" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:383:11-30
[opt-env-conf-test] @@ -380,7 +380,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--name", "hello"]
[opt-env-conf-test] +          ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "global options with commands and a default" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:390:27-54
[opt-env-conf-test] @@ -387,7 +387,7 @@
[opt-env-conf-test]        it "completes global options and commands together" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:390:27-54
[opt-env-conf-test] @@ -387,7 +387,7 @@
[opt-env-conf-test]        it "completes global options and commands together" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:397:11-12
[opt-env-conf-test] @@ -394,7 +394,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "foo" (Just "1"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:407:27-54
[opt-env-conf-test] @@ -404,7 +404,7 @@
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:407:27-54
[opt-env-conf-test] @@ -404,7 +404,7 @@
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:414:11-12
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:414:11-12
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:416:11-12
[opt-env-conf-test] @@ -413,9 +413,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:416:11-12
[opt-env-conf-test] @@ -413,9 +413,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:423:27-54
[opt-env-conf-test] @@ -420,7 +420,7 @@
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:423:27-54
[opt-env-conf-test] @@ -420,7 +420,7 @@
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:47-74
[opt-env-conf-test] @@ -422,7 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                [ command "foo" "1" $ setting [],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:47-74
[opt-env-conf-test] @@ -422,7 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:430:11-12
[opt-env-conf-test] @@ -427,7 +427,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:430:11-12
[opt-env-conf-test] @@ -427,7 +427,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            "--example"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,7 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,7 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,8 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:441:11-12
[opt-env-conf-test] @@ -438,7 +438,7 @@
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:448:11-12
[opt-env-conf-test] @@ -445,7 +445,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:448:11-12
[opt-env-conf-test] @@ -445,7 +445,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:456:11-23
[opt-env-conf-test] @@ -453,7 +453,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:456:11-23
[opt-env-conf-test] @@ -453,7 +453,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:466:47-61
[opt-env-conf-test] @@ -463,7 +463,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:466:47-61
[opt-env-conf-test] @@ -463,7 +463,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:470:11-12
[opt-env-conf-test] @@ -467,7 +467,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:470:11-12
[opt-env-conf-test] @@ -467,7 +467,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:472:11-12
[opt-env-conf-test] @@ -469,9 +469,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options after one has already been parsed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:472:11-12
[opt-env-conf-test] @@ -469,9 +469,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "foo",
[opt-env-conf-test] +            "bar"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options after one has already been parsed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:483:47-61
[opt-env-conf-test] @@ -480,7 +480,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:483:47-61
[opt-env-conf-test] @@ -480,7 +480,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,10 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "foo",
[opt-env-conf-test] +            "--include"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,9 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:492:11-12
[opt-env-conf-test] @@ -489,9 +489,7 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:492:11-12
[opt-env-conf-test] @@ -489,9 +489,9 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "foo",
[opt-env-conf-test] +            "bar"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,7 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting []))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,7 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,8 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:500:11-12
[opt-env-conf-test] @@ -497,7 +497,7 @@
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting []))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:507:11-12
[opt-env-conf-test] @@ -504,7 +504,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:507:11-12
[opt-env-conf-test] @@ -504,7 +504,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting []
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,8 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:519:11-12
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--host",
[opt-env-conf-test]              "--port"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:521:11-12
[opt-env-conf-test] @@ -518,9 +518,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--host",
[opt-env-conf-test] -            "--port"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the remaining option after one is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:521:11-12
[opt-env-conf-test] @@ -518,9 +518,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--host",
[opt-env-conf-test] -            "--port"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--host",
[opt-env-conf-test] +            "--port"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the remaining option after one is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting []
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,8 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:533:11-34
[opt-env-conf-test] @@ -530,7 +530,7 @@
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--host", "localhost"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "check" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:533:11-34
[opt-env-conf-test] @@ -530,7 +530,7 @@
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--host", "localhost"]
[opt-env-conf-test] +          ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "check" $ do
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if True then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if False then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if not (null s) then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation CondFlip at test/OptEnvConf/CompletionSpec.hs:540:22-62
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:543:11-12
[opt-env-conf-test] @@ -540,7 +540,7 @@
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["hello"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:550:23-50
[opt-env-conf-test] @@ -547,7 +547,7 @@
[opt-env-conf-test]        it "completes through a mapIO" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:550:23-50
[opt-env-conf-test] @@ -547,7 +547,7 @@
[opt-env-conf-test]        it "completes through a mapIO" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:552:11-12
[opt-env-conf-test] @@ -549,7 +549,7 @@
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test]                setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:560:27-54
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]        it "does not suggest hidden switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "visible"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:560:27-54
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]        it "does not suggest hidden switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "visible"]
[opt-env-conf-test] +              <$> setting [switch (), long "visible"]
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [switch (), long "secret"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:563:11-12
[opt-env-conf-test] @@ -560,7 +560,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--visible"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,7 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,7 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,8 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "secret"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:573:11-12
[opt-env-conf-test] @@ -570,7 +570,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--visible"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:581:27-54
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]        it "does not error on env-only settings combined with arg settings" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:581:27-54
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]        it "does not error on env-only settings combined with arg settings" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:582:27-72
[opt-env-conf-test] @@ -579,7 +579,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:582:27-72
[opt-env-conf-test] @@ -579,7 +579,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test] +              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:584:11-12
[opt-env-conf-test] @@ -581,7 +581,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CompletionSpec.hs:597:23-28
[opt-env-conf-test] @@ -594,7 +594,7 @@
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test]                [ help "enable feature",
[opt-env-conf-test]                  name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,7 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,10 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,9 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:600:11-12
[opt-env-conf-test] @@ -597,7 +597,7 @@
[opt-env-conf-test]                  value False
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [Completion "--(enable|disable)-feature" (Just "enable feature")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CompletionSpec.hs:609:23-28
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test]                [ help "enable feature",
[opt-env-conf-test]                  name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,7 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,10 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,9 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:612:11-12
[opt-env-conf-test] @@ -609,7 +609,7 @@
[opt-env-conf-test]                  value False
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test]            [Completion "--(enable|disable)-feature" (Just "enable feature")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:25-50
[opt-env-conf-test] @@ -617,7 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ setting [],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:25-50
[opt-env-conf-test] @@ -617,7 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:621:25-49
[opt-env-conf-test] @@ -618,7 +618,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:621:25-49
[opt-env-conf-test] @@ -618,7 +618,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:622:25-50
[opt-env-conf-test] @@ -619,7 +619,7 @@
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] +                setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:622:25-50
[opt-env-conf-test] @@ -619,7 +619,7 @@
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] +                setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,10 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch (), long "gamma"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,10 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:625:11-12
[opt-env-conf-test] @@ -622,7 +622,7 @@
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--alpha",
[opt-env-conf-test]              "--beta",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--alpha",
[opt-env-conf-test] +            "--beta",
[opt-env-conf-test] +            "--gamma"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--alpha",
[opt-env-conf-test] +            "--beta"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:123-139
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:123-139
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,8 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"
[opt-env-conf-test] +])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:636:11-12
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:636:11-12
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:638:11-12
[opt-env-conf-test] @@ -635,9 +635,7 @@
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:638:11-12
[opt-env-conf-test] @@ -635,9 +635,9 @@
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "alice",
[opt-env-conf-test] +            "bob"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:645:11-12
[opt-env-conf-test] @@ -642,7 +642,7 @@
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:654:21-22
[opt-env-conf-test] @@ -651,9 +651,7 @@
[opt-env-conf-test]              commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:654:21-22
[opt-env-conf-test] @@ -651,9 +651,9 @@
[opt-env-conf-test]              commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +                    ],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:652:15-16
[opt-env-conf-test] @@ -649,13 +649,7 @@
[opt-env-conf-test]      describe "nested commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:652:15-16
[opt-env-conf-test] @@ -649,13 +649,13 @@
[opt-env-conf-test]      describe "nested commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "top" "top-level" $
[opt-env-conf-test] +                  commands
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +                    ],
[opt-env-conf-test] +                command "other" "other" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:663:11-12
[opt-env-conf-test] @@ -660,7 +660,7 @@
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "top" (Just "top-level"),
[opt-env-conf-test]              Completion "other" (Just "other")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:665:11-12
[opt-env-conf-test] @@ -662,9 +662,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] -            Completion "other" (Just "other")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:665:11-12
[opt-env-conf-test] @@ -662,9 +662,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] -            Completion "other" (Just "other")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] +            Completion "other" (Just "other")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:672:11-12
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b")
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:672:11-12
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:674:11-12
[opt-env-conf-test] @@ -671,9 +671,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:674:11-12
[opt-env-conf-test] @@ -671,9 +671,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:681:11-12
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:681:11-12
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:682:11-27
[opt-env-conf-test] @@ -679,7 +679,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["top", "sub-a"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:682:11-27
[opt-env-conf-test] @@ -679,7 +679,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["top", "sub-a"]
[opt-env-conf-test] +          ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:57-81
[opt-env-conf-test] @@ -687,7 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [],
[opt-env-conf-test]                        command "sub-b" "sub b" $ pure (),
[opt-env-conf-test]                        defaultCommand "sub-a"
[opt-env-conf-test]                      ],
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:57-81
[opt-env-conf-test] @@ -687,7 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test]                        command "sub-b" "sub b" $ pure (),
[opt-env-conf-test]                        defaultCommand "sub-a"
[opt-env-conf-test]                      ],
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,10 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] +                      defaultCommand "sub-a"
[opt-env-conf-test] +                    ],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,9 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:688:15-16
[opt-env-conf-test] @@ -685,14 +685,7 @@
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:688:15-16
[opt-env-conf-test] @@ -685,14 +685,14 @@
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "top" "top-level" $
[opt-env-conf-test] +                  commands
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] +                      defaultCommand "sub-a"
[opt-env-conf-test] +                    ],
[opt-env-conf-test] +                command "other" "other" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:697:11-12
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:697:11-12
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] +            "--flag"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:710:11-12
[opt-env-conf-test] @@ -707,7 +707,7 @@
[opt-env-conf-test]            ( commands [command "foo" "1" $ pure ()]
[opt-env-conf-test]                <|> commands [command "bar" "2" $ pure ()]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:712:11-12
[opt-env-conf-test] @@ -709,9 +709,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "arguments after double dash" $ do
[opt-env-conf-test]        -- A bare -- is consumed as the argument value "--" when it's
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:712:11-12
[opt-env-conf-test] @@ -709,9 +709,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "arguments after double dash" $ do
[opt-env-conf-test]        -- A bare -- is consumed as the argument value "--" when it's
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:88-106
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:88-106
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,8 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1"
[opt-env-conf-test] +])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:722:11-12
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:722:11-12
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:733:27-54
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]        it "suggests the switch even after -- (known bug)" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:733:27-54
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]        it "suggests the switch even after -- (known bug)" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:95-113
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter []]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:95-113
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:737:11-23
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--", "fi"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "mixed arguments and options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:737:11-23
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--", "fi"]
[opt-env-conf-test] +          ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "mixed arguments and options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:745:27-54
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:745:27-54
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:747:11-12
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["input"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:747:11-12
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:754:27-54
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]        it "can complete a positional after an option" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:754:27-54
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]        it "can complete a positional after an option" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:757:11-12
[opt-env-conf-test] @@ -754,7 +754,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:757:11-12
[opt-env-conf-test] @@ -754,7 +754,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:771:11-12
[opt-env-conf-test] @@ -768,7 +768,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "src",
[opt-env-conf-test]              "dst"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:773:11-12
[opt-env-conf-test] @@ -770,9 +770,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "src",
[opt-env-conf-test] -            "dst"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:773:11-12
[opt-env-conf-test] @@ -770,9 +770,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "src",
[opt-env-conf-test] -            "dst"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "src",
[opt-env-conf-test] +            "dst"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:783:11-12
[opt-env-conf-test] @@ -780,7 +780,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["something"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:783:11-12
[opt-env-conf-test] @@ -780,7 +780,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:791:11-12
[opt-env-conf-test] @@ -788,7 +788,7 @@
[opt-env-conf-test]        it "produces no completions for empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (empty :: Parser ())
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:799:11-12
[opt-env-conf-test] @@ -796,7 +796,7 @@
[opt-env-conf-test]        it "produces no completions for pure" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (pure () :: Parser ())
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:813:11-12
[opt-env-conf-test] @@ -810,7 +810,7 @@
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "hello",
[opt-env-conf-test]              "world"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:815:11-12
[opt-env-conf-test] @@ -812,9 +812,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "hello",
[opt-env-conf-test] -            "world"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withConfig" $ do
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:815:11-12
[opt-env-conf-test] @@ -812,9 +812,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "hello",
[opt-env-conf-test] -            "world"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "hello",
[opt-env-conf-test] +            "world"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withConfig" $ do
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:823:23-50
[opt-env-conf-test] @@ -820,7 +820,7 @@
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:823:23-50
[opt-env-conf-test] @@ -820,7 +820,7 @@
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:825:11-12
[opt-env-conf-test] @@ -822,7 +822,7 @@
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test]                setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:833:24-51
[opt-env-conf-test] @@ -830,7 +830,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:833:24-51
[opt-env-conf-test] @@ -830,7 +830,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:835:11-12
[opt-env-conf-test] @@ -832,7 +832,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:838:11-12
[opt-env-conf-test] @@ -835,9 +835,7 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--config-file"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:838:11-12
[opt-env-conf-test] @@ -835,9 +835,9 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--config-file"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "--config-file"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:846:24-51
[opt-env-conf-test] @@ -843,7 +843,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:846:24-51
[opt-env-conf-test] @@ -843,7 +843,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:848:11-12
[opt-env-conf-test] @@ -845,7 +845,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:848:11-12
[opt-env-conf-test] @@ -845,7 +845,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:852:11-12
[opt-env-conf-test] @@ -849,9 +849,7 @@
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "config.yaml"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:852:11-12
[opt-env-conf-test] @@ -849,9 +849,9 @@
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "config.yaml"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "config.yaml"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:860:24-51
[opt-env-conf-test] @@ -857,7 +857,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:860:24-51
[opt-env-conf-test] @@ -857,7 +857,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:863:11-43
[opt-env-conf-test] @@ -860,7 +860,7 @@
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--config-file", "config.yaml"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:863:11-43
[opt-env-conf-test] @@ -860,7 +860,7 @@
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--config-file", "config.yaml"]
[opt-env-conf-test] +          ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:869:31-58
[opt-env-conf-test] @@ -866,7 +866,7 @@
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] +          (optional $ setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:869:31-58
[opt-env-conf-test] @@ -866,7 +866,7 @@
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] +          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:870:11-12
[opt-env-conf-test] @@ -867,7 +867,7 @@
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:878:27-54
[opt-env-conf-test] @@ -875,7 +875,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:878:27-54
[opt-env-conf-test] @@ -875,7 +875,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:880:11-12
[opt-env-conf-test] @@ -877,7 +877,7 @@
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:882:11-12
[opt-env-conf-test] @@ -879,9 +879,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:882:11-12
[opt-env-conf-test] @@ -879,9 +879,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,7 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,7 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,8 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:890:27-54
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:890:27-54
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:892:11-12
[opt-env-conf-test] @@ -889,7 +889,7 @@
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:894:11-12
[opt-env-conf-test] @@ -891,9 +891,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with other parsers" $ do
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:894:11-12
[opt-env-conf-test] @@ -891,9 +891,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with other parsers" $ do
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:903:27-54
[opt-env-conf-test] @@ -900,7 +900,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:903:27-54
[opt-env-conf-test] @@ -900,7 +900,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:905:11-12
[opt-env-conf-test] @@ -902,7 +902,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:907:11-12
[opt-env-conf-test] @@ -904,9 +904,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:907:11-12
[opt-env-conf-test] @@ -904,9 +904,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:915:27-54
[opt-env-conf-test] @@ -912,7 +912,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:915:27-54
[opt-env-conf-test] @@ -912,7 +912,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:918:11-31
[opt-env-conf-test] @@ -915,7 +915,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--include", "foo"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:918:11-31
[opt-env-conf-test] @@ -915,7 +915,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--include", "foo"]
[opt-env-conf-test] +          ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:919:11-12
[opt-env-conf-test] @@ -916,9 +916,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:919:11-12
[opt-env-conf-test] @@ -916,9 +916,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,7 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,7 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,8 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:928:17-18
[opt-env-conf-test] @@ -925,9 +925,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:928:17-18
[opt-env-conf-test] @@ -925,9 +925,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "run" "run it" $ pure (),
[opt-env-conf-test] +                  command "build" "build it" $ pure ()
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:932:11-12
[opt-env-conf-test] @@ -929,7 +929,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,7 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,7 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,8 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:944:17-18
[opt-env-conf-test] @@ -941,9 +941,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:944:17-18
[opt-env-conf-test] @@ -941,9 +941,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "run" "run it" $ pure (),
[opt-env-conf-test] +                  command "build" "build it" $ pure ()
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:949:11-23
[opt-env-conf-test] @@ -946,7 +946,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test]              Completion "build" (Just "build it")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:949:11-23
[opt-env-conf-test] @@ -946,7 +946,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test]              Completion "build" (Just "build it")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:959:27-49
[opt-env-conf-test] @@ -956,7 +956,7 @@
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:959:27-49
[opt-env-conf-test] @@ -956,7 +956,7 @@
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:960:27-49
[opt-env-conf-test] @@ -957,7 +957,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:960:27-49
[opt-env-conf-test] @@ -957,7 +957,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:962:11-12
[opt-env-conf-test] @@ -959,7 +959,7 @@
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test]            ["-n"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:962:11-12
[opt-env-conf-test] @@ -959,7 +959,7 @@
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test]            ["-n"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:969:27-49
[opt-env-conf-test] @@ -966,7 +966,7 @@
[opt-env-conf-test]        it "no longer suggests a switch consumed via folding" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:969:27-49
[opt-env-conf-test] @@ -966,7 +966,7 @@
[opt-env-conf-test]        it "no longer suggests a switch consumed via folding" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:970:27-49
[opt-env-conf-test] @@ -967,7 +967,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:970:27-49
[opt-env-conf-test] @@ -967,7 +967,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:971:27-49
[opt-env-conf-test] @@ -968,7 +968,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test] -              <*> setting [switch (), short 'x']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:971:27-49
[opt-env-conf-test] @@ -968,7 +968,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test] -              <*> setting [switch (), short 'x']
[opt-env-conf-test] +              <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:973:11-12
[opt-env-conf-test] @@ -970,7 +970,7 @@
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test]            ["-x"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:973:11-12
[opt-env-conf-test] @@ -970,7 +970,7 @@
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test]            ["-x"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,7 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,7 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,8 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:982:27-54
[opt-env-conf-test] @@ -979,7 +979,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:982:27-54
[opt-env-conf-test] @@ -979,7 +979,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:984:11-12
[opt-env-conf-test] @@ -981,7 +981,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:984:11-12
[opt-env-conf-test] @@ -981,7 +981,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,7 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,7 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,8 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:996:11-12
[opt-env-conf-test] @@ -993,7 +993,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "--verbose",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "--verbose",
[opt-env-conf-test] +            "file.txt"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,7 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,7 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,8 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,10 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "foo",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,9 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1015:11-12
[opt-env-conf-test] @@ -1012,9 +1012,7 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with options inside" $ do
[opt-env-conf-test]        it "completes a command's many options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1015:11-12
[opt-env-conf-test] @@ -1012,9 +1012,9 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "file.txt"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with options inside" $ do
[opt-env-conf-test]        it "completes a command's many options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1028:11-27
[opt-env-conf-test] @@ -1025,7 +1025,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--arg"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes a command's many options after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1028:11-27
[opt-env-conf-test] @@ -1025,7 +1025,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--arg"]
[opt-env-conf-test] +          ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes a command's many options after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,10 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "run",
[opt-env-conf-test] +            "--arg",
[opt-env-conf-test] +            "val"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,9 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "run",
[opt-env-conf-test] +            "--arg"
[opt-env-conf-test] +]
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:45-70
[opt-env-conf-test] @@ -1046,7 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:45-70
[opt-env-conf-test] @@ -1046,7 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1050:45-69
[opt-env-conf-test] @@ -1047,7 +1047,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1050:45-69
[opt-env-conf-test] @@ -1047,7 +1047,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:15-16
[opt-env-conf-test] @@ -1046,9 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:15-16
[opt-env-conf-test] @@ -1046,9 +1046,9 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1053:11-12
[opt-env-conf-test] @@ -1050,7 +1050,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1053:11-12
[opt-env-conf-test] @@ -1050,7 +1050,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:45-70
[opt-env-conf-test] @@ -1057,7 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:45-70
[opt-env-conf-test] @@ -1057,7 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1061:45-69
[opt-env-conf-test] @@ -1058,7 +1058,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1061:45-69
[opt-env-conf-test] @@ -1058,7 +1058,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:15-16
[opt-env-conf-test] @@ -1057,9 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:15-16
[opt-env-conf-test] @@ -1057,9 +1057,9 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1064:11-12
[opt-env-conf-test] @@ -1061,7 +1061,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]            ["--beta"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1064:11-12
[opt-env-conf-test] @@ -1061,7 +1061,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]            ["--beta"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1075:33-56
[opt-env-conf-test] @@ -1072,7 +1072,7 @@
[opt-env-conf-test]        let failingP = (empty :: Parser ()) *> pure ()
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] +          (failingP <|> setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1075:33-56
[opt-env-conf-test] @@ -1072,7 +1072,7 @@
[opt-env-conf-test]        let failingP = (empty :: Parser ()) *> pure ()
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] +          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1076:11-12
[opt-env-conf-test] @@ -1073,7 +1073,7 @@
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1082:20-43
[opt-env-conf-test] @@ -1079,7 +1079,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] +          (setting [] <|> failingP)
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1082:20-43
[opt-env-conf-test] @@ -1079,7 +1079,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] +          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1083:11-12
[opt-env-conf-test] @@ -1080,7 +1080,7 @@
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1090:11-12
[opt-env-conf-test] @@ -1087,7 +1087,7 @@
[opt-env-conf-test]        it "returns no completions when both alternatives fail" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (failingP <|> failingP)
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1097:66-89
[opt-env-conf-test] @@ -1094,7 +1094,7 @@
[opt-env-conf-test]      describe "applicative branch failures" $ do
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] +          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1097:66-89
[opt-env-conf-test] @@ -1094,7 +1094,7 @@
[opt-env-conf-test]      describe "applicative branch failures" $ do
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] +          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1098:11-12
[opt-env-conf-test] @@ -1095,7 +1095,7 @@
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1104:28-51
[opt-env-conf-test] @@ -1101,7 +1101,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] +          ((,) <$> setting [] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1104:28-51
[opt-env-conf-test] @@ -1101,7 +1101,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] +          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1105:11-12
[opt-env-conf-test] @@ -1102,7 +1102,7 @@
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1113:11-12
[opt-env-conf-test] @@ -1110,7 +1110,7 @@
[opt-env-conf-test]        it "handles many where the inner parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many ((empty :: Parser ()) *> pure ()))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1120:11-12
[opt-env-conf-test] @@ -1117,7 +1117,7 @@
[opt-env-conf-test]        it "returns first iteration completions when recursive call fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many (commands [command "foo" "1" $ pure ()]))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "foo" (Just "1")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1120:11-12
[opt-env-conf-test] @@ -1117,7 +1117,7 @@
[opt-env-conf-test]        it "returns first iteration completions when recursive call fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many (commands [command "foo" "1" $ pure ()]))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "foo" (Just "1")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1127:21-79
[opt-env-conf-test] @@ -1124,7 +1124,7 @@
[opt-env-conf-test]      describe "command not found" $ do
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] +          (commands [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1127:21-79
[opt-env-conf-test] @@ -1124,7 +1124,7 @@
[opt-env-conf-test]      describe "command not found" $ do
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] +          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1128:11-12
[opt-env-conf-test] @@ -1125,7 +1125,7 @@
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1128:11-12
[opt-env-conf-test] @@ -1125,7 +1125,7 @@
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1136:27-54
[opt-env-conf-test] @@ -1133,7 +1133,7 @@
[opt-env-conf-test]        it "offers the argument completer at the end after a switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1136:27-54
[opt-env-conf-test] @@ -1133,7 +1133,7 @@
[opt-env-conf-test]        it "offers the argument completer at the end after a switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1139:11-12
[opt-env-conf-test] @@ -1136,7 +1136,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1139:11-12
[opt-env-conf-test] @@ -1136,7 +1136,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1146:27-52
[opt-env-conf-test] @@ -1143,7 +1143,7 @@
[opt-env-conf-test]        it "does not offer option completer when not at end of args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), long "other"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1146:27-52
[opt-env-conf-test] @@ -1143,7 +1143,7 @@
[opt-env-conf-test]        it "does not offer option completer when not at end of args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), long "other"]
[opt-env-conf-test] +              <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1148:27-52
[opt-env-conf-test] @@ -1145,7 +1145,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] -              <*> setting [switch (), long "extra"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1148:27-52
[opt-env-conf-test] @@ -1145,7 +1145,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] -              <*> setting [switch (), long "extra"]
[opt-env-conf-test] +              <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,10 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--other",
[opt-env-conf-test] +            "--extra"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,9 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--other"
[opt-env-conf-test] +]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1164:11-12
[opt-env-conf-test] @@ -1161,7 +1161,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test]            ["data.csv"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1164:11-12
[opt-env-conf-test] @@ -1161,7 +1161,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test]            ["data.csv"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:53-94
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [] <*> emptyS,
[opt-env-conf-test]                  command "bar" "2" $ pure ("", ""),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:53-94
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test]                  command "bar" "2" $ pure ("", ""),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,10 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,9 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +                command "bar" "2" $ pure ("", "")
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1178:11-12
[opt-env-conf-test] @@ -1175,7 +1175,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1180:11-12
[opt-env-conf-test] @@ -1177,9 +1177,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "prefix filtering" $ do
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1180:11-12
[opt-env-conf-test] @@ -1177,9 +1177,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "prefix filtering" $ do
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1188:27-54
[opt-env-conf-test] @@ -1185,7 +1185,7 @@
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1188:27-54
[opt-env-conf-test] @@ -1185,7 +1185,7 @@
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1189:27-54
[opt-env-conf-test] @@ -1186,7 +1186,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1189:27-54
[opt-env-conf-test] @@ -1186,7 +1186,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1191:11-12
[opt-env-conf-test] @@ -1188,7 +1188,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1197:20-47
[opt-env-conf-test] @@ -1194,7 +1194,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "verbose"])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1197:20-47
[opt-env-conf-test] @@ -1194,7 +1194,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "verbose"])
[opt-env-conf-test] +          (setting [switch (), long "verbose"])
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1198:11-12
[opt-env-conf-test] @@ -1195,7 +1195,7 @@
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [switch (), long "verbose"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,7 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,10 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] +                command "get" "getter" $ pure (),
[opt-env-conf-test] +                command "build" "builder" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,10 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] +                command "get" "getter" $ pure (),
[opt-env-conf-test] +                command "build" "builder" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1210:11-12
[opt-env-conf-test] @@ -1207,7 +1207,7 @@
[opt-env-conf-test]                  command "build" "builder" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test]            [ "gen",
[opt-env-conf-test]              "getter"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1212:11-12
[opt-env-conf-test] @@ -1209,9 +1209,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] -          [ "gen",
[opt-env-conf-test] -            "getter"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "argument completion with dashed values" $ do
[opt-env-conf-test]        -- When a dashed-looking value is provided as a positional argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1212:11-12
[opt-env-conf-test] @@ -1209,9 +1209,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] -          [ "gen",
[opt-env-conf-test] -            "getter"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "gen",
[opt-env-conf-test] +            "getter"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "argument completion with dashed values" $ do
[opt-env-conf-test]        -- When a dashed-looking value is provided as a positional argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1225:11-12
[opt-env-conf-test] @@ -1222,7 +1222,7 @@
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1225:11-12
[opt-env-conf-test] @@ -1222,7 +1222,7 @@
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1238:11-12
[opt-env-conf-test] @@ -1235,7 +1235,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            ["dest"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1238:11-12
[opt-env-conf-test] @@ -1235,7 +1235,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            ["dest"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1249:43-59
[opt-env-conf-test] @@ -1246,7 +1246,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1249:43-59
[opt-env-conf-test] @@ -1246,7 +1246,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,7 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,11 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,11 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1252:11-12
[opt-env-conf-test] @@ -1249,7 +1249,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1252:11-12
[opt-env-conf-test] @@ -1249,7 +1249,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1253:11-27
[opt-env-conf-test] @@ -1250,7 +1250,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", "al"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1253:11-27
[opt-env-conf-test] @@ -1250,7 +1250,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", "al"]
[opt-env-conf-test] +          ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1262:43-59
[opt-env-conf-test] @@ -1259,7 +1259,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1262:43-59
[opt-env-conf-test] @@ -1259,7 +1259,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,7 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,11 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,11 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1265:11-12
[opt-env-conf-test] @@ -1262,7 +1262,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1265:11-12
[opt-env-conf-test] @@ -1262,7 +1262,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1266:11-25
[opt-env-conf-test] @@ -1263,7 +1263,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", ""]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1266:11-25
[opt-env-conf-test] @@ -1263,7 +1263,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", ""]
[opt-env-conf-test] +          ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1267:11-12
[opt-env-conf-test] @@ -1264,9 +1264,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial argument completion" $ do
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1267:11-12
[opt-env-conf-test] @@ -1264,9 +1264,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "alice",
[opt-env-conf-test] +            "bob"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial argument completion" $ do
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,8 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,7 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,10 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,10 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1280:11-12
[opt-env-conf-test] @@ -1277,7 +1277,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test]            [ "file1",
[opt-env-conf-test]              "file2"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1282:11-12
[opt-env-conf-test] @@ -1279,9 +1279,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] -          [ "file1",
[opt-env-conf-test] -            "file2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1282:11-12
[opt-env-conf-test] @@ -1279,9 +1279,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] -          [ "file1",
[opt-env-conf-test] -            "file2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "file1",
[opt-env-conf-test] +            "file2"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,8 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,7 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,10 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,10 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1294:11-12
[opt-env-conf-test] @@ -1291,7 +1291,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["da"]
[opt-env-conf-test]            ["data"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:56-81
[opt-env-conf-test] @@ -1299,7 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [],
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:56-81
[opt-env-conf-test] @@ -1299,7 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:15-16
[opt-env-conf-test] @@ -1299,9 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] -                command "debug" "debug it" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:15-16
[opt-env-conf-test] @@ -1299,9 +1299,9 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] -                command "debug" "debug it" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +                command "debug" "debug it" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1306:11-12
[opt-env-conf-test] @@ -1303,7 +1303,7 @@
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test]            ["--force"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1306:11-12
[opt-env-conf-test] @@ -1303,7 +1303,7 @@
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test]            ["--force"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1318:45-61
[opt-env-conf-test] @@ -1315,7 +1315,7 @@
[opt-env-conf-test]                  [ option,
[opt-env-conf-test]                    reader (str :: Reader String),
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                  completer $ listCompleter []
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1318:45-61
[opt-env-conf-test] @@ -1315,7 +1315,7 @@
[opt-env-conf-test]                  [ option,
[opt-env-conf-test]                    reader (str :: Reader String),
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ option,
[opt-env-conf-test] +                  reader (str :: Reader String),
[opt-env-conf-test] +                  long "foo",
[opt-env-conf-test] +                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ option,
[opt-env-conf-test] +                  reader (str :: Reader String),
[opt-env-conf-test] +                  long "foo",
[opt-env-conf-test] +                  completer $ listCompleter ["val1"
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1320:27-50
[opt-env-conf-test] @@ -1317,7 +1317,7 @@
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test]                    completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              <*> setting [switch (), long "bar"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1320:27-50
[opt-env-conf-test] @@ -1317,7 +1317,7 @@
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test]                    completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              <*> setting [switch (), long "bar"]
[opt-env-conf-test] +              <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1322:11-12
[opt-env-conf-test] @@ -1319,7 +1319,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1322:11-12
[opt-env-conf-test] @@ -1319,7 +1319,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,8 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          ["--foo", "v"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1324:11-12
[opt-env-conf-test] @@ -1321,9 +1321,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] -          [ "val1",
[opt-env-conf-test] -            "val2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1324:11-12
[opt-env-conf-test] @@ -1321,9 +1321,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] -          [ "val1",
[opt-env-conf-test] -            "val2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "val1",
[opt-env-conf-test] +            "val2"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1331:27-52
[opt-env-conf-test] @@ -1328,7 +1328,7 @@
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "alpha"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1331:27-52
[opt-env-conf-test] @@ -1328,7 +1328,7 @@
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "alpha"]
[opt-env-conf-test] +              <$> setting [switch (), long "alpha"]
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1332:27-51
[opt-env-conf-test] @@ -1329,7 +1329,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test] -              <*> setting [switch (), long "beta"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1332:27-51
[opt-env-conf-test] @@ -1329,7 +1329,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test] -              <*> setting [switch (), long "beta"]
[opt-env-conf-test] +              <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1334:11-12
[opt-env-conf-test] @@ -1331,7 +1331,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1335:11-32
[opt-env-conf-test] @@ -1332,7 +1332,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] -          ["--alpha", "--beta"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial long option prefix with multiple matches" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1335:11-32
[opt-env-conf-test] @@ -1332,7 +1332,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] -          ["--alpha", "--beta"]
[opt-env-conf-test] +          ["--alpha", "--beta"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial long option prefix with multiple matches" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1342:27-54
[opt-env-conf-test] @@ -1339,7 +1339,7 @@
[opt-env-conf-test]        it "filters options by a short prefix matching multiple" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1342:27-54
[opt-env-conf-test] @@ -1339,7 +1339,7 @@
[opt-env-conf-test]        it "filters options by a short prefix matching multiple" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1343:27-54
[opt-env-conf-test] @@ -1340,7 +1340,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1343:27-54
[opt-env-conf-test] @@ -1340,7 +1340,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1345:11-12
[opt-env-conf-test] @@ -1342,7 +1342,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "--version"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1347:11-12
[opt-env-conf-test] @@ -1344,9 +1344,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--version"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1347:11-12
[opt-env-conf-test] @@ -1344,9 +1344,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--version"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "--version"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1354:27-54
[opt-env-conf-test] @@ -1351,7 +1351,7 @@
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1354:27-54
[opt-env-conf-test] @@ -1351,7 +1351,7 @@
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1355:27-54
[opt-env-conf-test] @@ -1352,7 +1352,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1355:27-54
[opt-env-conf-test] @@ -1352,7 +1352,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1357:11-12
[opt-env-conf-test] @@ -1354,7 +1354,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:95-110
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter []]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:95-110
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1368:11-12
[opt-env-conf-test] @@ -1365,7 +1365,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1368:11-12
[opt-env-conf-test] @@ -1365,7 +1365,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1369:11-24
[opt-env-conf-test] @@ -1366,7 +1366,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["src", "ds"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with partial option value inside" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1369:11-24
[opt-env-conf-test] @@ -1366,7 +1366,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["src", "ds"]
[opt-env-conf-test] +          ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with partial option value inside" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,7 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter []
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,7 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,8 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out"
[opt-env-conf-test] +]
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,11 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    [ option,
[opt-env-conf-test] +                      reader (str :: Reader String),
[opt-env-conf-test] +                      long "output",
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                    ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,11 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    [ option,
[opt-env-conf-test] +                      reader (str :: Reader String),
[opt-env-conf-test] +                      long "output",
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,8 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          ["run", "--output"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1387:11-12
[opt-env-conf-test] @@ -1384,9 +1384,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test] -          [ "file.txt",
[opt-env-conf-test] -            "final.out"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with partial values" $ do
[opt-env-conf-test]        it "filters many option values by prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1387:11-12
[opt-env-conf-test] @@ -1384,9 +1384,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test] -          [ "file.txt",
[opt-env-conf-test] -            "final.out"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "file.txt",
[opt-env-conf-test] +            "final.out"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with partial values" $ do
[opt-env-conf-test]        it "filters many option values by prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1399:47-61
[opt-env-conf-test] @@ -1396,7 +1396,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1399:47-61
[opt-env-conf-test] @@ -1396,7 +1396,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1403:11-12
[opt-env-conf-test] @@ -1400,7 +1400,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1403:11-12
[opt-env-conf-test] @@ -1400,7 +1400,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1404:11-30
[opt-env-conf-test] @@ -1401,7 +1401,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--include", "fo"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters many option values by prefix after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1404:11-30
[opt-env-conf-test] @@ -1401,7 +1401,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--include", "fo"]
[opt-env-conf-test] +          ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters many option values by prefix after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1414:47-61
[opt-env-conf-test] @@ -1411,7 +1411,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1414:47-61
[opt-env-conf-test] @@ -1411,7 +1411,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,8 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          ["--include", "foo", "--include"
[opt-env-conf-test] +]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1443:51-71
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1443:51-71
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1443:73-74
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1444:49-79
[opt-env-conf-test] @@ -1441,7 +1441,7 @@
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1444:49-79
[opt-env-conf-test] @@ -1441,7 +1441,7 @@
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,8 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option
[opt-env-conf-test] +]) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1447:84-85
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 0 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1447:84-85
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) -1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1448:49-79
[opt-env-conf-test] @@ -1445,7 +1445,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1448:49-79
[opt-env-conf-test] @@ -1445,7 +1445,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1451:51-71
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1451:51-71
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1451:73-74
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1460:51-71
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1460:51-71
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1460:73-74
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1461:49-79
[opt-env-conf-test] @@ -1458,7 +1458,7 @@
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1461:49-79
[opt-env-conf-test] @@ -1458,7 +1458,7 @@
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1464:51-71
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1464:51-71
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1464:73-74
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1466:26-63
[opt-env-conf-test] @@ -1463,7 +1463,7 @@
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test] -              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1466:26-63
[opt-env-conf-test] @@ -1463,7 +1463,7 @@
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test] -              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test] +              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1469:51-77
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1469:51-77
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1469:79-80
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "my file", argument]) 1 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1470:58-90
[opt-env-conf-test] @@ -1467,7 +1467,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] -            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test] +            map completionDescription results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1470:58-90
[opt-env-conf-test] @@ -1467,7 +1467,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] -            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test] +            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1474:56-76
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1474:56-76
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1474:78-79
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,8 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option
[opt-env-conf-test] +]) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1478:88-89
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 0 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1478:88-89
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) -1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1482:56-76
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1482:56-76
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1482:78-79
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1486:56-76
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1486:56-76
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1486:78-79
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1491:56-81
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1491:56-81
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1491:83-84
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 1 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,7 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,7 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,8 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1499:33-60
[opt-env-conf-test] @@ -1496,7 +1496,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1499:33-60
[opt-env-conf-test] @@ -1496,7 +1496,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1500:41-42
[opt-env-conf-test] @@ -1497,7 +1497,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1500:41-42
[opt-env-conf-test] @@ -1497,7 +1497,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,8 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,7 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,7 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,8 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1507:33-60
[opt-env-conf-test] @@ -1504,7 +1504,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1507:33-60
[opt-env-conf-test] @@ -1504,7 +1504,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1508:41-42
[opt-env-conf-test] @@ -1505,7 +1505,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1508:41-42
[opt-env-conf-test] @@ -1505,7 +1505,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1509:49-77
[opt-env-conf-test] @@ -1506,7 +1506,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test]            -- cursor is in the value position.  The option's completer
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1509:49-77
[opt-env-conf-test] @@ -1506,7 +1506,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test]            -- cursor is in the value position.  The option's completer
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,7 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,7 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,8 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1521:33-60
[opt-env-conf-test] @@ -1518,7 +1518,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1521:33-60
[opt-env-conf-test] @@ -1518,7 +1518,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1522:41-42
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1522:41-42
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1522:43-56
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1522:43-56
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1523:49-77
[opt-env-conf-test] @@ -1520,7 +1520,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1523:49-77
[opt-env-conf-test] @@ -1520,7 +1520,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,7 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,7 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,8 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1529:33-60
[opt-env-conf-test] @@ -1526,7 +1526,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1529:33-60
[opt-env-conf-test] @@ -1526,7 +1526,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1530:41-42
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1530:41-42
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1530:43-57
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1530:43-57
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,8 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1540:23-24
[opt-env-conf-test] @@ -1537,10 +1537,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test] -                      [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] -                        defaultCommand "file"
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      []
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1540:23-24
[opt-env-conf-test] @@ -1537,10 +1537,10 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test] -                      [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] -                        defaultCommand "file"
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      [ command "file" "f" $
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                        defaultCommand "file"
[opt-env-conf-test] +                      ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,6 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,6 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,7 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting [help "a", option
[opt-env-conf-test] +]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1545:41-42
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1545:41-42
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1545:43-64
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1545:43-64
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added 964 mutations
[opt-env-conf-test] [ 5 of 16] Compiling OptEnvConf.EnvMapSpec ( test/OptEnvConf/EnvMapSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/EnvMapSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMapSpec
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [ 6 of 16] Compiling OptEnvConf.ErrorSpec ( test/OptEnvConf/ErrorSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ErrorSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,7 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords []) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,7 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,8 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp
[opt-env-conf-test] +]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:217:55-119
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines []
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  goldenChunksFile :: FilePath -> IO [Chunk] -> GoldenTest Text
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:217:55-119
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  goldenChunksFile :: FilePath -> IO [Chunk] -> GoldenTest Text
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords []) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,8 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp
[opt-env-conf-test] +]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:206:55-119
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines []
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:206:55-119
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:42:5-22
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-option"
[opt-env-conf-test]      (setting [option, reader auto, long "num", help "integer option", metavar "INT"] :: Parser Int)
[opt-env-conf-test] -    ["--num", "five"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-options"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:42:5-22
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-option"
[opt-env-conf-test]      (setting [option, reader auto, long "num", help "integer option", metavar "INT"] :: Parser Int)
[opt-env-conf-test] -    ["--num", "five"]
[opt-env-conf-test] +    ["--num", "five"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-options"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,8 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    ["--foo", "n", "--bar"
[opt-env-conf-test] +]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,9 +56,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "required-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,9 +56,9 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "required-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "one" "first" $ pure '1',
[opt-env-conf-test] +          command "two" "second" $ pure '2'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:68:9-10
[opt-env-conf-test] @@ -65,9 +65,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      ["three"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:68:9-10
[opt-env-conf-test] @@ -65,9 +65,9 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "one" "first" $ pure '1',
[opt-env-conf-test] +          command "two" "second" $ pure '2'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      ["three"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    ["-ba", "foo", "bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,8 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    ["-ba", "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:90:5-19
[opt-env-conf-test] @@ -87,7 +87,7 @@
[opt-env-conf-test]          <*> setting [option, short 'f', reader str] ::
[opt-env-conf-test]          Parser ((), String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-fv", "foo"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseEnvErrorSpec
[opt-env-conf-test]      "missing-var"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:90:5-19
[opt-env-conf-test] @@ -87,7 +87,7 @@
[opt-env-conf-test]          <*> setting [option, short 'f', reader str] ::
[opt-env-conf-test]          Parser ((), String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-fv", "foo"]
[opt-env-conf-test] +    ["-fv", "foo"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseEnvErrorSpec
[opt-env-conf-test]      "missing-var"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:120:5-33
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]          <*> setting [reader auto, env "BAR"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "empty-choice"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:120:5-33
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]          <*> setting [reader auto, env "BAR"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test] +    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "empty-choice"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,8 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist"
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,8 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist"
[opt-env-conf-test] +],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:139:9-10
[opt-env-conf-test] @@ -136,12 +136,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing"
[opt-env-conf-test]      ( choice
[opt-env-conf-test] -        [ allOrNothing $
[opt-env-conf-test] -            (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] -          pure ('a', 'b')
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:139:9-10
[opt-env-conf-test] @@ -136,12 +136,12 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing"
[opt-env-conf-test]      ( choice
[opt-env-conf-test] -        [ allOrNothing $
[opt-env-conf-test] -            (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] -          pure ('a', 'b')
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ allOrNothing $
[opt-env-conf-test] +            (,)
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +          pure ('a', 'b')
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:146:5-21
[opt-env-conf-test] @@ -143,7 +143,7 @@
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing-relevant"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:146:5-21
[opt-env-conf-test] @@ -143,7 +143,7 @@
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing-relevant"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:160:5-21
[opt-env-conf-test] @@ -157,7 +157,7 @@
[opt-env-conf-test]          <*> choice [] ::
[opt-env-conf-test]          Parser ((Char, Char), Char)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-arg"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:160:5-21
[opt-env-conf-test] @@ -157,7 +157,7 @@
[opt-env-conf-test]          <*> choice [] ::
[opt-env-conf-test]          Parser ((Char, Char), Char)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    ["--foo", "'a'"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-arg"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:169:5-21
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-switch"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:169:5-21
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--foo", "bar"]
[opt-env-conf-test] +    ["--foo", "bar"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-switch"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:178:5-21
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-option"
[opt-env-conf-test]      (optional $ setting [help "often misspelt as baz", reader str, option, long "bar"] :: Parser (Maybe String))
[opt-env-conf-test] -    ["--baz", "arg"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:178:5-21
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-option"
[opt-env-conf-test]      (optional $ setting [help "often misspelt as baz", reader str, option, long "bar"] :: Parser (Maybe String))
[opt-env-conf-test] -    ["--baz", "arg"]
[opt-env-conf-test] +    ["--baz", "arg"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:192:5-21
[opt-env-conf-test] @@ -189,7 +189,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--key", "val"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:192:5-21
[opt-env-conf-test] @@ -189,7 +189,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--key", "val"]
[opt-env-conf-test] +    ["--key", "val"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:196:5-19
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] -    ["foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:196:5-19
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] -    ["foo", "bar"]
[opt-env-conf-test] +    ["foo", "bar"]
[opt-env-conf-test]  
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test] added 46 mutations
[opt-env-conf-test] [ 7 of 16] Compiling OptEnvConf.LintSpec ( test/OptEnvConf/LintSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/LintSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.LintSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:27:18-22
[opt-env-conf-test] @@ -24,7 +24,7 @@
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test]          [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] +          switch False,
[opt-env-conf-test]            short '-'
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'short'",
[opt-env-conf-test] +          switch True,
[opt-env-conf-test] +          short '-'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'short'",
[opt-env-conf-test] +          switch True
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:35:18-22
[opt-env-conf-test] @@ -32,7 +32,7 @@
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test]          [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] +          switch False,
[opt-env-conf-test]            long "--switch"
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'long'",
[opt-env-conf-test] +          switch True,
[opt-env-conf-test] +          long "--switch"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'long'",
[opt-env-conf-test] +          switch True
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ argument,
[opt-env-conf-test] +          metavar "STR",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ argument,
[opt-env-conf-test] +          metavar "STR"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,11 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ option,
[opt-env-conf-test] +          long "example",
[opt-env-conf-test] +          metavar "STR",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ option,
[opt-env-conf-test] +          long "example",
[opt-env-conf-test] +          metavar "STR"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:99:18-22
[opt-env-conf-test] @@ -96,7 +96,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] +        [ switch False,
[opt-env-conf-test]            help "Example"
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:99:9-10
[opt-env-conf-test] @@ -96,9 +96,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:99:9-10
[opt-env-conf-test] @@ -96,9 +96,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ switch True,
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:106:9-10
[opt-env-conf-test] @@ -103,9 +103,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ env "EXAMPLE",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:106:9-10
[opt-env-conf-test] @@ -103,9 +103,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ env "EXAMPLE",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ env "EXAMPLE",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:186:9-10
[opt-env-conf-test] @@ -183,9 +183,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "unknown-default-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] -          defaultCommand "b"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  goldenLintTest :: (HasCallStack) => FilePath -> Parser a -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:186:9-10
[opt-env-conf-test] @@ -183,9 +183,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "unknown-default-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] -          defaultCommand "b"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] +          defaultCommand "b"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  goldenLintTest :: (HasCallStack) => FilePath -> Parser a -> Spec
[opt-env-conf-test] added 21 mutations
[opt-env-conf-test] [ 8 of 16] Compiling OptEnvConf.NonDetSpec ( test/OptEnvConf/NonDetSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/NonDetSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.NonDetSpec
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:22-23
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(0, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:22-23
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(-1, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 0), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 1), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, -3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (0, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (1, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (-2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 0)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 1)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, -4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:22:20-36
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` []
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:22:20-36
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:21-22
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [0, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:21-22
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [-1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 1]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, -2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:31:20-26
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:31:20-26
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation RemoveAction at test/OptEnvConf/NonDetSpec.hs:13:26-26
[opt-env-conf-test] @@ -10,25 +10,25 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  describe "runNonDet" $ do
[opt-env-conf-test] -    it "can guard against previous values" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] -            guard $ even $ a + b
[opt-env-conf-test] -            pure (a, b)
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] -    it "can recover from failures with <|>" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] -            guard $ f a
[opt-env-conf-test] -            pure a
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +  describe "runNonDet" $ do
[opt-env-conf-test] +    it "can guard against previous values" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] +            guard $ even $ a + b
[opt-env-conf-test] +            pure (a, b)
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +    it "can recover from failures with <|>" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] +            guard $ f a
[opt-env-conf-test] +            pure a
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:35-36
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [0, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:35-36
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [-1, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 0]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 1]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, -2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:37:34-40
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList []
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:37:34-40
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if True
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if False
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if not (odd i)
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation CondFlip at test/OptEnvConf/NonDetSpec.hs:38:13-26
[opt-env-conf-test] @@ -35,10 +35,10 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] -              then do
[opt-env-conf-test] -                () <- empty
[opt-env-conf-test] -                lift (Left "err")
[opt-env-conf-test] -              else pure i
[opt-env-conf-test] +            if odd i
[opt-env-conf-test] +              then do
[opt-env-conf-test] +                () <- empty
[opt-env-conf-test] +                lift (Left "err")
[opt-env-conf-test] +              else pure i
[opt-env-conf-test]  
[opt-env-conf-test]        runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [0]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [1]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [-2]
[opt-env-conf-test] added mutation RemoveAction at test/OptEnvConf/NonDetSpec.hs:12:8-40
[opt-env-conf-test] @@ -9,36 +9,36 @@
[opt-env-conf-test]  import Test.Syd
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test] -spec = do
[opt-env-conf-test] -  describe "runNonDet" $ do
[opt-env-conf-test] -    it "can guard against previous values" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] -            guard $ even $ a + b
[opt-env-conf-test] -            pure (a, b)
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] -    it "can recover from failures with <|>" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] -            guard $ f a
[opt-env-conf-test] -            pure a
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] -
[opt-env-conf-test] -  describe "runNonDetT" $ do
[opt-env-conf-test] -    it "can recover from underlying errors" $ do
[opt-env-conf-test] -      let f :: NonDetT (Either String) Int
[opt-env-conf-test] -          f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] -              then do
[opt-env-conf-test] -                () <- empty
[opt-env-conf-test] -                lift (Left "err")
[opt-env-conf-test] -              else pure i
[opt-env-conf-test] -
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +spec = do
[opt-env-conf-test] +  describe "runNonDet" $ do
[opt-env-conf-test] +    it "can guard against previous values" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] +            guard $ even $ a + b
[opt-env-conf-test] +            pure (a, b)
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +    it "can recover from failures with <|>" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] +            guard $ f a
[opt-env-conf-test] +            pure a
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test] +
[opt-env-conf-test] +  describe "runNonDetT" $ do
[opt-env-conf-test] +    it "can recover from underlying errors" $ do
[opt-env-conf-test] +      let f :: NonDetT (Either String) Int
[opt-env-conf-test] +          f = do
[opt-env-conf-test] +            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            if odd i
[opt-env-conf-test] +              then do
[opt-env-conf-test] +                () <- empty
[opt-env-conf-test] +                lift (Left "err")
[opt-env-conf-test] +              else pure i
[opt-env-conf-test] +
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] added 36 mutations
[opt-env-conf-test] [ 9 of 16] Compiling OptEnvConf.ReaderSpec ( test/OptEnvConf/ReaderSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ReaderSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ReaderSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:47:28-32
[opt-env-conf-test] @@ -44,7 +44,7 @@
[opt-env-conf-test]    describe "maybeReader" $
[opt-env-conf-test]      it "can parse a bool using this example reader" $ do
[opt-env-conf-test]        let r = maybeReader $ \case
[opt-env-conf-test] -            "true" -> Just True
[opt-env-conf-test] +            "true" -> Just False
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:48:29-34
[opt-env-conf-test] @@ -45,7 +45,7 @@
[opt-env-conf-test]      it "can parse a bool using this example reader" $ do
[opt-env-conf-test]        let r = maybeReader $ \case
[opt-env-conf-test]              "true" -> Just True
[opt-env-conf-test] -            "false" -> Just False
[opt-env-conf-test] +            "false" -> Just True
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test]        runReader r "false" `shouldBe` Right False
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:50:43-47
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]              "true" -> Just True
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test] -      runReader r "true" `shouldBe` Right True
[opt-env-conf-test] +      runReader r "true" `shouldBe` Right False
[opt-env-conf-test]        runReader r "false" `shouldBe` Right False
[opt-env-conf-test]        runReader r "yes" `shouldBe` Left "Unparseable value: \"yes\""
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:51:44-49
[opt-env-conf-test] @@ -48,7 +48,7 @@
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test] -      runReader r "false" `shouldBe` Right False
[opt-env-conf-test] +      runReader r "false" `shouldBe` Right True
[opt-env-conf-test]        runReader r "yes" `shouldBe` Left "Unparseable value: \"yes\""
[opt-env-conf-test]  
[opt-env-conf-test]    describe "viaStringCodec" $
[opt-env-conf-test] added 4 mutations
[opt-env-conf-test] [10 of 16] Compiling OptEnvConf.RunSpec ( test/OptEnvConf/RunSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/RunSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.RunSpec
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:1006:32-47
[opt-env-conf-test] @@ -1003,9 +1003,9 @@
[opt-env-conf-test]    IO ()
[opt-env-conf-test]  shouldParse' p capabilities args e mConf expected = do
[opt-env-conf-test]    errOrRes <- runParserOn capabilities Nothing p args e mConf
[opt-env-conf-test] -  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] -    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] -    Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] +    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] +    Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  shouldFail ::
[opt-env-conf-test]    (Show a) =>
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:1006:32-47
[opt-env-conf-test] @@ -1003,9 +1003,9 @@
[opt-env-conf-test]    IO ()
[opt-env-conf-test]  shouldParse' p capabilities args e mConf expected = do
[opt-env-conf-test]    errOrRes <- runParserOn capabilities Nothing p args e mConf
[opt-env-conf-test] -  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] -    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] -    Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] +    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] +    Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  shouldFail ::
[opt-env-conf-test]    (Show a) =>
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:953:7-51
[opt-env-conf-test] @@ -950,14 +950,14 @@
[opt-env-conf-test]      let argMap = parseArgs args
[opt-env-conf-test]      errOrRes <- runParserOn allCapabilities Nothing p argMap EnvMap.empty Nothing
[opt-env-conf-test]      context (showParserABit p) $
[opt-env-conf-test] -      case errOrRes of
[opt-env-conf-test] -        Left errs ->
[opt-env-conf-test] -          expectationFailure $
[opt-env-conf-test] -            unlines
[opt-env-conf-test] -              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] -                ppShow errs
[opt-env-conf-test] -              ]
[opt-env-conf-test] -        Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +      case errOrRes of
[opt-env-conf-test] +        Left errs ->
[opt-env-conf-test] +          expectationFailure $
[opt-env-conf-test] +            unlines
[opt-env-conf-test] +              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] +                ppShow errs
[opt-env-conf-test] +              ]
[opt-env-conf-test] +        Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  envParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([(String, String)], a)] -> Spec
[opt-env-conf-test]  envParseSpecs p table = withFrozenCallStack $ mapM_ (\(envs, result) -> envParseSpec envs p result) table
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:953:7-51
[opt-env-conf-test] @@ -950,14 +950,14 @@
[opt-env-conf-test]      let argMap = parseArgs args
[opt-env-conf-test]      errOrRes <- runParserOn allCapabilities Nothing p argMap EnvMap.empty Nothing
[opt-env-conf-test]      context (showParserABit p) $
[opt-env-conf-test] -      case errOrRes of
[opt-env-conf-test] -        Left errs ->
[opt-env-conf-test] -          expectationFailure $
[opt-env-conf-test] -            unlines
[opt-env-conf-test] -              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] -                ppShow errs
[opt-env-conf-test] -              ]
[opt-env-conf-test] -        Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +      case errOrRes of
[opt-env-conf-test] +        Left errs ->
[opt-env-conf-test] +          expectationFailure $
[opt-env-conf-test] +            unlines
[opt-env-conf-test] +              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] +                ppShow errs
[opt-env-conf-test] +              ]
[opt-env-conf-test] +        Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  envParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([(String, String)], a)] -> Spec
[opt-env-conf-test]  envParseSpecs p table = withFrozenCallStack $ mapM_ (\(envs, result) -> envParseSpec envs p result) table
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:83:42-46
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]              forAllValid $ \mConf -> do
[opt-env-conf-test]                let p = empty :: Parser Int
[opt-env-conf-test]                shouldFail p args e mConf $ \case
[opt-env-conf-test] -                ParseErrorEmpty :| [] -> True
[opt-env-conf-test] +                ParseErrorEmpty :| [] -> False
[opt-env-conf-test]                  _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]      describe "Alt" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:84:22-27
[opt-env-conf-test] @@ -81,7 +81,7 @@
[opt-env-conf-test]                let p = empty :: Parser Int
[opt-env-conf-test]                shouldFail p args e mConf $ \case
[opt-env-conf-test]                  ParseErrorEmpty :| [] -> True
[opt-env-conf-test] -                _ -> False
[opt-env-conf-test] +                _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]      describe "Alt" $ do
[opt-env-conf-test]        it "can parse a Left value with Alt" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:120:52-56
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]              let args = emptyArgs
[opt-env-conf-test]              let p = some $ setting [reader str, argument] :: Parser [String]
[opt-env-conf-test]              shouldFail p args e mConf $ \case
[opt-env-conf-test] -              ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] +              ParseErrorMissingArgument _ :| [] -> False
[opt-env-conf-test]                _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "can parse some args" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:121:20-25
[opt-env-conf-test] @@ -118,7 +118,7 @@
[opt-env-conf-test]              let p = some $ setting [reader str, argument] :: Parser [String]
[opt-env-conf-test]              shouldFail p args e mConf $ \case
[opt-env-conf-test]                ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] -              _ -> False
[opt-env-conf-test] +              _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "can parse some args" $
[opt-env-conf-test]          forAllValid $ \e ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:153:67-71
[opt-env-conf-test] @@ -150,7 +150,7 @@
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                    ParseErrorCheckFailed False "failed" :| [] -> True
[opt-env-conf-test] +                    ParseErrorCheckFailed False "failed" :| [] -> False
[opt-env-conf-test]                      _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the check parser if the capability is not available" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:154:26-31
[opt-env-conf-test] @@ -151,7 +151,7 @@
[opt-env-conf-test]                    let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                      ParseErrorCheckFailed False "failed" :| [] -> True
[opt-env-conf-test] -                    _ -> False
[opt-env-conf-test] +                    _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the check parser if the capability is not available" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:167:60-64
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                    ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] +                    ParseErrorMissingCapability _ :| [] -> False
[opt-env-conf-test]                      _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "still runs the below parser when a capability is missing for the check parser" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:168:26-31
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                      ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] -                    _ -> False
[opt-env-conf-test] +                    _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "still runs the below parser when a capability is missing for the check parser" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:176:34-35
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]              forAllValid $ \result ->
[opt-env-conf-test]                forAllValid $ \e ->
[opt-env-conf-test]                  forAllValid $ \mConf -> do
[opt-env-conf-test] -                  var <- newMVar 0
[opt-env-conf-test] +                  var <- newMVar 1
[opt-env-conf-test]                    let p = checkWithRequiredCapability capName (mapIO pure (mapIO (swapMVar var) (pure (result :: Int))))
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/RunSpec.hs:185:83-91
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | True -> True
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/RunSpec.hs:185:83-91
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | not (c == cap) -> True
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:185:95-99
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | c == cap -> False
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:186:50-55
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test]                                              ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] -                                            _ -> False
[opt-env-conf-test] +                                            _ -> True
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test]                      Right _ -> expectationFailure "The parser should not have succeeded."
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:201:56-60
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]                  let cap = Capability (T.pack capName)
[opt-env-conf-test]                  let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                  ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] +                  ParseErrorMissingArgument _ :| [] -> False
[opt-env-conf-test]                    _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the setting parser if the capability is available" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:202:24-29
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]                  let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                    ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] -                  _ -> False
[opt-env-conf-test] +                  _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the setting parser if the capability is available" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:214:58-62
[opt-env-conf-test] @@ -211,7 +211,7 @@
[opt-env-conf-test]                  let cap = Capability (T.pack capName)
[opt-env-conf-test]                  let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                  ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] +                  ParseErrorMissingCapability _ :| [] -> False
[opt-env-conf-test]                    _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]      describe "WithConfig" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:215:24-29
[opt-env-conf-test] @@ -212,7 +212,7 @@
[opt-env-conf-test]                  let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                    ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] -                  _ -> False
[opt-env-conf-test] +                  _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]      describe "WithConfig" $ do
[opt-env-conf-test]        it "can replace the config object" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:395:34-38
[opt-env-conf-test] @@ -392,7 +392,7 @@
[opt-env-conf-test]        -- Switch before argument
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch False, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Note that this could also be parsed as (False, "--foo") with a
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:396:10-14
[opt-env-conf-test] @@ -393,7 +393,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [switch True, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test] -        (True, "bar" :: String)
[opt-env-conf-test] +        (False, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Note that this could also be parsed as (False, "--foo") with a
[opt-env-conf-test]        -- leftover argument but somehow that's not what we want.
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:404:34-38
[opt-env-conf-test] @@ -401,7 +401,7 @@
[opt-env-conf-test]        -- No because then "--help" doesn't work.)
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch False, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:404:58-63
[opt-env-conf-test] @@ -401,7 +401,7 @@
[opt-env-conf-test]        -- No because then "--help" doesn't work.)
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch True, long "foo", value True] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:405:10-14
[opt-env-conf-test] @@ -402,7 +402,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] -        (True, "bar" :: String)
[opt-env-conf-test] +        (False, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:410:69-73
[opt-env-conf-test] @@ -407,7 +407,7 @@
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [reader str, argument] <*> setting [switch True, long "foo"])
[opt-env-conf-test] +        ((,) <$> setting [reader str, argument] <*> setting [switch False, long "foo"])
[opt-env-conf-test]          ("bar" :: String, True)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Dashed as argument
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:411:27-31
[opt-env-conf-test] @@ -408,7 +408,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [reader str, argument] <*> setting [switch True, long "foo"])
[opt-env-conf-test] -        ("bar" :: String, True)
[opt-env-conf-test] +        ("bar" :: String, False)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Dashed as argument
[opt-env-conf-test]        -- This example shows that we can't just skip dasheds when looking for
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:517:16-17
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ ([], 0),
[opt-env-conf-test] +        [ ([], 1),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:518:20-21
[opt-env-conf-test] @@ -515,7 +515,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test] -          (["-v"], 1),
[opt-env-conf-test] +          (["-v"], 0),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:518:20-21
[opt-env-conf-test] @@ -515,7 +515,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test] -          (["-v"], 1),
[opt-env-conf-test] +          (["-v"], -1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:519:27-28
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test] -          (["--verbose"], 1),
[opt-env-conf-test] +          (["--verbose"], 0),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:519:27-28
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test] -          (["--verbose"], 1),
[opt-env-conf-test] +          (["--verbose"], -1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], 0),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], 1),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], -2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], 0),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], 1),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], -2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], 0),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], 1),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], -2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], 0),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], 1),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], -3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], 0)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], 1)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], -4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:545:28-29
[opt-env-conf-test] @@ -542,7 +542,7 @@
[opt-env-conf-test]                  example ("file" :: String)
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] +        [ (["-f", "foo"], (1, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:546:34-35
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] -          (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] +          (["-v", "-f", "foo"], (0, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:546:34-35
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] -          (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] +          (["-v", "-f", "foo"], (-1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (0, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (1, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (-2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (0, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (-2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (0, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (1, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (-3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:573:21-22
[opt-env-conf-test] @@ -570,7 +570,7 @@
[opt-env-conf-test]                        )
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ ([], ([], 0)),
[opt-env-conf-test] +        [ ([], ([], 1)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:574:57-58
[opt-env-conf-test] @@ -571,7 +571,7 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test] -          (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] +          (["--file", "foo", "-v"], (["foo" :: String], 0)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:574:57-58
[opt-env-conf-test] @@ -571,7 +571,7 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test] -          (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] +          (["--file", "foo", "-v"], (["foo" :: String], -1)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:575:38-39
[opt-env-conf-test] @@ -572,7 +572,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] -          (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test] +          (["-vf", "foo"], (["foo"], 0))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:575:38-39
[opt-env-conf-test] @@ -572,7 +572,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] -          (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test] +          (["-vf", "foo"], (["foo"], -1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:603:44-48
[opt-env-conf-test] @@ -600,7 +600,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        -- Optional Argument and optional switch
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test] -            [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test] +            [ (["foo", "-w"], (Just "foo", False)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:604:44-48
[opt-env-conf-test] @@ -601,7 +601,7 @@
[opt-env-conf-test]        -- Optional Argument and optional switch
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test] -              (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test] +              (["-w", "foo"], (Just "foo", False)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:605:49-53
[opt-env-conf-test] @@ -602,7 +602,7 @@
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test] -              (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test] +              (["foo", "--watch"], (Just "foo", False)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:606:49-53
[opt-env-conf-test] @@ -603,7 +603,7 @@
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test] -              (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] +              (["--watch", "foo"], (Just "foo", False)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:607:38-43
[opt-env-conf-test] @@ -604,7 +604,7 @@
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] -              (["foo"], (Just "foo", False)),
[opt-env-conf-test] +              (["foo"], (Just "foo", True)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:608:42-47
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test] -              (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] +              (["--bar"], (Just "--bar", True)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:609:34-38
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] -              (["-w"], (Nothing, True)),
[opt-env-conf-test] +              (["-w"], (Nothing, False)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:610:39-43
[opt-env-conf-test] @@ -607,7 +607,7 @@
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test] -              (["--watch"], (Nothing, True))
[opt-env-conf-test] +              (["--watch"], (Nothing, False))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:630:25-26
[opt-env-conf-test] @@ -627,7 +627,7 @@
[opt-env-conf-test]          optionalArgOptionalSwitchExamples
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test] -            [ ([], ([], 0)),
[opt-env-conf-test] +            [ ([], ([], 1)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], 0)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], 1)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], -3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:632:33-34
[opt-env-conf-test] @@ -629,7 +629,7 @@
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test] -              (["--"], (["--"], 0)),
[opt-env-conf-test] +              (["--"], (["--"], 1)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:633:39-40
[opt-env-conf-test] @@ -630,7 +630,7 @@
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test] -              (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] +              (["-v", "--"], (["--"], 0)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:633:39-40
[opt-env-conf-test] @@ -630,7 +630,7 @@
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test] -              (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] +              (["-v", "--"], (["--"], -1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], 0)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], 1)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], -2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:635:39-40
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] -              (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] +              (["--", "-v"], (["-v"], 1)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], -2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], -3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], -4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], -4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], -5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 0))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 1))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], -6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:698:84-88
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          optionsArgsExamples
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:699:16-20
[opt-env-conf-test] @@ -696,7 +696,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:700:34-38
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          (["--enable-example"], True),
[opt-env-conf-test] +          (["--enable-example"], False),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:701:35-40
[opt-env-conf-test] @@ -698,7 +698,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test] -          (["--disable-example"], False)
[opt-env-conf-test] +          (["--disable-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:705:84-89
[opt-env-conf-test] @@ -702,7 +702,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:706:16-21
[opt-env-conf-test] @@ -703,7 +703,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:707:34-38
[opt-env-conf-test] @@ -704,7 +704,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          (["--enable-example"], True),
[opt-env-conf-test] +          (["--enable-example"], False),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:708:35-40
[opt-env-conf-test] @@ -705,7 +705,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test] -          (["--disable-example"], False)
[opt-env-conf-test] +          (["--disable-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:714:39-43
[opt-env-conf-test] @@ -711,7 +711,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (optional $ enableDisableSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test] -          (["--enable-example"], Just True),
[opt-env-conf-test] +          (["--enable-example"], Just False),
[opt-env-conf-test]            (["--disable-example"], Just False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:715:40-45
[opt-env-conf-test] @@ -712,7 +712,7 @@
[opt-env-conf-test]          (optional $ enableDisableSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test]            (["--enable-example"], Just True),
[opt-env-conf-test] -          (["--disable-example"], Just False)
[opt-env-conf-test] +          (["--disable-example"], Just True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:719:103-107
[opt-env-conf-test] @@ -716,7 +716,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:720:16-20
[opt-env-conf-test] @@ -717,7 +717,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:721:36-41
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:722:40-45
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:723:35-39
[opt-env-conf-test] @@ -720,7 +720,7 @@
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:724:39-43
[opt-env-conf-test] @@ -721,7 +721,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:728:103-108
[opt-env-conf-test] @@ -725,7 +725,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:729:16-21
[opt-env-conf-test] @@ -726,7 +726,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:730:35-39
[opt-env-conf-test] @@ -727,7 +727,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:731:39-43
[opt-env-conf-test] @@ -728,7 +728,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:732:36-41
[opt-env-conf-test] @@ -729,7 +729,7 @@
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:733:40-45
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:737:76-80
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:738:16-20
[opt-env-conf-test] @@ -735,7 +735,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:739:27-31
[opt-env-conf-test] @@ -736,7 +736,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          (["--example"], True),
[opt-env-conf-test] +          (["--example"], False),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:740:30-35
[opt-env-conf-test] @@ -737,7 +737,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test] -          (["--no-example"], False)
[opt-env-conf-test] +          (["--no-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:744:76-81
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:745:16-21
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:746:27-31
[opt-env-conf-test] @@ -743,7 +743,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          (["--example"], True),
[opt-env-conf-test] +          (["--example"], False),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:747:30-35
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test] -          (["--no-example"], False)
[opt-env-conf-test] +          (["--no-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:753:32-36
[opt-env-conf-test] @@ -750,7 +750,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (optional $ yesNoSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test] -          (["--example"], Just True),
[opt-env-conf-test] +          (["--example"], Just False),
[opt-env-conf-test]            (["--no-example"], Just False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:754:35-40
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]          (optional $ yesNoSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test]            (["--example"], Just True),
[opt-env-conf-test] -          (["--no-example"], Just False)
[opt-env-conf-test] +          (["--no-example"], Just True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:758:95-99
[opt-env-conf-test] @@ -755,7 +755,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:759:16-20
[opt-env-conf-test] @@ -756,7 +756,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:760:36-41
[opt-env-conf-test] @@ -757,7 +757,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:761:40-45
[opt-env-conf-test] @@ -758,7 +758,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:762:35-39
[opt-env-conf-test] @@ -759,7 +759,7 @@
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:763:39-43
[opt-env-conf-test] @@ -760,7 +760,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:767:95-100
[opt-env-conf-test] @@ -764,7 +764,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:768:16-21
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:769:35-39
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:770:39-43
[opt-env-conf-test] @@ -767,7 +767,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:771:36-41
[opt-env-conf-test] @@ -768,7 +768,7 @@
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:772:40-45
[opt-env-conf-test] @@ -769,7 +769,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:786:36-40
[opt-env-conf-test] @@ -783,7 +783,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test] +        ((Left <$> setting [switch False, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test]          [ (["--bash-completion-script"], Left True),
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:787:47-51
[opt-env-conf-test] @@ -784,7 +784,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test] -        [ (["--bash-completion-script"], Left True),
[opt-env-conf-test] +        [ (["--bash-completion-script"], Left False),
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:791:36-40
[opt-env-conf-test] @@ -788,7 +788,7 @@
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test] +        ((Left <$> setting [switch False, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test]          [ (["--bash-completion-script"], Left True),
[opt-env-conf-test]            (["arg"], Right (Just ("arg" :: String)))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:792:47-51
[opt-env-conf-test] @@ -789,7 +789,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test] -        [ (["--bash-completion-script"], Left True),
[opt-env-conf-test] +        [ (["--bash-completion-script"], Left False),
[opt-env-conf-test]            (["arg"], Right (Just ("arg" :: String)))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left 0),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left 1),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left -5),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:933:13-18
[opt-env-conf-test] @@ -930,7 +930,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( withDefault
[opt-env-conf-test] -            False
[opt-env-conf-test] +            True
[opt-env-conf-test]              ( setting
[opt-env-conf-test]                  [ argument,
[opt-env-conf-test]                    reader auto
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:940:22-26
[opt-env-conf-test] @@ -937,7 +937,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]              )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (["True"], True),
[opt-env-conf-test] +        [ (["True"], False),
[opt-env-conf-test]            ([], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:941:16-21
[opt-env-conf-test] @@ -938,7 +938,7 @@
[opt-env-conf-test]              )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["True"], True),
[opt-env-conf-test] -          ([], False)
[opt-env-conf-test] +          ([], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  argParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([String], a)] -> Spec
[opt-env-conf-test] added 156 mutations
[opt-env-conf-test] [11 of 16] Compiling OptEnvConf.TestUtils ( test/OptEnvConf/TestUtils.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/TestUtils.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.TestUtils
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [12 of 16] Compiling OptEnvConf.HelpSpec ( test/OptEnvConf/HelpSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/HelpSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.HelpSpec
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:165:13-102
[opt-env-conf-test] @@ -162,6 +162,6 @@
[opt-env-conf-test]          let progname = "example"
[opt-env-conf-test]          pure $
[opt-env-conf-test]            pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:165:13-102
[opt-env-conf-test] @@ -162,6 +162,6 @@
[opt-env-conf-test]          let progname = "example"
[opt-env-conf-test]          pure $
[opt-env-conf-test]            pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:159:5-102
[opt-env-conf-test] @@ -156,12 +156,12 @@
[opt-env-conf-test]      let argMap = Args.parseArgs args
[opt-env-conf-test]      let parser = settingsParser @Instructions
[opt-env-conf-test]      errOrDocs <- runHelpParser Nothing argMap parser
[opt-env-conf-test] -    case errOrDocs of
[opt-env-conf-test] -      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] -      Right mCommandDoc -> do
[opt-env-conf-test] -        let progname = "example"
[opt-env-conf-test] -        pure $
[opt-env-conf-test] -          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +    case errOrDocs of
[opt-env-conf-test] +      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] +      Right mCommandDoc -> do
[opt-env-conf-test] +        let progname = "example"
[opt-env-conf-test] +        pure $
[opt-env-conf-test] +          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:159:5-102
[opt-env-conf-test] @@ -156,12 +156,12 @@
[opt-env-conf-test]      let argMap = Args.parseArgs args
[opt-env-conf-test]      let parser = settingsParser @Instructions
[opt-env-conf-test]      errOrDocs <- runHelpParser Nothing argMap parser
[opt-env-conf-test] -    case errOrDocs of
[opt-env-conf-test] -      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] -      Right mCommandDoc -> do
[opt-env-conf-test] -        let progname = "example"
[opt-env-conf-test] -        pure $
[opt-env-conf-test] -          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +    case errOrDocs of
[opt-env-conf-test] +      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] +      Right mCommandDoc -> do
[opt-env-conf-test] +        let progname = "example"
[opt-env-conf-test] +        pure $
[opt-env-conf-test] +          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added 4 mutations
[opt-env-conf-test] [13 of 16] Compiling OptEnvConf.APISpec ( test/OptEnvConf/APISpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/APISpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.APISpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,5 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,8 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] +            short 'v',
[opt-env-conf-test] +            switch ()
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,8 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] +            short 'v',
[opt-env-conf-test] +            switch ()
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,7 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,10 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "c" "C" $ pure C,
[opt-env-conf-test] +      command "d" "D" $ pure D,
[opt-env-conf-test] +      defaultCommand "c"
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,9 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "c" "C" $ pure C,
[opt-env-conf-test] +      command "d" "D" $ pure D
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:487:5-6
[opt-env-conf-test] @@ -484,9 +484,7 @@
[opt-env-conf-test]  sub1Parser :: Parser Sub1
[opt-env-conf-test]  sub1Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "a" "A" $ pure A,
[opt-env-conf-test] -      command "b" "B" $ pure B
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub2 = C | D
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:487:5-6
[opt-env-conf-test] @@ -484,9 +484,9 @@
[opt-env-conf-test]  sub1Parser :: Parser Sub1
[opt-env-conf-test]  sub1Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "a" "A" $ pure A,
[opt-env-conf-test] -      command "b" "B" $ pure B
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "a" "A" $ pure A,
[opt-env-conf-test] +      command "b" "B" $ pure B
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub2 = C | D
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,7 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,12 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name",
[opt-env-conf-test] +                example "john"
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,11 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:469:7-8
[opt-env-conf-test] @@ -466,18 +466,7 @@
[opt-env-conf-test]  subCommandsParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "top" "command without subcommands" $
[opt-env-conf-test] -          Top
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "sub" "command with subcommands" $
[opt-env-conf-test] -          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub1 = A | B
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:469:7-8
[opt-env-conf-test] @@ -466,18 +466,18 @@
[opt-env-conf-test]  subCommandsParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "top" "command without subcommands" $
[opt-env-conf-test] -          Top
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "sub" "command with subcommands" $
[opt-env-conf-test] -          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "top" "command without subcommands" $
[opt-env-conf-test] +          Top
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name",
[opt-env-conf-test] +                example "john"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "sub" "command with subcommands" $
[opt-env-conf-test] +          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub1 = A | B
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,7 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,11 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,10 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample 0
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample 1
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample -5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,7 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,14 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,13 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n'
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:455:23-28
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,7 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,10 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,9 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,7 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,33 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "one" "first" $
[opt-env-conf-test] +          One
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "two" "second" $
[opt-env-conf-test] +          Two
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            <*> enableDisableSwitch
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] +        defaultCommand "one"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,32 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "one" "first" $
[opt-env-conf-test] +          One
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "two" "second" $
[opt-env-conf-test] +          Two
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            <*> enableDisableSwitch
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "three-very-long-command-name" "third" (pure Three)
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,7 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,11 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of a yes/no switch",
[opt-env-conf-test] +              env "EXAMPLE",
[opt-env-conf-test] +              conf "example"
[opt-env-conf-test] +            ]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,10 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of a yes/no switch",
[opt-env-conf-test] +              env "EXAMPLE"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:402:17-21
[opt-env-conf-test] @@ -399,7 +399,7 @@
[opt-env-conf-test]            help "Example of a yes/no switch",
[opt-env-conf-test]            env "EXAMPLE",
[opt-env-conf-test]            conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] +          value False
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,12 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of a yes/no switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example",
[opt-env-conf-test] +          value True
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,11 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of a yes/no switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,7 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,11 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of an enable/disable switch",
[opt-env-conf-test] +              env "EXAMPLE",
[opt-env-conf-test] +              conf "example"
[opt-env-conf-test] +            ]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,10 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of an enable/disable switch",
[opt-env-conf-test] +              env "EXAMPLE"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:375:17-21
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]            help "Example of an enable/disable switch",
[opt-env-conf-test]            env "EXAMPLE",
[opt-env-conf-test]            conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] +          value False
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,12 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of an enable/disable switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example",
[opt-env-conf-test] +          value True
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,11 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of an enable/disable switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,7 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,13 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ reader str,
[opt-env-conf-test] +        argument,
[opt-env-conf-test] +        hidden,
[opt-env-conf-test] +        metavar "STR",
[opt-env-conf-test] +        value "default",
[opt-env-conf-test] +        help "Example of a hidden setting"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,12 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ reader str,
[opt-env-conf-test] +        argument,
[opt-env-conf-test] +        hidden,
[opt-env-conf-test] +        metavar "STR",
[opt-env-conf-test] +        value "default"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,7 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,11 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Argument",
[opt-env-conf-test] +            metavar "ARGUMENT"
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,10 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,7 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,11 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument",
[opt-env-conf-test] +          metavar "ARGUMENT"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,10 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,7 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,11 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument",
[opt-env-conf-test] +          metavar "ARGUMENT"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,10 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,7 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,11 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            name "quux",
[opt-env-conf-test] +            help "Example with sub-settings",
[opt-env-conf-test] +            metavar "STR"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,10 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            name "quux",
[opt-env-conf-test] +            help "Example with sub-settings"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:298:7-8
[opt-env-conf-test] @@ -295,9 +295,7 @@
[opt-env-conf-test]  bigConfigParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      setting
[opt-env-conf-test] -      [ conf "big",
[opt-env-conf-test] -        help "big configuration object"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  subSettingsParser :: Parser String
[opt-env-conf-test]  subSettingsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:298:7-8
[opt-env-conf-test] @@ -295,9 +295,9 @@
[opt-env-conf-test]  bigConfigParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      setting
[opt-env-conf-test] -      [ conf "big",
[opt-env-conf-test] -        help "big configuration object"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ conf "big",
[opt-env-conf-test] +        help "big configuration object"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  subSettingsParser :: Parser String
[opt-env-conf-test]  subSettingsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,7 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,17 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            option,
[opt-env-conf-test] +            short 'g',
[opt-env-conf-test] +            long "greeting",
[opt-env-conf-test] +            metavar "GREETING",
[opt-env-conf-test] +            env "GREETING",
[opt-env-conf-test] +            conf "greeting",
[opt-env-conf-test] +            value "Hello",
[opt-env-conf-test] +            example "Greetings",
[opt-env-conf-test] +            help "Greeting to use"
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,16 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            option,
[opt-env-conf-test] +            short 'g',
[opt-env-conf-test] +            long "greeting",
[opt-env-conf-test] +            metavar "GREETING",
[opt-env-conf-test] +            env "GREETING",
[opt-env-conf-test] +            conf "greeting",
[opt-env-conf-test] +            value "Hello",
[opt-env-conf-test] +            example "Greetings"
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,7 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,12 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Who to greet",
[opt-env-conf-test] +            value "world",
[opt-env-conf-test] +            metavar "SUBJECT"
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,11 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Who to greet",
[opt-env-conf-test] +            value "world"
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:272:20-24
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] +            switch False,
[opt-env-conf-test]              short 'p',
[opt-env-conf-test]              long "polite",
[opt-env-conf-test]              env "POLITE",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:278:19-24
[opt-env-conf-test] @@ -275,7 +275,7 @@
[opt-env-conf-test]              env "POLITE",
[opt-env-conf-test]              conf "polite",
[opt-env-conf-test]              metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] +            value True,
[opt-env-conf-test]              help "Whether to be polite"
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,7 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,16 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader exists,
[opt-env-conf-test] +            switch True,
[opt-env-conf-test] +            short 'p',
[opt-env-conf-test] +            long "polite",
[opt-env-conf-test] +            env "POLITE",
[opt-env-conf-test] +            conf "polite",
[opt-env-conf-test] +            metavar "ANY",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            help "Whether to be polite"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,15 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader exists,
[opt-env-conf-test] +            switch True,
[opt-env-conf-test] +            short 'p',
[opt-env-conf-test] +            long "polite",
[opt-env-conf-test] +            env "POLITE",
[opt-env-conf-test] +            conf "polite",
[opt-env-conf-test] +            metavar "ANY",
[opt-env-conf-test] +            value False
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:199:9-10
[opt-env-conf-test] @@ -196,9 +196,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      (,,,,)
[opt-env-conf-test]        <$> secretTextFileSetting
[opt-env-conf-test] -        [ help "First example secret",
[opt-env-conf-test] -          name "first-secret-file"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file",
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:199:9-10
[opt-env-conf-test] @@ -196,9 +196,9 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      (,,,,)
[opt-env-conf-test]        <$> secretTextFileSetting
[opt-env-conf-test] -        [ help "First example secret",
[opt-env-conf-test] -          name "first-secret-file"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "First example secret",
[opt-env-conf-test] +          name "first-secret-file"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file",
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:203:9-10
[opt-env-conf-test] @@ -200,9 +200,7 @@
[opt-env-conf-test]            name "first-secret-file"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] -          name "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test]            option,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:203:9-10
[opt-env-conf-test] @@ -200,9 +200,9 @@
[opt-env-conf-test]            name "first-secret-file"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] -          name "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] +          name "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test]            option,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,7 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,10 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] +          option,
[opt-env-conf-test] +          long "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,9 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] +          option
[opt-env-conf-test] +]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:212:9-10
[opt-env-conf-test] @@ -209,9 +209,7 @@
[opt-env-conf-test]            long "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] -          env "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test]            conf "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:212:9-10
[opt-env-conf-test] @@ -209,9 +209,9 @@
[opt-env-conf-test]            long "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] -          env "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] +          env "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test]            conf "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:216:9-10
[opt-env-conf-test] @@ -213,9 +213,7 @@
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] -          conf "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  data FirstOrSecond = First | Second
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:216:9-10
[opt-env-conf-test] @@ -213,9 +213,9 @@
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] -          conf "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] +          conf "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  data FirstOrSecond = First | Second
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:156:23-48
[opt-env-conf-test] @@ -153,7 +153,7 @@
[opt-env-conf-test]  parseSumType = \case
[opt-env-conf-test]    "a" -> pure SumTypeA
[opt-env-conf-test]    "b" -> pure SumTypeB
[opt-env-conf-test] -  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test] +  s -> Left $ unwords []
[opt-env-conf-test]  
[opt-env-conf-test]  renderSumType :: SumType -> String
[opt-env-conf-test]  renderSumType = \case
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:156:23-48
[opt-env-conf-test] @@ -153,7 +153,7 @@
[opt-env-conf-test]  parseSumType = \case
[opt-env-conf-test]    "a" -> pure SumTypeA
[opt-env-conf-test]    "b" -> pure SumTypeB
[opt-env-conf-test] -  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test] +  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSumType :: SumType -> String
[opt-env-conf-test]  renderSumType = \case
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,7 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,10 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,9 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,7 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,10 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,9 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,7 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,10 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type"
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:185:15-16
[opt-env-conf-test] @@ -182,9 +182,7 @@
[opt-env-conf-test]                  metavar "SUM_TYPE"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  valueWithShown renderSumType SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:185:15-16
[opt-env-conf-test] @@ -182,9 +182,9 @@
[opt-env-conf-test]                  metavar "SUM_TYPE"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  valueWithShown renderSumType SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:189:15-16
[opt-env-conf-test] @@ -186,9 +186,7 @@
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:189:15-16
[opt-env-conf-test] @@ -186,9 +186,9 @@
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,31 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ setting
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,29 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ setting
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,7 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,11 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto,
[opt-env-conf-test] +                    metavar "INT"
[opt-env-conf-test] +                  ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,10 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto
[opt-env-conf-test] +],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,7 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,11 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str,
[opt-env-conf-test] +                    metavar "STR"
[opt-env-conf-test] +                  ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,10 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str
[opt-env-conf-test] +]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:123:13-14
[opt-env-conf-test] @@ -120,21 +120,7 @@
[opt-env-conf-test]      let h = help "int or string"
[opt-env-conf-test]       in (,)
[opt-env-conf-test]            <$> choice
[opt-env-conf-test] -            [ Left
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -              Right
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:123:13-14
[opt-env-conf-test] @@ -120,21 +120,21 @@
[opt-env-conf-test]      let h = help "int or string"
[opt-env-conf-test]       in (,)
[opt-env-conf-test]            <$> choice
[opt-env-conf-test] -            [ Left
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -              Right
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ Left
[opt-env-conf-test] +                <$> setting
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto,
[opt-env-conf-test] +                    metavar "INT"
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +              Right
[opt-env-conf-test] +                <$> setting
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str,
[opt-env-conf-test] +                    metavar "STR"
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +            ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:141:21-25
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] +              value False
[opt-env-conf-test]              ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,10 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ h,
[opt-env-conf-test] +              name "other",
[opt-env-conf-test] +              value True
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,9 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ h,
[opt-env-conf-test] +              name "other"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:30-31
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [1, 0, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:33-34
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 1, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:36-37
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0, 1]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion []
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/APISpec.hs:50:7-43
[opt-env-conf-test] @@ -47,9 +47,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]    it "shows the parser in the same way" $
[opt-env-conf-test]      goldenStringFile ("test_resources/docs/" <> dir <> "/show.txt") $
[opt-env-conf-test] -      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] -        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] -        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test] +      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] +        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] +        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test]  
[opt-env-conf-test]    it "produces the same docs structure as before" $
[opt-env-conf-test]      pureGoldenStringFile ("test_resources/docs/" <> dir <> "/docs.txt") $
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/APISpec.hs:50:7-43
[opt-env-conf-test] @@ -47,9 +47,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]    it "shows the parser in the same way" $
[opt-env-conf-test]      goldenStringFile ("test_resources/docs/" <> dir <> "/show.txt") $
[opt-env-conf-test] -      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] -        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] -        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test] +      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] +        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] +        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test]  
[opt-env-conf-test]    it "produces the same docs structure as before" $
[opt-env-conf-test]      pureGoldenStringFile ("test_resources/docs/" <> dir <> "/docs.txt") $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,7 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,11 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f',
[opt-env-conf-test] +            long "first"
[opt-env-conf-test] +          ],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,10 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f'
[opt-env-conf-test] +],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,7 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,11 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's',
[opt-env-conf-test] +            long "second"
[opt-env-conf-test] +          ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,10 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's'
[opt-env-conf-test] +]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:227:7-8
[opt-env-conf-test] @@ -224,19 +224,7 @@
[opt-env-conf-test]    settingsParser =
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test] -      [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test]  withDefaultParser = withDefault Second settingsParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:227:7-8
[opt-env-conf-test] @@ -224,19 +224,19 @@
[opt-env-conf-test]    settingsParser =
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test] -      [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ setting
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f',
[opt-env-conf-test] +            long "first"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +        setting
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's',
[opt-env-conf-test] +            long "second"
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test]  withDefaultParser = withDefault Second settingsParser
[opt-env-conf-test] added 128 mutations
[opt-env-conf-test] [14 of 16] Compiling OptEnvConf.ToplevelSpec ( test/OptEnvConf/ToplevelSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ToplevelSpec.o )
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ToplevelSpec
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:35-36
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [1, 0, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:38-39
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 1, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:41-42
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0, 1]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion []
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0
[opt-env-conf-test] +]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,7 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs [] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,7 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,8 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4"
[opt-env-conf-test] +] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:18:48-49
[opt-env-conf-test] @@ -15,7 +15,7 @@
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test]        withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] -        dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test] +        dummyRun `shouldThrow` (== ExitFailure 0)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test]        it "can show help text with --help" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:18:48-49
[opt-env-conf-test] @@ -15,7 +15,7 @@
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test]        withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] -        dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test] +        dummyRun `shouldThrow` (== ExitFailure -1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test]        it "can show help text with --help" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,7 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,7 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,8 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--help", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,8 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["-h", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,7 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,7 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,8 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--run-settings-check", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added 20 mutations
[opt-env-conf-test] [15 of 16] Compiling Main             ( test/Spec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/Main.o )
[opt-env-conf-test] mutation: instrumenting Main
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [16 of 16] Compiling Paths_opt_env_conf_test ( dist/build/opt-env-conf-test/autogen/Paths_opt_env_conf_test.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/Paths_opt_env_conf_test.o )
[opt-env-conf-test] [ 1 of 17] Compiling OptEnvConf.ArgsSpec ( test/OptEnvConf/ArgsSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ArgsSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ArgsSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ArgsSpec.hs:38:69-73
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]    describe "renderDashed" $ do
[opt-env-conf-test]      it "roundtrips with parseArg for long dashed" $
[opt-env-conf-test]        forAllValid $ \n ->
[opt-env-conf-test] -        parseArg (renderDashed (DashedLong n)) `shouldBe` ArgDashed True n
[opt-env-conf-test] +        parseArg (renderDashed (DashedLong n)) `shouldBe` ArgDashed False n
[opt-env-conf-test]  
[opt-env-conf-test]      it "roundtrips with parseArg for short dashed" $
[opt-env-conf-test]        forAllValid $ \c ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ArgsSpec.hs:42:70-75
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "roundtrips with parseArg for short dashed" $
[opt-env-conf-test]        forAllValid $ \c ->
[opt-env-conf-test] -        parseArg (renderDashed (DashedShort c)) `shouldBe` ArgDashed False (c :| [])
[opt-env-conf-test] +        parseArg (renderDashed (DashedShort c)) `shouldBe` ArgDashed True (c :| [])
[opt-env-conf-test]  
[opt-env-conf-test]    describe "consumeArgument" $ do
[opt-env-conf-test]      it "does not consume anything if there is nothing to consume" $
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed True cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed False cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/ArgsSpec.hs:77:31-37
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]        forAllValid $ \befores ->
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test] -            let d = ArgDashed isLong cs
[opt-env-conf-test] +            let d = ArgDashed not (isLong) cs
[opt-env-conf-test]                  args = Args befores [Live d, Dead]
[opt-env-conf-test]               in consumeArgument args
[opt-env-conf-test]                    `shouldBe` [ (Nothing, Args (befores ++ [Live d, Dead]) []),
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed True cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed False cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/ArgsSpec.hs:89:33-39
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]          forAllValid $ \isLong ->
[opt-env-conf-test]            forAllValid $ \cs ->
[opt-env-conf-test]              forAll (genValid `suchThat` (/= ArgBareDoubleDash)) $ \arg ->
[opt-env-conf-test] -              let d = ArgDashed isLong cs
[opt-env-conf-test] +              let d = ArgDashed not (isLong) cs
[opt-env-conf-test]                    args = Args befores [Live d, Live arg]
[opt-env-conf-test]                 in context (ppShow args) $
[opt-env-conf-test]                      consumeArgument args
[opt-env-conf-test] added 8 mutations
[opt-env-conf-test] [ 2 of 17] Compiling OptEnvConf.CheckSpec ( test/OptEnvConf/CheckSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CheckSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CheckSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:30:52-56
[opt-env-conf-test] @@ -27,7 +27,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p Args.emptyArgs EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckSucceeded () -> True
[opt-env-conf-test] +                              CheckSucceeded () -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:31:36-41
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckSucceeded () -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "fails when a required setting is missing" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:40:48-52
[opt-env-conf-test] @@ -37,7 +37,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p Args.emptyArgs EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:41:36-41
[opt-env-conf-test] @@ -38,7 +38,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says incapable when a required capability is missing" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:50:51-55
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn (disableCapability (Capability "read-secret") allCapabilities) stderrTc p ["arg"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckIncapable _ -> True
[opt-env-conf-test] +                              CheckIncapable _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:51:36-41
[opt-env-conf-test] @@ -48,7 +48,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckIncapable _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says failed when a required capability is available" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:60:48-52
[opt-env-conf-test] @@ -57,7 +57,7 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn allCapabilities stderrTc p ["arg"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:61:36-41
[opt-env-conf-test] @@ -58,7 +58,7 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test]  
[opt-env-conf-test]        it "says failed when a required capability is missing but another setting failed" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:75:48-52
[opt-env-conf-test] @@ -72,6 +72,6 @@
[opt-env-conf-test]          checkResult <- runSettingsCheckOn (disableCapability (Capability "read-secret") allCapabilities) stderrTc p ["arg1", "arg2"] EnvMap.empty Nothing
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test] -                              CheckFailed _ -> True
[opt-env-conf-test] +                              CheckFailed _ -> False
[opt-env-conf-test]                                _ -> False
[opt-env-conf-test]                            )
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CheckSpec.hs:76:36-41
[opt-env-conf-test] @@ -73,5 +73,5 @@
[opt-env-conf-test]          checkResult
[opt-env-conf-test]            `shouldSatisfy` ( \case
[opt-env-conf-test]                                CheckFailed _ -> True
[opt-env-conf-test] -                              _ -> False
[opt-env-conf-test] +                              _ -> True
[opt-env-conf-test]                            )
[opt-env-conf-test] added 10 mutations
[opt-env-conf-test] [ 3 of 17] Compiling OptEnvConf.CompleterSpec ( test/OptEnvConf/CompleterSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CompleterSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CompleterSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:52:38-104
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l =
[opt-env-conf-test]                withFrozenCallStack $
[opt-env-conf-test] -                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:56:14-65
[opt-env-conf-test] @@ -53,7 +53,8 @@
[opt-env-conf-test]                    withCurrentDir tdir $
[opt-env-conf-test]                      unCompleter filePath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,7 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" []
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,7 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:59:17-70
[opt-env-conf-test] @@ -56,7 +56,8 @@
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "f" [fileR "foo.txt"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [fileR "bar/quux.txt", dirR "bar/"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:62:15-53
[opt-env-conf-test] @@ -59,7 +59,7 @@
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test] -        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] +        c "." []
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:62:15-53
[opt-env-conf-test] @@ -59,7 +59,7 @@
[opt-env-conf-test]          c "bar" [fileR "bar/quux.txt", dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test] -        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] +        c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" []
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:63:16-73
[opt-env-conf-test] @@ -60,7 +60,8 @@
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test] -        c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] +        c "./" [fileR "./foo.txt", fileR "./config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" []
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:64:18-81
[opt-env-conf-test] @@ -61,7 +61,8 @@
[opt-env-conf-test]          c "q" []
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test] -        c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] +        c "././" [fileR "././foo.txt", fileR "././config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:65:17-59
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] -        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] +        c "./." []
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:65:17-59
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]          c "." [fileR ".hidden.txt", dirR ".hidden/"]
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test] -        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] +        c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test]          c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:66:19-78
[opt-env-conf-test] @@ -63,7 +63,8 @@
[opt-env-conf-test]          c "./" [fileR "./foo.txt", fileR "./config.yaml", dirR "./bar/"]
[opt-env-conf-test]          c "././" [fileR "././foo.txt", fileR "././config.yaml", dirR "././bar/"]
[opt-env-conf-test]          c "./." [fileR "./.hidden.txt", dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [fileR "./bar/quux.txt", dirR "./bar/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:72:18-58
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test]          -- shells decide whether to append a trailing space after a
[opt-env-conf-test]          -- completion.
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:72:18-58
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]          -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test]          -- shells decide whether to append a trailing space after a
[opt-env-conf-test]          -- completion.
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:74:22-67
[opt-env-conf-test] @@ -71,7 +71,7 @@
[opt-env-conf-test]          -- completion.
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test] -        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/deep" []
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test]          c "bar/q" [fileR "bar/quux.txt"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:74:22-67
[opt-env-conf-test] @@ -71,7 +71,7 @@
[opt-env-conf-test]          -- completion.
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test] -        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/deep" [fileR "bar/deep/gold.txt", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep/" [fileR "bar/deep/gold.txt"]
[opt-env-conf-test]          c "bar/q" [fileR "bar/quux.txt"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,10 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml",
[opt-env-conf-test] +                           dirR "../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:86:26-27
[opt-env-conf-test] @@ -83,10 +83,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath ".."
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"../\" to parent directory contents" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,10 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml",
[opt-env-conf-test] +                           dirR "../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:95:26-27
[opt-env-conf-test] @@ -92,10 +92,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] -                           fileR "../config.yaml",
[opt-env-conf-test] -                           dirR "../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../foo.txt",
[opt-env-conf-test] +                           fileR "../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"../f\" to matching parent files" $ \tdir -> do
[opt-env-conf-test]            subdir <- resolveDir tdir "bar"
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:110:26-27
[opt-env-conf-test] @@ -107,9 +107,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Parent directory in the middle of a path
[opt-env-conf-test]          itWithOuter "can complete \"bar/../\" to current dir contents" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:110:26-27
[opt-env-conf-test] @@ -107,9 +107,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../bar/quux.txt",
[opt-env-conf-test] +                           dirR "../bar/deep/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Parent directory in the middle of a path
[opt-env-conf-test]          itWithOuter "can complete \"bar/../\" to current dir contents" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,7 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,10 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] +                           fileR "bar/../config.yaml",
[opt-env-conf-test] +                           dirR "bar/../bar/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:119:26-27
[opt-env-conf-test] @@ -116,10 +116,9 @@
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] -                           fileR "bar/../config.yaml",
[opt-env-conf-test] -                           dirR "bar/../bar/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "bar/../foo.txt",
[opt-env-conf-test] +                           fileR "bar/../config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          itWithOuter "can complete \"bar/../f\" to matching files" $ \tdir ->
[opt-env-conf-test]            withCurrentDir tdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "bar/../f"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:133:26-27
[opt-env-conf-test] @@ -130,9 +130,7 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/deep/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Absolute paths
[opt-env-conf-test]          itWithOuter "can complete absolute paths" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:133:26-27
[opt-env-conf-test] @@ -130,9 +130,9 @@
[opt-env-conf-test]            withCurrentDir subdir $ do
[opt-env-conf-test]              results <- unCompleter filePath "../bar/deep/../"
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] -                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR "../bar/deep/../quux.txt",
[opt-env-conf-test] +                           dirR "../bar/deep/../deep/"
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Absolute paths
[opt-env-conf-test]          itWithOuter "can complete absolute paths" $ \tdir ->
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,7 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,10 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] +                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] +                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:143:26-27
[opt-env-conf-test] @@ -140,10 +140,10 @@
[opt-env-conf-test]              let absPrefix = fromAbsDir tdir
[opt-env-conf-test]              results <- unCompleter filePath absPrefix
[opt-env-conf-test]              results
[opt-env-conf-test] -              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] -                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] -                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] -                         ]
[opt-env-conf-test] +              `shouldBe` [ fileR (absPrefix <> "foo.txt"),
[opt-env-conf-test] +                           fileR (absPrefix <> "config.yaml"),
[opt-env-conf-test] +                           dirR (absPrefix <> "bar/")
[opt-env-conf-test] +                         ]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:151:36-102
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]        describe "directoryPath" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter directoryPath s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:163:19-54
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test]          c "././" [dirR "././bar/"]
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" []
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:163:19-54
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test]          c "././" [dirR "././bar/"]
[opt-env-conf-test]          c "./." [dirR "./.hidden/"]
[opt-env-conf-test] -        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test] +        c "./bar" [dirR "./bar/", dirR "./bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:167:18-49
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] -        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:167:18-49
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          -- Deeper nesting.
[opt-env-conf-test]          -- Only directories are returned, never files.
[opt-env-conf-test] -        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/d" [dirR "bar/deep/"]
[opt-env-conf-test]          c "bar/deep" [dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:206:36-102
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]        describe "filePathWithExtension" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:210:14-48
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:210:14-48
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtension ".yaml") s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test]          c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:213:17-48
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]          c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" []
[opt-env-conf-test]  
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:213:17-48
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]          c "" [fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "c" [fileR "config.yaml"]
[opt-env-conf-test]          c "b" [dirR "bar/"]
[opt-env-conf-test] -        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar" [dirR "bar/", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords []) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:218:36-102
[opt-env-conf-test] @@ -215,7 +215,7 @@
[opt-env-conf-test]        describe "filePathWithExtensions" $ do
[opt-env-conf-test]          let c :: (HasCallStack) => String -> [CompletionResult] -> TestDef '[Path Abs Dir] ()
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test] -              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test] +              itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:220:55-72
[opt-env-conf-test] @@ -217,7 +217,7 @@
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test]                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test] -                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test] +                  unCompleter (filePathWithExtensions []) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:220:55-72
[opt-env-conf-test] @@ -217,7 +217,7 @@
[opt-env-conf-test]              c s l = withFrozenCallStack $
[opt-env-conf-test]                itWithOuter (unwords ["can complete", show s, "to", show (map completionResultValue l)]) $ \tdir ->
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test] -                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test] +                  unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" []
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:222:14-65
[opt-env-conf-test] @@ -219,7 +219,8 @@
[opt-env-conf-test]                  withCurrentDir tdir $
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test] -        c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] +        c "" [fileR "foo.txt", fileR "config.yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]          c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:223:18-58
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" []
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test]  fileR s =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompleterSpec.hs:223:18-58
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]                    unCompleter (filePathWithExtensions [".txt", ".yaml"]) s `shouldReturn` l
[opt-env-conf-test]  
[opt-env-conf-test]          c "" [fileR "foo.txt", fileR "config.yaml", dirR "bar/"]
[opt-env-conf-test] -        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test] +        c "bar/" [fileR "bar/quux.txt", dirR "bar/deep/"]
[opt-env-conf-test]  
[opt-env-conf-test]  fileR :: String -> CompletionResult
[opt-env-conf-test]  fileR s =
[opt-env-conf-test] added 66 mutations
[opt-env-conf-test] [ 4 of 17] Compiling OptEnvConf.CompletionSpec ( test/OptEnvConf/CompletionSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/CompletionSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.CompletionSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,7 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,7 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:36:18-56
[opt-env-conf-test] @@ -33,7 +33,8 @@
[opt-env-conf-test]    describe "pureCompletionQuery" $ do
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] +        (setting [switch (), short 'e'
[opt-env-conf-test] +])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:37:9-10
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can complete a switch from nothing" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), short 'e', long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:42:18-40
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e'])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:42:18-40
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]          ["--example"] -- Only the long version
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), short 'e'])
[opt-env-conf-test] +        (setting [switch (), short 'e'])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:43:9-10
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]      it "can complete a short switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), short 'e'])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:49:18-45
[opt-env-conf-test] @@ -46,7 +46,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:49:18-45
[opt-env-conf-test] @@ -46,7 +46,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [switch (), long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:50:9-10
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]      it "can complete a long switch from a single dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["-"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:56:18-45
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:56:18-45
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "example"])
[opt-env-conf-test] +        (setting [switch (), long "example"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:57:9-10
[opt-env-conf-test] @@ -54,7 +54,7 @@
[opt-env-conf-test]      it "can complete a long switch from a double dash" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "example"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--"]
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:63:18-71
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:64:9-10
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]      it "can complete a short option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:70:18-76
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:71:9-10
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]      it "can complete a long option's dashed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:77:18-71
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:78:9-10
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:78:9-10
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]      it "can complete a short option with a separate arg" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, short 'e', completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["-e"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:87:18-76
[opt-env-conf-test] @@ -84,7 +84,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] +        (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:88:9-10
[opt-env-conf-test] @@ -85,7 +85,7 @@
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:88:9-10
[opt-env-conf-test] @@ -85,7 +85,7 @@
[opt-env-conf-test]      it "can complete a long option" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [option, long "example", completer $ listCompleter ["hi"]])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--example"]
[opt-env-conf-test]          ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:26-49
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:26-49
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:62-85
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:97:62-85
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:98:9-10
[opt-env-conf-test] @@ -95,7 +95,7 @@
[opt-env-conf-test]      it "can complete both switches of a tuple" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:100:9-10
[opt-env-conf-test] @@ -97,9 +97,7 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:100:9-10
[opt-env-conf-test] @@ -97,9 +97,9 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:26-49
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:26-49
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:62-85
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:106:62-85
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:107:9-10
[opt-env-conf-test] @@ -104,7 +104,7 @@
[opt-env-conf-test]      it "can complete both switches of a tuple, with a prefix" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--baz"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:109:9-10
[opt-env-conf-test] @@ -106,9 +106,7 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--baz"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:109:9-10
[opt-env-conf-test] @@ -106,9 +106,9 @@
[opt-env-conf-test]          ((,) <$> setting [switch (), long "bar"] <*> setting [switch (), long "baz"])
[opt-env-conf-test]          0
[opt-env-conf-test]          ["--b"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--baz"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--bar",
[opt-env-conf-test] +          "--baz"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:18-41
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:18-41
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:54-77
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:115:54-77
[opt-env-conf-test] @@ -112,7 +112,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] +        (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:116:9-10
[opt-env-conf-test] @@ -113,7 +113,7 @@
[opt-env-conf-test]      it "can complete both switches of an either" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:118:9-10
[opt-env-conf-test] @@ -115,9 +115,7 @@
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:118:9-10
[opt-env-conf-test] @@ -115,9 +115,9 @@
[opt-env-conf-test]          (setting [switch (), long "foo"] <|> setting [switch (), long "bar"])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:28-51
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting []) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:28-51
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:75-98
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting []))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:124:75-98
[opt-env-conf-test] @@ -121,7 +121,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] +        (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:125:9-10
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]      it "can complete both switches of an either wrapped in optionals" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          [ "--foo",
[opt-env-conf-test]            "--bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:127:9-10
[opt-env-conf-test] @@ -124,9 +124,7 @@
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:127:9-10
[opt-env-conf-test] @@ -124,9 +124,9 @@
[opt-env-conf-test]          (optional (setting [switch (), long "foo"]) <|> optional (setting [switch (), long "bar"]))
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test] -        [ "--foo",
[opt-env-conf-test] -          "--bar"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--foo",
[opt-env-conf-test] +          "--bar"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,7 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,10 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:134:15-16
[opt-env-conf-test] @@ -131,10 +131,10 @@
[opt-env-conf-test]      describe "commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:142:11-12
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]        it "can complete a command argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:144:11-12
[opt-env-conf-test] @@ -141,10 +141,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:152:11-12
[opt-env-conf-test] @@ -149,7 +149,7 @@
[opt-env-conf-test]        it "can complete a command argument when it's been partially provided" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["b"]
[opt-env-conf-test]            [ Completion "bar" (Just "2"),
[opt-env-conf-test]              Completion "baz" (Just "3")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:154:11-12
[opt-env-conf-test] @@ -151,9 +151,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:154:11-12
[opt-env-conf-test] @@ -151,9 +151,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:161:50-99
[opt-env-conf-test] @@ -158,7 +158,8 @@
[opt-env-conf-test]      describe "completion after a command" $ do
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e'
[opt-env-conf-test] +]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:162:11-12
[opt-env-conf-test] @@ -159,7 +159,7 @@
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:162:11-12
[opt-env-conf-test] @@ -159,7 +159,7 @@
[opt-env-conf-test]        it "can complete a command with a switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [help "ex", switch (), short 'e', long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:167:50-72
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:167:50-72
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]            [Completion "--example" (Just "ex")] -- Only the long version
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:168:11-12
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:168:11-12
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]        it "can complete a command's short switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:169:11-23
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:169:11-23
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), short 'e']])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          ["foo", "-"]
[opt-env-conf-test]            ["-e"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:174:50-77
[opt-env-conf-test] @@ -171,7 +171,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:174:50-77
[opt-env-conf-test] @@ -171,7 +171,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:175:11-12
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:175:11-12
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a single dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:176:11-23
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:176:11-23
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "-"]
[opt-env-conf-test] +          ["foo", "-"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:181:50-77
[opt-env-conf-test] @@ -178,7 +178,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:181:50-77
[opt-env-conf-test] @@ -178,7 +178,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:182:11-12
[opt-env-conf-test] @@ -179,7 +179,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:182:11-12
[opt-env-conf-test] @@ -179,7 +179,7 @@
[opt-env-conf-test]        it "can complete a command's long switch from a double dash" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:183:11-24
[opt-env-conf-test] @@ -180,7 +180,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "--"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:183:11-24
[opt-env-conf-test] @@ -180,7 +180,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [switch (), long "example"]])
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["foo", "--"]
[opt-env-conf-test] +          ["foo", "--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:188:50-103
[opt-env-conf-test] @@ -185,7 +185,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:189:11-12
[opt-env-conf-test] @@ -186,7 +186,7 @@
[opt-env-conf-test]        it "can complete a command's short option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:190:11-24
[opt-env-conf-test] @@ -187,7 +187,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "-e"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:190:11-24
[opt-env-conf-test] @@ -187,7 +187,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, short 'e', completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "-e"]
[opt-env-conf-test] +          ["foo", "-e"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting []])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:195:50-108
[opt-env-conf-test] @@ -192,7 +192,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] +          (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:196:11-12
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]        it "can complete a command's long option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:197:11-31
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "--example"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:197:11-31
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]]])
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["foo", "--example"]
[opt-env-conf-test] +          ["foo", "--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:202:26-53
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", argument])
[opt-env-conf-test] +        (filePathSetting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:202:26-53
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", argument])
[opt-env-conf-test] +        (filePathSetting [help "file arg", argument])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:203:9-10
[opt-env-conf-test] @@ -200,7 +200,7 @@
[opt-env-conf-test]      it "can complete a file argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", argument])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:209:26-64
[opt-env-conf-test] @@ -206,7 +206,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] +        (filePathSetting [help "file arg", option
[opt-env-conf-test] +])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:210:9-10
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:210:9-10
[opt-env-conf-test] @@ -207,7 +207,7 @@
[opt-env-conf-test]      it "can complete a file option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (filePathSetting [help "file arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["file arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:216:31-57
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] +        (directoryPathSetting [])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:216:31-57
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test]          0
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:217:9-10
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]      it "can complete a directory argument" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", argument])
[opt-env-conf-test] -        0
[opt-env-conf-test] +        1
[opt-env-conf-test]          []
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:223:31-68
[opt-env-conf-test] @@ -220,7 +220,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] -        (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] +        (directoryPathSetting [help "dir arg", option
[opt-env-conf-test] +])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:224:9-10
[opt-env-conf-test] @@ -221,7 +221,7 @@
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:224:9-10
[opt-env-conf-test] @@ -221,7 +221,7 @@
[opt-env-conf-test]      it "can complete a directory option" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          (directoryPathSetting [help "dir arg", option, long "file"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--file"]
[opt-env-conf-test]          ["dir arg"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:26-49
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:26-49
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:62-85
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:230:62-85
[opt-env-conf-test] @@ -227,7 +227,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test] -        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] +        ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test]          1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:231:9-10
[opt-env-conf-test] @@ -228,7 +228,7 @@
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:231:9-10
[opt-env-conf-test] @@ -228,7 +228,7 @@
[opt-env-conf-test]      it "no longer suggests a switch that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ((,) <$> setting [switch (), long "foo"] <*> setting [switch (), long "bar"])
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["--foo"]
[opt-env-conf-test]          ["--bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting []
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:238:25-76
[opt-env-conf-test] @@ -235,7 +235,8 @@
[opt-env-conf-test]      it "no longer suggests an option that has already been parsed" $
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] +            <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,7 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,7 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:239:25-76
[opt-env-conf-test] @@ -236,7 +236,8 @@
[opt-env-conf-test]        parserCompletionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test] -            <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] +            <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:240:25-49
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] -            <*> setting [switch (), long "quux"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:240:25-49
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [option, reader (str :: Reader String), long "foo"]
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test] -            <*> setting [switch (), long "quux"]
[opt-env-conf-test] +            <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        1
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:242:9-10
[opt-env-conf-test] @@ -239,7 +239,7 @@
[opt-env-conf-test]              <*> setting [option, reader (str :: Reader String), long "bar"]
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        2
[opt-env-conf-test] +        -2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:243:9-25
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] -        ["--foo", "foo"]
[opt-env-conf-test] +        []
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:243:9-25
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]              <*> setting [switch (), long "quux"]
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test] -        ["--foo", "foo"]
[opt-env-conf-test] +        ["--foo", "foo"]
[opt-env-conf-test]          [ "--bar",
[opt-env-conf-test]            "--quux"
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:244:9-10
[opt-env-conf-test] @@ -241,9 +241,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--quux"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:244:9-10
[opt-env-conf-test] @@ -241,9 +241,9 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          2
[opt-env-conf-test]          ["--foo", "foo"]
[opt-env-conf-test] -        [ "--bar",
[opt-env-conf-test] -          "--quux"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "--bar",
[opt-env-conf-test] +          "--quux"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting []
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:251:25-111
[opt-env-conf-test] @@ -248,7 +248,7 @@
[opt-env-conf-test]      it "no longer suggests an argument that has already been parsed" $
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test] -            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] +            <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:252:25-111
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        parserCompletionDescriptionTest
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test] -            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] +            <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting []
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,7 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:253:25-59
[opt-env-conf-test] @@ -250,7 +250,8 @@
[opt-env-conf-test]          ( (,,)
[opt-env-conf-test]              <$> setting [argument, reader (str :: Reader String), help "hi", completer $ listCompleter ["hi"]]
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test] -            <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test] +            <*> setting [switch (), long "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:255:9-10
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        1
[opt-env-conf-test] +        0
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test]          [ "ho",
[opt-env-conf-test]            "hu"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:255:9-10
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]              <*> setting [argument, reader (str :: Reader String), help "ho", completer $ listCompleter ["ho"]]
[opt-env-conf-test]              <*> setting [switch (), long "bar", help "hu"]
[opt-env-conf-test]          )
[opt-env-conf-test] -        1
[opt-env-conf-test] +        -1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test]          [ "ho",
[opt-env-conf-test]            "hu"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:257:9-10
[opt-env-conf-test] @@ -254,9 +254,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] -        [ "ho",
[opt-env-conf-test] -          "hu"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:257:9-10
[opt-env-conf-test] @@ -254,9 +254,9 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          1
[opt-env-conf-test]          ["foo"]
[opt-env-conf-test] -        [ "ho",
[opt-env-conf-test] -          "hu"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "ho",
[opt-env-conf-test] +          "hu"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,7 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,11 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure (),
[opt-env-conf-test] +                defaultCommand "bar"
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:264:15-16
[opt-env-conf-test] @@ -261,11 +261,10 @@
[opt-env-conf-test]      describe "commands with a default command" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                command "baz" "3" $ pure (),
[opt-env-conf-test] -                defaultCommand "bar"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                command "baz" "3" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:273:11-12
[opt-env-conf-test] @@ -270,7 +270,7 @@
[opt-env-conf-test]        it "still lists all commands when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:275:11-12
[opt-env-conf-test] @@ -272,10 +272,10 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:283:11-12
[opt-env-conf-test] @@ -280,7 +280,7 @@
[opt-env-conf-test]        it "still filters commands by prefix when there is a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["b"]
[opt-env-conf-test]            [ Completion "bar" (Just "2"),
[opt-env-conf-test]              Completion "baz" (Just "3")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:285:11-12
[opt-env-conf-test] @@ -282,9 +282,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:285:11-12
[opt-env-conf-test] @@ -282,9 +282,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            ["b"]
[opt-env-conf-test] -          [ Completion "bar" (Just "2"),
[opt-env-conf-test] -            Completion "baz" (Just "3")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "bar" (Just "2"),
[opt-env-conf-test] +            Completion "baz" (Just "3")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:45-72
[opt-env-conf-test] @@ -289,7 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:45-72
[opt-env-conf-test] @@ -289,7 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,7 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,10 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:292:15-16
[opt-env-conf-test] @@ -289,10 +289,9 @@
[opt-env-conf-test]        it "completes the default command's switch when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:297:11-12
[opt-env-conf-test] @@ -294,7 +294,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:45-72
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:45-72
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,7 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,10 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:304:15-16
[opt-env-conf-test] @@ -301,10 +301,9 @@
[opt-env-conf-test]        it "completes both commands and the default command's switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:309:11-12
[opt-env-conf-test] @@ -306,7 +306,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            "--example"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:311:11-12
[opt-env-conf-test] @@ -308,10 +308,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:45-103
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure (),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,7 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,10 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure (),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:319:15-16
[opt-env-conf-test] @@ -316,10 +316,9 @@
[opt-env-conf-test]        it "completes the default command's option when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure (),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:324:11-12
[opt-env-conf-test] @@ -321,7 +321,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:45-134
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,7 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,10 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar",
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:331:15-16
[opt-env-conf-test] @@ -328,10 +328,9 @@
[opt-env-conf-test]        it "completes the default command's option value when no command is given" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [option, long "example", reader (str :: Reader String), completer $ listCompleter ["hi"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:336:11-12
[opt-env-conf-test] @@ -333,7 +333,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:336:11-12
[opt-env-conf-test] @@ -333,7 +333,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]            ["hi"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:45-138
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test]                  command "bar" "2" $ pure "bar",
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,7 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,10 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar",
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:343:15-16
[opt-env-conf-test] @@ -340,10 +340,9 @@
[opt-env-conf-test]        it "completes the default command's argument when no command is given" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] -                command "bar" "2" $ pure "bar",
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [argument, reader (str :: Reader String), help "arg help", completer $ listCompleter ["val"]],
[opt-env-conf-test] +                command "bar" "2" $ pure "bar"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:348:11-12
[opt-env-conf-test] @@ -345,7 +345,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test]            [ "1",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,7 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,10 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "1",
[opt-env-conf-test] +            "2",
[opt-env-conf-test] +            "arg help"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:351:11-12
[opt-env-conf-test] @@ -348,10 +348,9 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Should include the default command's argument completer along with command names
[opt-env-conf-test] -          [ "1",
[opt-env-conf-test] -            "2",
[opt-env-conf-test] -            "arg help"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "1",
[opt-env-conf-test] +            "2"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:361:33-58
[opt-env-conf-test] @@ -358,7 +358,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <$> setting []
[opt-env-conf-test]                      <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:361:33-58
[opt-env-conf-test] @@ -358,7 +358,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test]                      <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:362:33-59
[opt-env-conf-test] @@ -359,7 +359,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                    <*> setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:362:33-59
[opt-env-conf-test] @@ -359,7 +359,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test]                  command "bar" "2" $ pure ((), ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,7 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,13 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:359:15-16
[opt-env-conf-test] @@ -356,13 +356,12 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [switch (), long "first"]
[opt-env-conf-test] -                    <*> setting [switch (), long "second"],
[opt-env-conf-test] -                command "bar" "2" $ pure ((), ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [switch (), long "first"]
[opt-env-conf-test] +                    <*> setting [switch (), long "second"],
[opt-env-conf-test] +                command "bar" "2" $ pure ((), ())
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:367:11-12
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test]            ["--second"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:367:11-12
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--first"]
[opt-env-conf-test]            ["--second"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:376:33-85
[opt-env-conf-test] @@ -373,7 +373,8 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:377:33-60
[opt-env-conf-test] @@ -374,7 +374,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                    <*> setting [],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:377:33-60
[opt-env-conf-test] @@ -374,7 +374,7 @@
[opt-env-conf-test]                [ command "foo" "1" $
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test]                  command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,7 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,13 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:374:15-16
[opt-env-conf-test] @@ -371,13 +371,12 @@
[opt-env-conf-test]        it "completes inside the default command after consuming its option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $
[opt-env-conf-test] -                  (,)
[opt-env-conf-test] -                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] -                command "bar" "2" $ pure ("bar", ()),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $
[opt-env-conf-test] +                  (,)
[opt-env-conf-test] +                    <$> setting [option, reader (str :: Reader String), long "name"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"],
[opt-env-conf-test] +                command "bar" "2" $ pure ("bar", ())
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:382:11-12
[opt-env-conf-test] @@ -379,7 +379,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:383:11-30
[opt-env-conf-test] @@ -380,7 +380,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--name", "hello"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "global options with commands and a default" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:383:11-30
[opt-env-conf-test] @@ -380,7 +380,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--name", "hello"]
[opt-env-conf-test] +          ["--name", "hello"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "global options with commands and a default" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:390:27-54
[opt-env-conf-test] @@ -387,7 +387,7 @@
[opt-env-conf-test]        it "completes global options and commands together" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:390:27-54
[opt-env-conf-test] @@ -387,7 +387,7 @@
[opt-env-conf-test]        it "completes global options and commands together" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:392:17-18
[opt-env-conf-test] @@ -389,10 +389,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:397:11-12
[opt-env-conf-test] @@ -394,7 +394,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "foo" (Just "1"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:399:11-12
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:407:27-54
[opt-env-conf-test] @@ -404,7 +404,7 @@
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:407:27-54
[opt-env-conf-test] @@ -404,7 +404,7 @@
[opt-env-conf-test]        it "completes commands after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ pure (),
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:409:17-18
[opt-env-conf-test] @@ -406,10 +406,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ pure (),
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ pure (),
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:414:11-12
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:414:11-12
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:416:11-12
[opt-env-conf-test] @@ -413,9 +413,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:416:11-12
[opt-env-conf-test] @@ -413,9 +413,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:423:27-54
[opt-env-conf-test] @@ -420,7 +420,7 @@
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:423:27-54
[opt-env-conf-test] @@ -420,7 +420,7 @@
[opt-env-conf-test]        it "completes the default command's options after a global option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:47-74
[opt-env-conf-test] @@ -422,7 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                [ command "foo" "1" $ setting [],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:47-74
[opt-env-conf-test] @@ -422,7 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test]                    command "bar" "2" $ pure (),
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,10 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                  command "bar" "2" $ pure (),
[opt-env-conf-test] +                  defaultCommand "foo"
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:425:17-18
[opt-env-conf-test] @@ -422,10 +422,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] -                  command "bar" "2" $ pure (),
[opt-env-conf-test] -                  defaultCommand "foo"
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "foo" "1" $ setting [switch (), long "example"],
[opt-env-conf-test] +                  command "bar" "2" $ pure ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:430:11-12
[opt-env-conf-test] @@ -427,7 +427,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:430:11-12
[opt-env-conf-test] @@ -427,7 +427,7 @@
[opt-env-conf-test]                    defaultCommand "foo"
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2"),
[opt-env-conf-test] +            "--example"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:432:11-12
[opt-env-conf-test] @@ -429,10 +429,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2"),
[opt-env-conf-test] -            "--example"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,7 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,7 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:440:37-75
[opt-env-conf-test] @@ -437,7 +437,8 @@
[opt-env-conf-test]      describe "many" $ do
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:441:11-12
[opt-env-conf-test] @@ -438,7 +438,7 @@
[opt-env-conf-test]        it "can complete repeated switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:447:37-75
[opt-env-conf-test] @@ -444,7 +444,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:448:11-12
[opt-env-conf-test] @@ -445,7 +445,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:448:11-12
[opt-env-conf-test] @@ -445,7 +445,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting []))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:454:37-75
[opt-env-conf-test] @@ -451,7 +451,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (length <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:455:11-12
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]        it "can still complete after consuming two" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:456:11-23
[opt-env-conf-test] @@ -453,7 +453,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:456:11-23
[opt-env-conf-test] @@ -453,7 +453,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (length <$> many (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          ["-v", "-v"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:466:47-61
[opt-env-conf-test] @@ -463,7 +463,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:466:47-61
[opt-env-conf-test] @@ -463,7 +463,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:463:19-20
[opt-env-conf-test] @@ -460,11 +460,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:470:11-12
[opt-env-conf-test] @@ -467,7 +467,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:470:11-12
[opt-env-conf-test] @@ -467,7 +467,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:472:11-12
[opt-env-conf-test] @@ -469,9 +469,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options after one has already been parsed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:472:11-12
[opt-env-conf-test] @@ -469,9 +469,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--include"]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "foo",
[opt-env-conf-test] +            "bar"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "can complete repeated options after one has already been parsed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:483:47-61
[opt-env-conf-test] @@ -480,7 +480,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:483:47-61
[opt-env-conf-test] @@ -480,7 +480,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:480:19-20
[opt-env-conf-test] @@ -477,11 +477,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:487:11-12
[opt-env-conf-test] @@ -484,7 +484,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,10 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "foo",
[opt-env-conf-test] +            "--include"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:488:11-12
[opt-env-conf-test] @@ -485,10 +485,9 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--include"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "foo",
[opt-env-conf-test]              "bar"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:492:11-12
[opt-env-conf-test] @@ -489,9 +489,7 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:492:11-12
[opt-env-conf-test] @@ -489,9 +489,9 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--include"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "foo",
[opt-env-conf-test] -            "bar"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "foo",
[opt-env-conf-test] +            "bar"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,7 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting []))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,7 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:499:48-86
[opt-env-conf-test] @@ -496,7 +496,8 @@
[opt-env-conf-test]      describe "some" $ do
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:500:11-12
[opt-env-conf-test] @@ -497,7 +497,7 @@
[opt-env-conf-test]        it "can complete at least one switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting []))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:506:48-86
[opt-env-conf-test] @@ -503,7 +503,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] +          (NE.length <$> someNonEmpty (setting [switch (), long "verbose"
[opt-env-conf-test] +]))
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:507:11-12
[opt-env-conf-test] @@ -504,7 +504,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:507:11-12
[opt-env-conf-test] @@ -504,7 +504,7 @@
[opt-env-conf-test]        it "can still complete after consuming one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (NE.length <$> someNonEmpty (setting [switch (), long "verbose", short 'v']))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting []
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:516:29-81
[opt-env-conf-test] @@ -513,7 +513,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:517:29-81
[opt-env-conf-test] @@ -514,7 +514,8 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:519:11-12
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--host",
[opt-env-conf-test]              "--port"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:521:11-12
[opt-env-conf-test] @@ -518,9 +518,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--host",
[opt-env-conf-test] -            "--port"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the remaining option after one is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:521:11-12
[opt-env-conf-test] @@ -518,9 +518,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--host",
[opt-env-conf-test] -            "--port"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--host",
[opt-env-conf-test] +            "--port"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the remaining option after one is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting []
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:529:29-81
[opt-env-conf-test] @@ -526,7 +526,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test] -                <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] +                <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,7 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:530:29-81
[opt-env-conf-test] @@ -527,7 +527,8 @@
[opt-env-conf-test]            ( allOrNothing $
[opt-env-conf-test]                (,)
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test] -                <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test] +                <*> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:532:11-12
[opt-env-conf-test] @@ -529,7 +529,7 @@
[opt-env-conf-test]                  <$> setting [option, reader (str :: Reader String), long "host"]
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:533:11-34
[opt-env-conf-test] @@ -530,7 +530,7 @@
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--host", "localhost"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "check" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:533:11-34
[opt-env-conf-test] @@ -530,7 +530,7 @@
[opt-env-conf-test]                  <*> setting [option, reader (str :: Reader String), long "port"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--host", "localhost"]
[opt-env-conf-test] +          ["--host", "localhost"]
[opt-env-conf-test]            ["--port"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "check" $ do
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if True then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if False then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/CompletionSpec.hs:540:25-31
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if not (null s) then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation CondFlip at test/OptEnvConf/CompletionSpec.hs:540:22-62
[opt-env-conf-test] @@ -537,7 +537,7 @@
[opt-env-conf-test]        it "completes through a checkMapEither" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test] -              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] +              (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:541:24-102
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( checkMapEither
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test] -              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:543:11-12
[opt-env-conf-test] @@ -540,7 +540,7 @@
[opt-env-conf-test]                (\s -> if null s then Left "empty" else Right s)
[opt-env-conf-test]                (setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["hello"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:550:23-50
[opt-env-conf-test] @@ -547,7 +547,7 @@
[opt-env-conf-test]        it "completes through a mapIO" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:550:23-50
[opt-env-conf-test] @@ -547,7 +547,7 @@
[opt-env-conf-test]        it "completes through a mapIO" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:552:11-12
[opt-env-conf-test] @@ -549,7 +549,7 @@
[opt-env-conf-test]            ( mapIO pure $
[opt-env-conf-test]                setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:560:27-54
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]        it "does not suggest hidden switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "visible"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:560:27-54
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]        it "does not suggest hidden switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "visible"]
[opt-env-conf-test] +              <$> setting [switch (), long "visible"]
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:561:27-61
[opt-env-conf-test] @@ -558,7 +558,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test] -              <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [switch (), long "secret"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:563:11-12
[opt-env-conf-test] @@ -560,7 +560,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "visible"]
[opt-env-conf-test]                <*> setting [switch (), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--visible"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,7 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,7 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:570:27-82
[opt-env-conf-test] @@ -567,7 +567,8 @@
[opt-env-conf-test]        it "does not suggest hidden options" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:571:27-89
[opt-env-conf-test] @@ -568,7 +568,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "secret"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:573:11-12
[opt-env-conf-test] @@ -570,7 +570,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "visible"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "secret", hidden]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--visible"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:581:27-54
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]        it "does not error on env-only settings combined with arg settings" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:581:27-54
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]        it "does not error on env-only settings combined with arg settings" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:582:27-72
[opt-env-conf-test] @@ -579,7 +579,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:582:27-72
[opt-env-conf-test] @@ -579,7 +579,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test] +              <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:584:11-12
[opt-env-conf-test] @@ -581,7 +581,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [reader (str :: Reader String), env "MY_VAR"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CompletionSpec.hs:597:23-28
[opt-env-conf-test] @@ -594,7 +594,7 @@
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test]                [ help "enable feature",
[opt-env-conf-test]                  name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,7 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,10 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:595:15-16
[opt-env-conf-test] @@ -592,10 +592,9 @@
[opt-env-conf-test]        it "completes the documented dummy flag" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:600:11-12
[opt-env-conf-test] @@ -597,7 +597,7 @@
[opt-env-conf-test]                  value False
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [Completion "--(enable|disable)-feature" (Just "enable feature")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/CompletionSpec.hs:609:23-28
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test]                [ help "enable feature",
[opt-env-conf-test]                  name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,7 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,10 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:607:15-16
[opt-env-conf-test] @@ -604,10 +604,9 @@
[opt-env-conf-test]        it "filters the documented flag by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( enableDisableSwitch
[opt-env-conf-test] -              [ help "enable feature",
[opt-env-conf-test] -                name "feature",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "enable feature",
[opt-env-conf-test] +                name "feature"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:612:11-12
[opt-env-conf-test] @@ -609,7 +609,7 @@
[opt-env-conf-test]                  value False
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--(e"]
[opt-env-conf-test]            [Completion "--(enable|disable)-feature" (Just "enable feature")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:25-50
[opt-env-conf-test] @@ -617,7 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ setting [],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:25-50
[opt-env-conf-test] @@ -617,7 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:621:25-49
[opt-env-conf-test] @@ -618,7 +618,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:621:25-49
[opt-env-conf-test] @@ -618,7 +618,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:622:25-50
[opt-env-conf-test] @@ -619,7 +619,7 @@
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] +                setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:622:25-50
[opt-env-conf-test] @@ -619,7 +619,7 @@
[opt-env-conf-test]            ( choice
[opt-env-conf-test]                [ setting [switch (), long "alpha"],
[opt-env-conf-test]                  setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] +                setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,7 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,10 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch (), long "gamma"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:620:15-16
[opt-env-conf-test] @@ -617,10 +617,10 @@
[opt-env-conf-test]        it "completes across all choices" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( choice
[opt-env-conf-test] -              [ setting [switch (), long "alpha"],
[opt-env-conf-test] -                setting [switch (), long "beta"],
[opt-env-conf-test] -                setting [switch (), long "gamma"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ setting [switch (), long "alpha"],
[opt-env-conf-test] +                setting [switch (), long "beta"],
[opt-env-conf-test] +                setting [switch ()
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:625:11-12
[opt-env-conf-test] @@ -622,7 +622,7 @@
[opt-env-conf-test]                  setting [switch (), long "gamma"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--alpha",
[opt-env-conf-test]              "--beta",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--alpha",
[opt-env-conf-test] +            "--beta",
[opt-env-conf-test] +            "--gamma"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:627:11-12
[opt-env-conf-test] @@ -624,10 +624,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--alpha",
[opt-env-conf-test] -            "--beta",
[opt-env-conf-test] -            "--gamma"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--alpha",
[opt-env-conf-test] +            "--beta"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:123-139
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:123-139
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:635:44-140
[opt-env-conf-test] @@ -632,7 +632,8 @@
[opt-env-conf-test]      describe "withDefault" $ do
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"
[opt-env-conf-test] +])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:636:11-12
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:636:11-12
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]        it "completes the underlying parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:638:11-12
[opt-env-conf-test] @@ -635,9 +635,7 @@
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:638:11-12
[opt-env-conf-test] @@ -635,9 +635,9 @@
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice", "bob"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "alice",
[opt-env-conf-test] +            "bob"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:644:44-96
[opt-env-conf-test] @@ -641,7 +641,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +          (withDefault "default" $ setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:645:11-12
[opt-env-conf-test] @@ -642,7 +642,7 @@
[opt-env-conf-test]        it "still suggests the option when it has a default" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (withDefault "default" $ setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--name"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:654:21-22
[opt-env-conf-test] @@ -651,9 +651,7 @@
[opt-env-conf-test]              commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:654:21-22
[opt-env-conf-test] @@ -651,9 +651,9 @@
[opt-env-conf-test]              commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +                    ],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:652:15-16
[opt-env-conf-test] @@ -649,13 +649,7 @@
[opt-env-conf-test]      describe "nested commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:652:15-16
[opt-env-conf-test] @@ -649,13 +649,13 @@
[opt-env-conf-test]      describe "nested commands" $ do
[opt-env-conf-test]        let p =
[opt-env-conf-test]              commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "top" "top-level" $
[opt-env-conf-test] +                  commands
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ pure (),
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +                    ],
[opt-env-conf-test] +                command "other" "other" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:663:11-12
[opt-env-conf-test] @@ -660,7 +660,7 @@
[opt-env-conf-test]        it "completes top-level commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "top" (Just "top-level"),
[opt-env-conf-test]              Completion "other" (Just "other")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:665:11-12
[opt-env-conf-test] @@ -662,9 +662,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] -            Completion "other" (Just "other")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:665:11-12
[opt-env-conf-test] @@ -662,9 +662,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] -            Completion "other" (Just "other")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "top" (Just "top-level"),
[opt-env-conf-test] +            Completion "other" (Just "other")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:672:11-12
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b")
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:672:11-12
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]        it "completes sub-commands after selecting a top-level command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:674:11-12
[opt-env-conf-test] @@ -671,9 +671,7 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:674:11-12
[opt-env-conf-test] @@ -671,9 +671,9 @@
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:681:11-12
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:681:11-12
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]        it "filters sub-commands by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:682:11-27
[opt-env-conf-test] @@ -679,7 +679,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["top", "sub-a"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:682:11-27
[opt-env-conf-test] @@ -679,7 +679,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            p
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["top", "sub-a"]
[opt-env-conf-test] +          ["top", "sub-a"]
[opt-env-conf-test]            [Completion "sub-a" (Just "sub a")]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:57-81
[opt-env-conf-test] @@ -687,7 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [],
[opt-env-conf-test]                        command "sub-b" "sub b" $ pure (),
[opt-env-conf-test]                        defaultCommand "sub-a"
[opt-env-conf-test]                      ],
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:57-81
[opt-env-conf-test] @@ -687,7 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test]                        command "sub-b" "sub b" $ pure (),
[opt-env-conf-test]                        defaultCommand "sub-a"
[opt-env-conf-test]                      ],
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,10 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] +                      defaultCommand "sub-a"
[opt-env-conf-test] +                    ],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:690:21-22
[opt-env-conf-test] @@ -687,10 +687,9 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "top" "top-level" $
[opt-env-conf-test]                    commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure ()
[opt-env-conf-test] +],
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:688:15-16
[opt-env-conf-test] @@ -685,14 +685,7 @@
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:688:15-16
[opt-env-conf-test] @@ -685,14 +685,14 @@
[opt-env-conf-test]        it "completes nested default commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "top" "top-level" $
[opt-env-conf-test] -                  commands
[opt-env-conf-test] -                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] -                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] -                      defaultCommand "sub-a"
[opt-env-conf-test] -                    ],
[opt-env-conf-test] -                command "other" "other" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "top" "top-level" $
[opt-env-conf-test] +                  commands
[opt-env-conf-test] +                    [ command "sub-a" "sub a" $ setting [switch (), long "flag"],
[opt-env-conf-test] +                      command "sub-b" "sub b" $ pure (),
[opt-env-conf-test] +                      defaultCommand "sub-a"
[opt-env-conf-test] +                    ],
[opt-env-conf-test] +                command "other" "other" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:697:11-12
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:697:11-12
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]                  command "other" "other" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test]            [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test]              Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] +            "--flag"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:699:11-12
[opt-env-conf-test] @@ -696,10 +696,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["top"]
[opt-env-conf-test] -          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] -            Completion "sub-b" (Just "sub b"),
[opt-env-conf-test] -            "--flag"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "sub-a" (Just "sub a"),
[opt-env-conf-test] +            Completion "sub-b" (Just "sub b")
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands merged via alternative" $ do
[opt-env-conf-test]        it "completes commands from both sides of an alternative" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:710:11-12
[opt-env-conf-test] @@ -707,7 +707,7 @@
[opt-env-conf-test]            ( commands [command "foo" "1" $ pure ()]
[opt-env-conf-test]                <|> commands [command "bar" "2" $ pure ()]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:712:11-12
[opt-env-conf-test] @@ -709,9 +709,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "arguments after double dash" $ do
[opt-env-conf-test]        -- A bare -- is consumed as the argument value "--" when it's
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:712:11-12
[opt-env-conf-test] @@ -709,9 +709,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "arguments after double dash" $ do
[opt-env-conf-test]        -- A bare -- is consumed as the argument value "--" when it's
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:88-106
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter []])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:88-106
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:721:20-107
[opt-env-conf-test] @@ -718,7 +718,8 @@
[opt-env-conf-test]        -- the only argument remaining, so completion sees nothing left.
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1"
[opt-env-conf-test] +])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:722:11-12
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:722:11-12
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]        it "consumes -- as the argument value" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:733:27-54
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]        it "suggests the switch even after -- (known bug)" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:733:27-54
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]        it "suggests the switch even after -- (known bug)" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:95-113
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter []]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:95-113
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:734:27-114
[opt-env-conf-test] @@ -731,7 +731,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:736:11-12
[opt-env-conf-test] @@ -733,7 +733,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:737:11-23
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--", "fi"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "mixed arguments and options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:737:11-23
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file1", "file2"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--", "fi"]
[opt-env-conf-test] +          ["--", "fi"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "mixed arguments and options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:744:27-105
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]        it "can complete an option after a positional argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:745:27-54
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:745:27-54
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:747:11-12
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["input"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:747:11-12
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["input"]]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["input"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:754:27-54
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]        it "can complete a positional after an option" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:754:27-54
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]        it "can complete a positional after an option" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:755:27-119
[opt-env-conf-test] @@ -752,7 +752,7 @@
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:757:11-12
[opt-env-conf-test] @@ -754,7 +754,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:757:11-12
[opt-env-conf-test] @@ -754,7 +754,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), help "file", completer $ listCompleter ["output"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:768:27-103
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]        it "completes both arguments when none have been typed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:769:27-103
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:771:11-12
[opt-env-conf-test] @@ -768,7 +768,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "src",
[opt-env-conf-test]              "dst"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:773:11-12
[opt-env-conf-test] @@ -770,9 +770,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "src",
[opt-env-conf-test] -            "dst"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:773:11-12
[opt-env-conf-test] @@ -770,9 +770,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "src",
[opt-env-conf-test] -            "dst"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "src",
[opt-env-conf-test] +            "dst"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:780:27-103
[opt-env-conf-test] @@ -777,7 +777,7 @@
[opt-env-conf-test]        it "completes the second argument after the first" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:781:27-103
[opt-env-conf-test] @@ -778,7 +778,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:783:11-12
[opt-env-conf-test] @@ -780,7 +780,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["something"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:783:11-12
[opt-env-conf-test] @@ -780,7 +780,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["something"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:791:11-12
[opt-env-conf-test] @@ -788,7 +788,7 @@
[opt-env-conf-test]        it "produces no completions for empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (empty :: Parser ())
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:799:11-12
[opt-env-conf-test] @@ -796,7 +796,7 @@
[opt-env-conf-test]        it "produces no completions for pure" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (pure () :: Parser ())
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:810:33-111
[opt-env-conf-test] @@ -807,7 +807,7 @@
[opt-env-conf-test]        it "completes through a select" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test] -              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] +              (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:811:34-112
[opt-env-conf-test] @@ -808,7 +808,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( select
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test] -              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test] +              (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:813:11-12
[opt-env-conf-test] @@ -810,7 +810,7 @@
[opt-env-conf-test]                (Left <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["hello"]])
[opt-env-conf-test]                (const <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["world"]])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "hello",
[opt-env-conf-test]              "world"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:815:11-12
[opt-env-conf-test] @@ -812,9 +812,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "hello",
[opt-env-conf-test] -            "world"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withConfig" $ do
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:815:11-12
[opt-env-conf-test] @@ -812,9 +812,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "hello",
[opt-env-conf-test] -            "world"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "hello",
[opt-env-conf-test] +            "world"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "withConfig" $ do
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:823:23-50
[opt-env-conf-test] @@ -820,7 +820,7 @@
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:823:23-50
[opt-env-conf-test] @@ -820,7 +820,7 @@
[opt-env-conf-test]        it "completes the main parser through withConfig" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test] -              setting [switch (), long "example"]
[opt-env-conf-test] +              setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:825:11-12
[opt-env-conf-test] @@ -822,7 +822,7 @@
[opt-env-conf-test]            ( withConfig (pure Nothing) $
[opt-env-conf-test]                setting [switch (), long "example"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--example"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:832:35-137
[opt-env-conf-test] @@ -829,7 +829,7 @@
[opt-env-conf-test]        it "completes the config file option together with the main parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:833:24-51
[opt-env-conf-test] @@ -830,7 +830,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:833:24-51
[opt-env-conf-test] @@ -830,7 +830,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:835:11-12
[opt-env-conf-test] @@ -832,7 +832,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:838:11-12
[opt-env-conf-test] @@ -835,9 +835,7 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--config-file"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:838:11-12
[opt-env-conf-test] @@ -835,9 +835,9 @@
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            -- Main parser completions come first (p2), then config parser completions (p1)
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--config-file"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "--config-file"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:845:35-137
[opt-env-conf-test] @@ -842,7 +842,7 @@
[opt-env-conf-test]        it "completes the config file value along with main parser suggestions" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:846:24-51
[opt-env-conf-test] @@ -843,7 +843,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:846:24-51
[opt-env-conf-test] @@ -843,7 +843,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:848:11-12
[opt-env-conf-test] @@ -845,7 +845,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:848:11-12
[opt-env-conf-test] @@ -845,7 +845,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:852:11-12
[opt-env-conf-test] @@ -849,9 +849,7 @@
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "config.yaml"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:852:11-12
[opt-env-conf-test] @@ -849,9 +849,9 @@
[opt-env-conf-test]            ["--config-file"]
[opt-env-conf-test]            -- The main parser (p2) still suggests --verbose since it hasn't
[opt-env-conf-test]            -- consumed anything, and the config parser (p1) offers the completer.
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "config.yaml"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "config.yaml"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:859:35-137
[opt-env-conf-test] @@ -856,7 +856,7 @@
[opt-env-conf-test]        it "completes the main parser after the config option is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test] -              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] +              (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:860:24-51
[opt-env-conf-test] @@ -857,7 +857,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:860:24-51
[opt-env-conf-test] @@ -857,7 +857,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( withConfig
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test] -              (setting [switch (), long "verbose"])
[opt-env-conf-test] +              (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:862:11-12
[opt-env-conf-test] @@ -859,7 +859,7 @@
[opt-env-conf-test]                (Nothing <$ setting [option, reader (str :: Reader String), long "config-file", completer $ listCompleter ["config.yaml"]])
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:863:11-43
[opt-env-conf-test] @@ -860,7 +860,7 @@
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--config-file", "config.yaml"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:863:11-43
[opt-env-conf-test] @@ -860,7 +860,7 @@
[opt-env-conf-test]                (setting [switch (), long "verbose"])
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--config-file", "config.yaml"]
[opt-env-conf-test] +          ["--config-file", "config.yaml"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:869:31-58
[opt-env-conf-test] @@ -866,7 +866,7 @@
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] +          (optional $ setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:869:31-58
[opt-env-conf-test] @@ -866,7 +866,7 @@
[opt-env-conf-test]      describe "optional" $ do
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] +          (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:870:11-12
[opt-env-conf-test] @@ -867,7 +867,7 @@
[opt-env-conf-test]        it "completes through an optional parser" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (optional $ setting [switch (), long "verbose"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:877:37-126
[opt-env-conf-test] @@ -874,7 +874,7 @@
[opt-env-conf-test]        it "completes an optional with an applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:878:27-54
[opt-env-conf-test] @@ -875,7 +875,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:878:27-54
[opt-env-conf-test] @@ -875,7 +875,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:880:11-12
[opt-env-conf-test] @@ -877,7 +877,7 @@
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["alice"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:882:11-12
[opt-env-conf-test] @@ -879,9 +879,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:882:11-12
[opt-env-conf-test] @@ -879,9 +879,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,7 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,7 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:889:37-89
[opt-env-conf-test] @@ -886,7 +886,8 @@
[opt-env-conf-test]        it "completes the second part when the optional is skipped" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:890:27-54
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:890:27-54
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:892:11-12
[opt-env-conf-test] @@ -889,7 +889,7 @@
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "name"])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:894:11-12
[opt-env-conf-test] @@ -891,9 +891,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with other parsers" $ do
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:894:11-12
[opt-env-conf-test] @@ -891,9 +891,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with other parsers" $ do
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:902:33-123
[opt-env-conf-test] @@ -899,7 +899,7 @@
[opt-env-conf-test]        it "completes both many and a following switch" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:903:27-54
[opt-env-conf-test] @@ -900,7 +900,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:903:27-54
[opt-env-conf-test] @@ -900,7 +900,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:905:11-12
[opt-env-conf-test] @@ -902,7 +902,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:907:11-12
[opt-env-conf-test] @@ -904,9 +904,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:907:11-12
[opt-env-conf-test] @@ -904,9 +904,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:914:33-123
[opt-env-conf-test] @@ -911,7 +911,7 @@
[opt-env-conf-test]        it "completes both after consuming one many-option" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] +              <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:915:27-54
[opt-env-conf-test] @@ -912,7 +912,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:915:27-54
[opt-env-conf-test] @@ -912,7 +912,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:917:11-12
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]                <$> many (setting [option, reader (str :: Reader String), long "include", completer $ listCompleter ["foo"]])
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:918:11-31
[opt-env-conf-test] @@ -915,7 +915,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--include", "foo"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:918:11-31
[opt-env-conf-test] @@ -915,7 +915,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["--include", "foo"]
[opt-env-conf-test] +          ["--include", "foo"]
[opt-env-conf-test]            [ "--include",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:919:11-12
[opt-env-conf-test] @@ -916,9 +916,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:919:11-12
[opt-env-conf-test] @@ -916,9 +916,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["--include", "foo"]
[opt-env-conf-test] -          [ "--include",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--include",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,7 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,7 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:926:33-71
[opt-env-conf-test] @@ -923,7 +923,8 @@
[opt-env-conf-test]        it "completes many switches combined with a command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:928:17-18
[opt-env-conf-test] @@ -925,9 +925,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:928:17-18
[opt-env-conf-test] @@ -925,9 +925,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "run" "run it" $ pure (),
[opt-env-conf-test] +                  command "build" "build it" $ pure ()
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:932:11-12
[opt-env-conf-test] @@ -929,7 +929,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:934:11-12
[opt-env-conf-test] @@ -931,10 +931,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,7 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,7 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:942:33-71
[opt-env-conf-test] @@ -939,7 +939,8 @@
[opt-env-conf-test]        it "completes commands after consuming many switches" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <$> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test]                  [ command "run" "run it" $ pure (),
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:944:17-18
[opt-env-conf-test] @@ -941,9 +941,7 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:944:17-18
[opt-env-conf-test] @@ -941,9 +941,9 @@
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> commands
[opt-env-conf-test] -                [ command "run" "run it" $ pure (),
[opt-env-conf-test] -                  command "build" "build it" $ pure ()
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ command "run" "run it" $ pure (),
[opt-env-conf-test] +                  command "build" "build it" $ pure ()
[opt-env-conf-test] +                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:948:11-12
[opt-env-conf-test] @@ -945,7 +945,7 @@
[opt-env-conf-test]                    command "build" "build it" $ pure ()
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:949:11-23
[opt-env-conf-test] @@ -946,7 +946,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test]              Completion "build" (Just "build it")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:949:11-23
[opt-env-conf-test] @@ -946,7 +946,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["-v", "-v"]
[opt-env-conf-test] +          ["-v", "-v"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              Completion "run" (Just "run it"),
[opt-env-conf-test]              Completion "build" (Just "build it")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:950:11-12
[opt-env-conf-test] @@ -947,10 +947,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["-v", "-v"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            Completion "run" (Just "run it"),
[opt-env-conf-test] -            Completion "build" (Just "build it")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            Completion "run" (Just "run it"),
[opt-env-conf-test] +            Completion "build" (Just "build it")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "folded short switches" $ do
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:959:27-49
[opt-env-conf-test] @@ -956,7 +956,7 @@
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:959:27-49
[opt-env-conf-test] @@ -956,7 +956,7 @@
[opt-env-conf-test]        it "can complete after a folded short switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:960:27-49
[opt-env-conf-test] @@ -957,7 +957,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:960:27-49
[opt-env-conf-test] @@ -957,7 +957,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:962:11-12
[opt-env-conf-test] @@ -959,7 +959,7 @@
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test]            ["-n"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:962:11-12
[opt-env-conf-test] @@ -959,7 +959,7 @@
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-v"]
[opt-env-conf-test]            ["-n"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:969:27-49
[opt-env-conf-test] @@ -966,7 +966,7 @@
[opt-env-conf-test]        it "no longer suggests a switch consumed via folding" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:969:27-49
[opt-env-conf-test] @@ -966,7 +966,7 @@
[opt-env-conf-test]        it "no longer suggests a switch consumed via folding" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), short 'v']
[opt-env-conf-test] +              <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:970:27-49
[opt-env-conf-test] @@ -967,7 +967,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:970:27-49
[opt-env-conf-test] @@ -967,7 +967,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test] -              <*> setting [switch (), short 'n']
[opt-env-conf-test] +              <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:971:27-49
[opt-env-conf-test] @@ -968,7 +968,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test] -              <*> setting [switch (), short 'x']
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:971:27-49
[opt-env-conf-test] @@ -968,7 +968,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), short 'v']
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test] -              <*> setting [switch (), short 'x']
[opt-env-conf-test] +              <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:973:11-12
[opt-env-conf-test] @@ -970,7 +970,7 @@
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test]            ["-x"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:973:11-12
[opt-env-conf-test] @@ -970,7 +970,7 @@
[opt-env-conf-test]                <*> setting [switch (), short 'n']
[opt-env-conf-test]                <*> setting [switch (), short 'x']
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-vn"]
[opt-env-conf-test]            ["-x"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,7 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,7 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:981:27-77
[opt-env-conf-test] @@ -978,7 +978,8 @@
[opt-env-conf-test]        it "completes after a short option consumed in shorthand" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String)
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:982:27-54
[opt-env-conf-test] @@ -979,7 +979,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:982:27-54
[opt-env-conf-test] @@ -979,7 +979,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test] -              <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:984:11-12
[opt-env-conf-test] @@ -981,7 +981,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:984:11-12
[opt-env-conf-test] @@ -981,7 +981,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), short 'f']
[opt-env-conf-test]                <*> setting [switch (), long "verbose"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["-ffoo.txt"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,7 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,7 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:992:37-91
[opt-env-conf-test] @@ -989,7 +989,8 @@
[opt-env-conf-test]        it "completes through optional + many + applicative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:993:33-71
[opt-env-conf-test] @@ -990,7 +990,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:994:27-108
[opt-env-conf-test] @@ -991,7 +991,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:996:11-12
[opt-env-conf-test] @@ -993,7 +993,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "--verbose",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,10 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "--verbose",
[opt-env-conf-test] +            "file.txt"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:998:11-12
[opt-env-conf-test] @@ -995,10 +995,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,7 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,7 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1006:37-91
[opt-env-conf-test] @@ -1003,7 +1003,8 @@
[opt-env-conf-test]        it "completes correctly after all optional+many consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] +              <$> optional (setting [option, reader (str :: Reader String)
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1007:33-71
[opt-env-conf-test] @@ -1004,7 +1004,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test] -              <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] +              <*> many (setting [switch (), long "verbose"
[opt-env-conf-test] +])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1008:27-108
[opt-env-conf-test] @@ -1005,7 +1005,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> optional (setting [option, reader (str :: Reader String), long "config"])
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1010:11-12
[opt-env-conf-test] @@ -1007,7 +1007,7 @@
[opt-env-conf-test]                <*> many (setting [switch (), long "verbose", short 'v'])
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--config",
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,10 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "foo",
[opt-env-conf-test] +            "--verbose"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1011:11-12
[opt-env-conf-test] @@ -1008,10 +1008,9 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--config",
[opt-env-conf-test] -            "foo",
[opt-env-conf-test] -            "--verbose"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--config",
[opt-env-conf-test] +            "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "file.txt"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1015:11-12
[opt-env-conf-test] @@ -1012,9 +1012,7 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with options inside" $ do
[opt-env-conf-test]        it "completes a command's many options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1015:11-12
[opt-env-conf-test] @@ -1012,9 +1012,9 @@
[opt-env-conf-test]              "foo",
[opt-env-conf-test]              "--verbose"
[opt-env-conf-test]            ]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "file.txt"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "file.txt"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with options inside" $ do
[opt-env-conf-test]        it "completes a command's many options" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1024:33-119
[opt-env-conf-test] @@ -1021,7 +1021,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1027:11-12
[opt-env-conf-test] @@ -1024,7 +1024,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1028:11-27
[opt-env-conf-test] @@ -1025,7 +1025,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--arg"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes a command's many options after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1028:11-27
[opt-env-conf-test] @@ -1025,7 +1025,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--arg"]
[opt-env-conf-test] +          ["run", "--arg"]
[opt-env-conf-test]            ["val"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "completes a command's many options after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1035:33-119
[opt-env-conf-test] @@ -1032,7 +1032,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test] -                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test] +                  many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1038:11-12
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]                    many (setting [option, reader (str :: Reader String), long "arg", completer $ listCompleter ["val"]])
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "run",
[opt-env-conf-test]              "--arg",
[opt-env-conf-test]              "val"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,10 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "run",
[opt-env-conf-test] +            "--arg",
[opt-env-conf-test] +            "val"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1039:11-12
[opt-env-conf-test] @@ -1036,10 +1036,9 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "run",
[opt-env-conf-test] -            "--arg",
[opt-env-conf-test] -            "val"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "run",
[opt-env-conf-test] +            "--arg"
[opt-env-conf-test] +]
[opt-env-conf-test]            ["--arg"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "multiple commands with shared options" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:45-70
[opt-env-conf-test] @@ -1046,7 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:45-70
[opt-env-conf-test] @@ -1046,7 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1050:45-69
[opt-env-conf-test] @@ -1047,7 +1047,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1050:45-69
[opt-env-conf-test] @@ -1047,7 +1047,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:15-16
[opt-env-conf-test] @@ -1046,9 +1046,7 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1049:15-16
[opt-env-conf-test] @@ -1046,9 +1046,9 @@
[opt-env-conf-test]        it "completes options in the selected command only" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1053:11-12
[opt-env-conf-test] @@ -1050,7 +1050,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1053:11-12
[opt-env-conf-test] @@ -1050,7 +1050,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:45-70
[opt-env-conf-test] @@ -1057,7 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:45-70
[opt-env-conf-test] @@ -1057,7 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1061:45-69
[opt-env-conf-test] @@ -1058,7 +1058,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1061:45-69
[opt-env-conf-test] @@ -1058,7 +1058,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:15-16
[opt-env-conf-test] @@ -1057,9 +1057,7 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1060:15-16
[opt-env-conf-test] @@ -1057,9 +1057,9 @@
[opt-env-conf-test]        it "does not leak options from other commands" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] -                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ setting [switch (), long "alpha"],
[opt-env-conf-test] +                command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1064:11-12
[opt-env-conf-test] @@ -1061,7 +1061,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]            ["--beta"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1064:11-12
[opt-env-conf-test] @@ -1061,7 +1061,7 @@
[opt-env-conf-test]                  command "bar" "2" $ setting [switch (), long "beta"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]            ["--beta"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1075:33-56
[opt-env-conf-test] @@ -1072,7 +1072,7 @@
[opt-env-conf-test]        let failingP = (empty :: Parser ()) *> pure ()
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] +          (failingP <|> setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1075:33-56
[opt-env-conf-test] @@ -1072,7 +1072,7 @@
[opt-env-conf-test]        let failingP = (empty :: Parser ()) *> pure ()
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] +          (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1076:11-12
[opt-env-conf-test] @@ -1073,7 +1073,7 @@
[opt-env-conf-test]        it "restores state when first branch fails in an alternative" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (failingP <|> setting [switch (), long "foo"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1082:20-43
[opt-env-conf-test] @@ -1079,7 +1079,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] +          (setting [] <|> failingP)
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1082:20-43
[opt-env-conf-test] @@ -1079,7 +1079,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] +          (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1083:11-12
[opt-env-conf-test] @@ -1080,7 +1080,7 @@
[opt-env-conf-test]        it "returns first branch completions when second branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [switch (), long "foo"] <|> failingP)
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1090:11-12
[opt-env-conf-test] @@ -1087,7 +1087,7 @@
[opt-env-conf-test]        it "returns no completions when both alternatives fail" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (failingP <|> failingP)
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1097:66-89
[opt-env-conf-test] @@ -1094,7 +1094,7 @@
[opt-env-conf-test]      describe "applicative branch failures" $ do
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] +          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1097:66-89
[opt-env-conf-test] @@ -1094,7 +1094,7 @@
[opt-env-conf-test]      describe "applicative branch failures" $ do
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] +          ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1098:11-12
[opt-env-conf-test] @@ -1095,7 +1095,7 @@
[opt-env-conf-test]        it "returns nothing when first applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ((,) <$> ((empty :: Parser ()) *> pure ()) <*> setting [switch (), long "foo"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1104:28-51
[opt-env-conf-test] @@ -1101,7 +1101,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] +          ((,) <$> setting [] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1104:28-51
[opt-env-conf-test] @@ -1101,7 +1101,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] +          ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1105:11-12
[opt-env-conf-test] @@ -1102,7 +1102,7 @@
[opt-env-conf-test]        it "returns nothing when second applicative branch fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ((,) <$> setting [switch (), long "foo"] <*> ((empty :: Parser String) *> pure ("" :: String)))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1113:11-12
[opt-env-conf-test] @@ -1110,7 +1110,7 @@
[opt-env-conf-test]        it "handles many where the inner parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many ((empty :: Parser ()) *> pure ()))
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1120:11-12
[opt-env-conf-test] @@ -1117,7 +1117,7 @@
[opt-env-conf-test]        it "returns first iteration completions when recursive call fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many (commands [command "foo" "1" $ pure ()]))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "foo" (Just "1")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1120:11-12
[opt-env-conf-test] @@ -1117,7 +1117,7 @@
[opt-env-conf-test]        it "returns first iteration completions when recursive call fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (many (commands [command "foo" "1" $ pure ()]))
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]            [Completion "foo" (Just "1")]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1127:21-79
[opt-env-conf-test] @@ -1124,7 +1124,7 @@
[opt-env-conf-test]      describe "command not found" $ do
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] +          (commands [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1127:21-79
[opt-env-conf-test] @@ -1124,7 +1124,7 @@
[opt-env-conf-test]      describe "command not found" $ do
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] +          (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1128:11-12
[opt-env-conf-test] @@ -1125,7 +1125,7 @@
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1128:11-12
[opt-env-conf-test] @@ -1125,7 +1125,7 @@
[opt-env-conf-test]        it "returns no completions for an unknown command" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (commands [command "foo" "1" $ pure (), command "bar" "2" $ pure ()])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["unknown"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1136:27-54
[opt-env-conf-test] @@ -1133,7 +1133,7 @@
[opt-env-conf-test]        it "offers the argument completer at the end after a switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1136:27-54
[opt-env-conf-test] @@ -1133,7 +1133,7 @@
[opt-env-conf-test]        it "offers the argument completer at the end after a switch is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1137:27-104
[opt-env-conf-test] @@ -1134,7 +1134,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1139:11-12
[opt-env-conf-test] @@ -1136,7 +1136,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1139:11-12
[opt-env-conf-test] @@ -1136,7 +1136,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]            ["file"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1146:27-52
[opt-env-conf-test] @@ -1143,7 +1143,7 @@
[opt-env-conf-test]        it "does not offer option completer when not at end of args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), long "other"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1146:27-52
[opt-env-conf-test] @@ -1143,7 +1143,7 @@
[opt-env-conf-test]        it "does not offer option completer when not at end of args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test] -              <$> setting [switch (), long "other"]
[opt-env-conf-test] +              <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1147:27-114
[opt-env-conf-test] @@ -1144,7 +1144,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1148:27-52
[opt-env-conf-test] @@ -1145,7 +1145,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] -              <*> setting [switch (), long "extra"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1148:27-52
[opt-env-conf-test] @@ -1145,7 +1145,7 @@
[opt-env-conf-test]            ( (,,)
[opt-env-conf-test]                <$> setting [switch (), long "other"]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test] -              <*> setting [switch (), long "extra"]
[opt-env-conf-test] +              <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1150:11-12
[opt-env-conf-test] @@ -1147,7 +1147,7 @@
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "name", completer $ listCompleter ["val"]]
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            [ "--name",
[opt-env-conf-test]              "--other",
[opt-env-conf-test]              "--extra"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,10 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--other",
[opt-env-conf-test] +            "--extra"
[opt-env-conf-test] +          ]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1151:11-12
[opt-env-conf-test] @@ -1148,10 +1148,9 @@
[opt-env-conf-test]                <*> setting [switch (), long "extra"]
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          [ "--name",
[opt-env-conf-test] -            "--other",
[opt-env-conf-test] -            "--extra"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--name",
[opt-env-conf-test] +            "--other"
[opt-env-conf-test] +]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "option with different dashed in args" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1161:27-121
[opt-env-conf-test] @@ -1158,7 +1158,7 @@
[opt-env-conf-test]        it "does not suggest an option when a different dashed is in the args" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] +              <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1162:27-120
[opt-env-conf-test] @@ -1159,7 +1159,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test] -              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test] +              <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1164:11-12
[opt-env-conf-test] @@ -1161,7 +1161,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test]            ["data.csv"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1164:11-12
[opt-env-conf-test] @@ -1161,7 +1161,7 @@
[opt-env-conf-test]                <$> setting [option, reader (str :: Reader String), long "output", completer $ listCompleter ["file.txt"]]
[opt-env-conf-test]                <*> setting [option, reader (str :: Reader String), long "input", completer $ listCompleter ["data.csv"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--input"]
[opt-env-conf-test]            ["data.csv"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:53-94
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [] <*> emptyS,
[opt-env-conf-test]                  command "bar" "2" $ pure ("", ""),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:53-94
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test]                  command "bar" "2" $ pure ("", ""),
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,7 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,10 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] +                defaultCommand "foo"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1173:15-16
[opt-env-conf-test] @@ -1170,10 +1170,9 @@
[opt-env-conf-test]        it "falls back to explicit commands when default command parser fails" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] -                command "bar" "2" $ pure ("", ""),
[opt-env-conf-test] -                defaultCommand "foo"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "foo" "1" $ (,) <$> setting [argument, reader (str :: Reader String)] <*> emptyS,
[opt-env-conf-test] +                command "bar" "2" $ pure ("", "")
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1178:11-12
[opt-env-conf-test] @@ -1175,7 +1175,7 @@
[opt-env-conf-test]                  defaultCommand "foo"
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            []
[opt-env-conf-test]            [ Completion "foo" (Just "1"),
[opt-env-conf-test]              Completion "bar" (Just "2")
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1180:11-12
[opt-env-conf-test] @@ -1177,9 +1177,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "prefix filtering" $ do
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1180:11-12
[opt-env-conf-test] @@ -1177,9 +1177,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            []
[opt-env-conf-test] -          [ Completion "foo" (Just "1"),
[opt-env-conf-test] -            Completion "bar" (Just "2")
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ Completion "foo" (Just "1"),
[opt-env-conf-test] +            Completion "bar" (Just "2")
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "prefix filtering" $ do
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1188:27-54
[opt-env-conf-test] @@ -1185,7 +1185,7 @@
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1188:27-54
[opt-env-conf-test] @@ -1185,7 +1185,7 @@
[opt-env-conf-test]        it "filters switches by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1189:27-54
[opt-env-conf-test] @@ -1186,7 +1186,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1189:27-54
[opt-env-conf-test] @@ -1186,7 +1186,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1191:11-12
[opt-env-conf-test] @@ -1188,7 +1188,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1197:20-47
[opt-env-conf-test] @@ -1194,7 +1194,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "verbose"])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1197:20-47
[opt-env-conf-test] @@ -1194,7 +1194,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [switch (), long "verbose"])
[opt-env-conf-test] +          (setting [switch (), long "verbose"])
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1198:11-12
[opt-env-conf-test] @@ -1195,7 +1195,7 @@
[opt-env-conf-test]        it "returns nothing when prefix matches nothing" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [switch (), long "verbose"])
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--xyz"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,7 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,10 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] +                command "get" "getter" $ pure (),
[opt-env-conf-test] +                command "build" "builder" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1205:15-16
[opt-env-conf-test] @@ -1202,10 +1202,10 @@
[opt-env-conf-test]        it "filters commands by typed prefix" $
[opt-env-conf-test]          parserCompletionDescriptionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] -                command "get" "getter" $ pure (),
[opt-env-conf-test] -                command "build" "builder" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "generate" "gen" $ pure (),
[opt-env-conf-test] +                command "get" "getter" $ pure (),
[opt-env-conf-test] +                command "build" "builder" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1210:11-12
[opt-env-conf-test] @@ -1207,7 +1207,7 @@
[opt-env-conf-test]                  command "build" "builder" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test]            [ "gen",
[opt-env-conf-test]              "getter"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1212:11-12
[opt-env-conf-test] @@ -1209,9 +1209,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] -          [ "gen",
[opt-env-conf-test] -            "getter"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "argument completion with dashed values" $ do
[opt-env-conf-test]        -- When a dashed-looking value is provided as a positional argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1212:11-12
[opt-env-conf-test] @@ -1209,9 +1209,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["ge"]
[opt-env-conf-test] -          [ "gen",
[opt-env-conf-test] -            "getter"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "gen",
[opt-env-conf-test] +            "getter"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "argument completion with dashed values" $ do
[opt-env-conf-test]        -- When a dashed-looking value is provided as a positional argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1224:20-97
[opt-env-conf-test] @@ -1221,7 +1221,7 @@
[opt-env-conf-test]        -- already provided.
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] -          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] +          (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1225:11-12
[opt-env-conf-test] @@ -1222,7 +1222,7 @@
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1225:11-12
[opt-env-conf-test] @@ -1222,7 +1222,7 @@
[opt-env-conf-test]        it "should not offer the argument completer after a dashed value is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            (setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]])
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1235:27-104
[opt-env-conf-test] @@ -1232,7 +1232,7 @@
[opt-env-conf-test]        it "should only complete the second argument after a dashed first argument" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1236:27-104
[opt-env-conf-test] @@ -1233,7 +1233,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1238:11-12
[opt-env-conf-test] @@ -1235,7 +1235,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            ["dest"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1238:11-12
[opt-env-conf-test] @@ -1235,7 +1235,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["file"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dest"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo"]
[opt-env-conf-test]            ["dest"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1249:43-59
[opt-env-conf-test] @@ -1246,7 +1246,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1249:43-59
[opt-env-conf-test] @@ -1246,7 +1246,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,7 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,11 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1246:15-16
[opt-env-conf-test] @@ -1243,11 +1243,11 @@
[opt-env-conf-test]        it "filters option values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1252:11-12
[opt-env-conf-test] @@ -1249,7 +1249,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1252:11-12
[opt-env-conf-test] @@ -1249,7 +1249,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1253:11-27
[opt-env-conf-test] @@ -1250,7 +1250,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", "al"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1253:11-27
[opt-env-conf-test] @@ -1250,7 +1250,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", "al"]
[opt-env-conf-test] +          ["--name", "al"]
[opt-env-conf-test]            ["alice"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1262:43-59
[opt-env-conf-test] @@ -1259,7 +1259,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1262:43-59
[opt-env-conf-test] @@ -1259,7 +1259,7 @@
[opt-env-conf-test]                [ option,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test]                  long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,7 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,11 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1259:15-16
[opt-env-conf-test] @@ -1256,11 +1256,11 @@
[opt-env-conf-test]        it "returns all option values when prefix is empty" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                long "name",
[opt-env-conf-test] -                completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                long "name",
[opt-env-conf-test] +                completer $ listCompleter ["alice"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1265:11-12
[opt-env-conf-test] @@ -1262,7 +1262,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1265:11-12
[opt-env-conf-test] @@ -1262,7 +1262,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["alice", "bob"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1266:11-25
[opt-env-conf-test] @@ -1263,7 +1263,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", ""]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1266:11-25
[opt-env-conf-test] @@ -1263,7 +1263,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--name", ""]
[opt-env-conf-test] +          ["--name", ""]
[opt-env-conf-test]            [ "alice",
[opt-env-conf-test]              "bob"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1267:11-12
[opt-env-conf-test] @@ -1264,9 +1264,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial argument completion" $ do
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1267:11-12
[opt-env-conf-test] @@ -1264,9 +1264,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--name", ""]
[opt-env-conf-test] -          [ "alice",
[opt-env-conf-test] -            "bob"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "alice",
[opt-env-conf-test] +            "bob"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial argument completion" $ do
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1277:43-69
[opt-env-conf-test] @@ -1274,7 +1274,8 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,7 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,10 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1275:15-16
[opt-env-conf-test] @@ -1272,10 +1272,10 @@
[opt-env-conf-test]        it "filters argument values by typed prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1280:11-12
[opt-env-conf-test] @@ -1277,7 +1277,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test]            [ "file1",
[opt-env-conf-test]              "file2"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1282:11-12
[opt-env-conf-test] @@ -1279,9 +1279,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] -          [ "file1",
[opt-env-conf-test] -            "file2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1282:11-12
[opt-env-conf-test] @@ -1279,9 +1279,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["fi"]
[opt-env-conf-test] -          [ "file1",
[opt-env-conf-test] -            "file2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "file1",
[opt-env-conf-test] +            "file2"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,7 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1291:43-69
[opt-env-conf-test] @@ -1288,7 +1288,8 @@
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ argument,
[opt-env-conf-test]                  reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,7 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,10 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1289:15-16
[opt-env-conf-test] @@ -1286,10 +1286,10 @@
[opt-env-conf-test]        it "filters argument values by a different prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ argument,
[opt-env-conf-test] -                reader (str :: Reader String),
[opt-env-conf-test] -                completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ argument,
[opt-env-conf-test] +                reader (str :: Reader String),
[opt-env-conf-test] +                completer $ listCompleter ["file1", "file2"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["da"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1294:11-12
[opt-env-conf-test] @@ -1291,7 +1291,7 @@
[opt-env-conf-test]                  completer $ listCompleter ["file1", "file2", "data"]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["da"]
[opt-env-conf-test]            ["data"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:56-81
[opt-env-conf-test] @@ -1299,7 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [],
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:56-81
[opt-env-conf-test] @@ -1299,7 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:15-16
[opt-env-conf-test] @@ -1299,9 +1299,7 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] -                command "debug" "debug it" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1302:15-16
[opt-env-conf-test] @@ -1299,9 +1299,9 @@
[opt-env-conf-test]        it "completes a command's options after selecting by prefix" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( commands
[opt-env-conf-test] -              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] -                command "debug" "debug it" $ pure ()
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ command "deploy" "deploy it" $ setting [switch (), long "force"],
[opt-env-conf-test] +                command "debug" "debug it" $ pure ()
[opt-env-conf-test] +              ]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1306:11-12
[opt-env-conf-test] @@ -1303,7 +1303,7 @@
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test]            ["--force"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1306:11-12
[opt-env-conf-test] @@ -1303,7 +1303,7 @@
[opt-env-conf-test]                  command "debug" "debug it" $ pure ()
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["deploy"]
[opt-env-conf-test]            ["--force"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1318:45-61
[opt-env-conf-test] @@ -1315,7 +1315,7 @@
[opt-env-conf-test]                  [ option,
[opt-env-conf-test]                    reader (str :: Reader String),
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                  completer $ listCompleter []
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1318:45-61
[opt-env-conf-test] @@ -1315,7 +1315,7 @@
[opt-env-conf-test]                  [ option,
[opt-env-conf-test]                    reader (str :: Reader String),
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ option,
[opt-env-conf-test] +                  reader (str :: Reader String),
[opt-env-conf-test] +                  long "foo",
[opt-env-conf-test] +                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] +                ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1315:17-18
[opt-env-conf-test] @@ -1312,11 +1312,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting
[opt-env-conf-test] -                [ option,
[opt-env-conf-test] -                  reader (str :: Reader String),
[opt-env-conf-test] -                  long "foo",
[opt-env-conf-test] -                  completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ option,
[opt-env-conf-test] +                  reader (str :: Reader String),
[opt-env-conf-test] +                  long "foo",
[opt-env-conf-test] +                  completer $ listCompleter ["val1"
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1320:27-50
[opt-env-conf-test] @@ -1317,7 +1317,7 @@
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test]                    completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              <*> setting [switch (), long "bar"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1320:27-50
[opt-env-conf-test] @@ -1317,7 +1317,7 @@
[opt-env-conf-test]                    long "foo",
[opt-env-conf-test]                    completer $ listCompleter ["val1", "val2"]
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              <*> setting [switch (), long "bar"]
[opt-env-conf-test] +              <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1322:11-12
[opt-env-conf-test] @@ -1319,7 +1319,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1322:11-12
[opt-env-conf-test] @@ -1319,7 +1319,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          ["--foo", "v", "--bar"]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1323:11-34
[opt-env-conf-test] @@ -1320,7 +1320,8 @@
[opt-env-conf-test]                <*> setting [switch (), long "bar"]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--foo", "v", "--bar"]
[opt-env-conf-test] +          ["--foo", "v"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "val1",
[opt-env-conf-test]              "val2"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1324:11-12
[opt-env-conf-test] @@ -1321,9 +1321,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] -          [ "val1",
[opt-env-conf-test] -            "val2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1324:11-12
[opt-env-conf-test] @@ -1321,9 +1321,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["--foo", "v", "--bar"]
[opt-env-conf-test] -          [ "val1",
[opt-env-conf-test] -            "val2"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "val1",
[opt-env-conf-test] +            "val2"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1331:27-52
[opt-env-conf-test] @@ -1328,7 +1328,7 @@
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "alpha"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1331:27-52
[opt-env-conf-test] @@ -1328,7 +1328,7 @@
[opt-env-conf-test]        it "filters completions when cursor word narrows the match" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "alpha"]
[opt-env-conf-test] +              <$> setting [switch (), long "alpha"]
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1332:27-51
[opt-env-conf-test] @@ -1329,7 +1329,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test] -              <*> setting [switch (), long "beta"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1332:27-51
[opt-env-conf-test] @@ -1329,7 +1329,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test] -              <*> setting [switch (), long "beta"]
[opt-env-conf-test] +              <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1334:11-12
[opt-env-conf-test] @@ -1331,7 +1331,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "alpha"]
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--alpha", "--beta"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1335:11-32
[opt-env-conf-test] @@ -1332,7 +1332,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] -          ["--alpha", "--beta"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial long option prefix with multiple matches" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1335:11-32
[opt-env-conf-test] @@ -1332,7 +1332,7 @@
[opt-env-conf-test]                <*> setting [switch (), long "beta"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] -          ["--alpha", "--beta"]
[opt-env-conf-test] +          ["--alpha", "--beta"]
[opt-env-conf-test]            ["--alpha"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "partial long option prefix with multiple matches" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1342:27-54
[opt-env-conf-test] @@ -1339,7 +1339,7 @@
[opt-env-conf-test]        it "filters options by a short prefix matching multiple" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1342:27-54
[opt-env-conf-test] @@ -1339,7 +1339,7 @@
[opt-env-conf-test]        it "filters options by a short prefix matching multiple" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1343:27-54
[opt-env-conf-test] @@ -1340,7 +1340,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1343:27-54
[opt-env-conf-test] @@ -1340,7 +1340,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1345:11-12
[opt-env-conf-test] @@ -1342,7 +1342,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test]            [ "--verbose",
[opt-env-conf-test]              "--version"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1347:11-12
[opt-env-conf-test] @@ -1344,9 +1344,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--version"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1347:11-12
[opt-env-conf-test] @@ -1344,9 +1344,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--ver"]
[opt-env-conf-test] -          [ "--verbose",
[opt-env-conf-test] -            "--version"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "--verbose",
[opt-env-conf-test] +            "--version"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1354:27-54
[opt-env-conf-test] @@ -1351,7 +1351,7 @@
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1354:27-54
[opt-env-conf-test] @@ -1351,7 +1351,7 @@
[opt-env-conf-test]        it "filters options by a longer prefix matching one" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [switch (), long "verbose"]
[opt-env-conf-test] +              <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1355:27-54
[opt-env-conf-test] @@ -1352,7 +1352,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1355:27-54
[opt-env-conf-test] @@ -1352,7 +1352,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test] -              <*> setting [switch (), long "version"]
[opt-env-conf-test] +              <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test]            0
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1357:11-12
[opt-env-conf-test] @@ -1354,7 +1354,7 @@
[opt-env-conf-test]                <$> setting [switch (), long "verbose"]
[opt-env-conf-test]                <*> setting [switch (), long "version"]
[opt-env-conf-test]            )
[opt-env-conf-test] -          0
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--verb"]
[opt-env-conf-test]            ["--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1365:27-103
[opt-env-conf-test] @@ -1362,7 +1362,7 @@
[opt-env-conf-test]        it "filters the second argument's completer by prefix after the first is consumed" $
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test] -              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] +              <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:95-110
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter []]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:95-110
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting []
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1366:27-111
[opt-env-conf-test] @@ -1363,7 +1363,8 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( (,)
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test] -              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test] +              <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst"
[opt-env-conf-test] +]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1368:11-12
[opt-env-conf-test] @@ -1365,7 +1365,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1368:11-12
[opt-env-conf-test] @@ -1365,7 +1365,7 @@
[opt-env-conf-test]                <$> setting [argument, reader (str :: Reader String), completer $ listCompleter ["src"]]
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1369:11-24
[opt-env-conf-test] @@ -1366,7 +1366,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["src", "ds"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with partial option value inside" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1369:11-24
[opt-env-conf-test] @@ -1366,7 +1366,7 @@
[opt-env-conf-test]                <*> setting [argument, reader (str :: Reader String), completer $ listCompleter ["dst", "data"]]
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["src", "ds"]
[opt-env-conf-test] +          ["src", "ds"]
[opt-env-conf-test]            ["dst"]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "commands with partial option value inside" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,7 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter []
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,7 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1381:49-86
[opt-env-conf-test] @@ -1378,7 +1378,8 @@
[opt-env-conf-test]                      [ option,
[opt-env-conf-test]                        reader (str :: Reader String),
[opt-env-conf-test]                        long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out"
[opt-env-conf-test] +]
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,7 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    []
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,11 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    [ option,
[opt-env-conf-test] +                      reader (str :: Reader String),
[opt-env-conf-test] +                      long "output",
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] +                    ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1378:21-22
[opt-env-conf-test] @@ -1375,11 +1375,11 @@
[opt-env-conf-test]            ( commands
[opt-env-conf-test]                [ command "run" "run it" $
[opt-env-conf-test]                    setting
[opt-env-conf-test] -                    [ option,
[opt-env-conf-test] -                      reader (str :: Reader String),
[opt-env-conf-test] -                      long "output",
[opt-env-conf-test] -                      completer $ listCompleter ["file.txt", "final.out", "data.csv"]
[opt-env-conf-test] -                    ]
[opt-env-conf-test] +                    [ option,
[opt-env-conf-test] +                      reader (str :: Reader String),
[opt-env-conf-test] +                      long "output",
[opt-env-conf-test] +                      completer $ listCompleter ["file.txt", "final.out"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1385:11-12
[opt-env-conf-test] @@ -1382,7 +1382,7 @@
[opt-env-conf-test]                      ]
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test] -          2
[opt-env-conf-test] +          -2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          ["run", "--output", "fi"]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1386:11-36
[opt-env-conf-test] @@ -1383,7 +1383,8 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test] -          ["run", "--output", "fi"]
[opt-env-conf-test] +          ["run", "--output"
[opt-env-conf-test] +]
[opt-env-conf-test]            [ "file.txt",
[opt-env-conf-test]              "final.out"
[opt-env-conf-test]            ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1387:11-12
[opt-env-conf-test] @@ -1384,9 +1384,7 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test] -          [ "file.txt",
[opt-env-conf-test] -            "final.out"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with partial values" $ do
[opt-env-conf-test]        it "filters many option values by prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1387:11-12
[opt-env-conf-test] @@ -1384,9 +1384,9 @@
[opt-env-conf-test]            )
[opt-env-conf-test]            2
[opt-env-conf-test]            ["run", "--output", "fi"]
[opt-env-conf-test] -          [ "file.txt",
[opt-env-conf-test] -            "final.out"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ "file.txt",
[opt-env-conf-test] +            "final.out"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]      describe "many with partial values" $ do
[opt-env-conf-test]        it "filters many option values by prefix" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1399:47-61
[opt-env-conf-test] @@ -1396,7 +1396,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1399:47-61
[opt-env-conf-test] @@ -1396,7 +1396,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1396:19-20
[opt-env-conf-test] @@ -1393,11 +1393,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1403:11-12
[opt-env-conf-test] @@ -1400,7 +1400,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1403:11-12
[opt-env-conf-test] @@ -1400,7 +1400,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          1
[opt-env-conf-test] +          -1
[opt-env-conf-test]            ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1404:11-30
[opt-env-conf-test] @@ -1401,7 +1401,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--include", "fo"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters many option values by prefix after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1404:11-30
[opt-env-conf-test] @@ -1401,7 +1401,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            1
[opt-env-conf-test] -          ["--include", "fo"]
[opt-env-conf-test] +          ["--include", "fo"]
[opt-env-conf-test]            ["foo"]
[opt-env-conf-test]  
[opt-env-conf-test]        it "filters many option values by prefix after one is consumed" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1414:47-61
[opt-env-conf-test] @@ -1411,7 +1411,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter []
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1414:47-61
[opt-env-conf-test] @@ -1411,7 +1411,7 @@
[opt-env-conf-test]                    [ option,
[opt-env-conf-test]                      reader (str :: Reader String),
[opt-env-conf-test]                      long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,7 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1411:19-20
[opt-env-conf-test] @@ -1408,11 +1408,11 @@
[opt-env-conf-test]          parserCompletionTest
[opt-env-conf-test]            ( many
[opt-env-conf-test]                ( setting
[opt-env-conf-test] -                  [ option,
[opt-env-conf-test] -                    reader (str :: Reader String),
[opt-env-conf-test] -                    long "include",
[opt-env-conf-test] -                    completer $ listCompleter ["foo", "bar"]
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ option,
[opt-env-conf-test] +                    reader (str :: Reader String),
[opt-env-conf-test] +                    long "include",
[opt-env-conf-test] +                    completer $ listCompleter ["foo"
[opt-env-conf-test] +]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          0
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          1
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1418:11-12
[opt-env-conf-test] @@ -1415,7 +1415,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test] -          3
[opt-env-conf-test] +          -3
[opt-env-conf-test]            ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          []
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1419:11-50
[opt-env-conf-test] @@ -1416,7 +1416,8 @@
[opt-env-conf-test]                )
[opt-env-conf-test]            )
[opt-env-conf-test]            3
[opt-env-conf-test] -          ["--include", "foo", "--include", "ba"]
[opt-env-conf-test] +          ["--include", "foo", "--include"
[opt-env-conf-test] +]
[opt-env-conf-test]            ["bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    sequential . doNotRandomiseExecutionOrder
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1443:51-71
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1443:51-71
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1443:73-74
[opt-env-conf-test] @@ -1440,7 +1440,7 @@
[opt-env-conf-test]        describe "file and directory completion" $ do
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1444:49-79
[opt-env-conf-test] @@ -1441,7 +1441,7 @@
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1444:49-79
[opt-env-conf-test] @@ -1441,7 +1441,7 @@
[opt-env-conf-test]          describe "filePathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes files and directories for a file argument" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1447:51-82
[opt-env-conf-test] @@ -1444,7 +1444,8 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option
[opt-env-conf-test] +]) 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1447:84-85
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 0 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1447:84-85
[opt-env-conf-test] @@ -1444,7 +1444,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", option, long "file"]) -1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1448:49-79
[opt-env-conf-test] @@ -1445,7 +1445,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1448:49-79
[opt-env-conf-test] @@ -1445,7 +1445,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes files and directories after a file option's dashed" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", option, long "file"]) 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1451:51-71
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1451:51-71
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1451:73-74
[opt-env-conf-test] @@ -1448,7 +1448,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "filters by prefix" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 ["exampledi"] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 ["exampledi"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- Directories end in /, files do not.  This convention is how
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1460:51-71
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1460:51-71
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1460:73-74
[opt-env-conf-test] @@ -1457,7 +1457,7 @@
[opt-env-conf-test]            -- "completes files and directories for a file argument" above;
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1461:49-79
[opt-env-conf-test] @@ -1458,7 +1458,7 @@
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1461:49-79
[opt-env-conf-test] @@ -1458,7 +1458,7 @@
[opt-env-conf-test]            -- this test re-states the invariant explicitly.
[opt-env-conf-test]            itWithOuter "directories end in / and files do not" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1464:51-71
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1464:51-71
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1464:73-74
[opt-env-conf-test] @@ -1461,7 +1461,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "f", argument]) 1 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1466:26-63
[opt-env-conf-test] @@ -1463,7 +1463,7 @@
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test] -              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test] +              `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1466:26-63
[opt-env-conf-test] @@ -1463,7 +1463,7 @@
[opt-env-conf-test]            itWithOuter "files are final and directories are not final" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "f", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test] -              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test] +              `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1469:51-77
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting []) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1469:51-77
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1469:79-80
[opt-env-conf-test] @@ -1466,7 +1466,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionFinal, CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (filePathSetting [help "my file", argument]) 1 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1470:58-90
[opt-env-conf-test] @@ -1467,7 +1467,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] -            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test] +            map completionDescription results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1470:58-90
[opt-env-conf-test] @@ -1467,7 +1467,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to file completions" $ \tdir -> do
[opt-env-conf-test]              results <- evalQuery (filePathSetting [help "my file", argument]) 0 [] tdir
[opt-env-conf-test] -            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test] +            map completionDescription results `shouldBe` [Just "my file", Just "my file"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1474:56-76
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1474:56-76
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1474:78-79
[opt-env-conf-test] @@ -1471,7 +1471,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]          describe "directoryPathSetting" $ do
[opt-env-conf-test]            itWithOuter "completes only directories for a directory argument" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1478:56-86
[opt-env-conf-test] @@ -1475,7 +1475,8 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option
[opt-env-conf-test] +]) 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1478:88-89
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 0 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1478:88-89
[opt-env-conf-test] @@ -1475,7 +1475,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes only directories after a directory option's dashed" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", option, long "dir"]) -1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1482:56-76
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1482:56-76
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1482:78-79
[opt-env-conf-test] @@ -1479,7 +1479,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "never includes files" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1486:56-76
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1486:56-76
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1486:78-79
[opt-env-conf-test] @@ -1483,7 +1483,7 @@
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "directories are not final" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "d", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "d", argument]) 1 [] tdir
[opt-env-conf-test]              map (completionResultFinality . completionSuggestion) results
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1491:56-81
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting []) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1491:56-81
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1491:83-84
[opt-env-conf-test] @@ -1488,7 +1488,7 @@
[opt-env-conf-test]                `shouldBe` [CompletionNotFinal]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "carries the description through to directory completions" $ \tdir -> do
[opt-env-conf-test] -            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 0 [] tdir
[opt-env-conf-test] +            results <- evalQuery (directoryPathSetting [help "my dir", argument]) 1 [] tdir
[opt-env-conf-test]              map completionDescription results `shouldBe` [Just "my dir"]
[opt-env-conf-test]  
[opt-env-conf-test]          describe "combined with other settings" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,7 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,7 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1498:41-72
[opt-env-conf-test] @@ -1495,7 +1495,8 @@
[opt-env-conf-test]            itWithOuter "includes file completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1499:33-60
[opt-env-conf-test] @@ -1496,7 +1496,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1499:33-60
[opt-env-conf-test] @@ -1496,7 +1496,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1500:41-42
[opt-env-conf-test] @@ -1497,7 +1497,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1500:41-42
[opt-env-conf-test] @@ -1497,7 +1497,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--file"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1501:49-92
[opt-env-conf-test] @@ -1498,7 +1498,8 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,7 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,7 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1506:46-76
[opt-env-conf-test] @@ -1503,7 +1503,8 @@
[opt-env-conf-test]            itWithOuter "includes directory completions alongside other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1507:33-60
[opt-env-conf-test] @@ -1504,7 +1504,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1507:33-60
[opt-env-conf-test] @@ -1504,7 +1504,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1508:41-42
[opt-env-conf-test] @@ -1505,7 +1505,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1508:41-42
[opt-env-conf-test] @@ -1505,7 +1505,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--dir"] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1509:49-77
[opt-env-conf-test] @@ -1506,7 +1506,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test]            -- cursor is in the value position.  The option's completer
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1509:49-77
[opt-env-conf-test] @@ -1506,7 +1506,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir"] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- After typing the dashed of an option that takes a value, the
[opt-env-conf-test]            -- cursor is in the value position.  The option's completer
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,7 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,7 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1520:46-76
[opt-env-conf-test] @@ -1517,7 +1517,8 @@
[opt-env-conf-test]            itWithOuter "completes directory option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] +                    <$> directoryPathSetting [help "d", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1521:33-60
[opt-env-conf-test] @@ -1518,7 +1518,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1521:33-60
[opt-env-conf-test] @@ -1518,7 +1518,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1522:41-42
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1522:41-42
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1522:43-56
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1522:43-56
[opt-env-conf-test] @@ -1519,7 +1519,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1523:49-77
[opt-env-conf-test] @@ -1520,7 +1520,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1523:49-77
[opt-env-conf-test] @@ -1520,7 +1520,7 @@
[opt-env-conf-test]                      <$> directoryPathSetting [help "d", option, long "dir"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--dir", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,7 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting []
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,7 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1528:41-72
[opt-env-conf-test] @@ -1525,7 +1525,8 @@
[opt-env-conf-test]            itWithOuter "completes file option value first, then other options" $ \tdir -> do
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test] -                    <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] +                    <$> filePathSetting [help "f", option
[opt-env-conf-test] +]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1529:33-60
[opt-env-conf-test] @@ -1526,7 +1526,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1529:33-60
[opt-env-conf-test] @@ -1526,7 +1526,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test] -                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test] +                    <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1530:41-42
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1530:41-42
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1530:43-57
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1530:43-57
[opt-env-conf-test] @@ -1527,7 +1527,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,7 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1531:49-92
[opt-env-conf-test] @@ -1528,7 +1528,8 @@
[opt-env-conf-test]                      <$> filePathSetting [help "f", option, long "file"]
[opt-env-conf-test]                      <*> setting [switch (), long "verbose"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--file", ""] tdir
[opt-env-conf-test] -            suggestionValues results `shouldBe` ["example.txt", "exampledir/", "--verbose"]
[opt-env-conf-test] +            suggestionValues results `shouldBe` ["example.txt", "exampledir/"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]            -- A default command with an argument combined with a
[opt-env-conf-test]            -- directory option causes the directory completer not to fire
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1541:35-86
[opt-env-conf-test] @@ -1538,7 +1538,7 @@
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test]                        [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1540:23-24
[opt-env-conf-test] @@ -1537,10 +1537,7 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test] -                      [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] -                        defaultCommand "file"
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      []
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1540:23-24
[opt-env-conf-test] @@ -1537,10 +1537,10 @@
[opt-env-conf-test]              let parser =
[opt-env-conf-test]                    (,)
[opt-env-conf-test]                      <$> commands
[opt-env-conf-test] -                      [ command "file" "f" $
[opt-env-conf-test] -                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] -                        defaultCommand "file"
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      [ command "file" "f" $
[opt-env-conf-test] +                          setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test] +                        defaultCommand "file"
[opt-env-conf-test] +                      ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,6 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting []
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,6 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1544:46-84
[opt-env-conf-test] @@ -1541,6 +1541,7 @@
[opt-env-conf-test]                            setting [help "f", argument, reader (str :: Reader String)],
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                    <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] +                    <*> directoryPathSetting [help "a", option
[opt-env-conf-test] +]
[opt-env-conf-test]              results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1545:41-42
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 0 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/CompletionSpec.hs:1545:41-42
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser -1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1545:43-64
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 [] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/CompletionSpec.hs:1545:43-64
[opt-env-conf-test] @@ -1542,5 +1542,5 @@
[opt-env-conf-test]                          defaultCommand "file"
[opt-env-conf-test]                        ]
[opt-env-conf-test]                      <*> directoryPathSetting [help "a", option, long "archive-dir"]
[opt-env-conf-test] -            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test] +            results <- evalQuery parser 1 ["--archive-dir", ""] tdir
[opt-env-conf-test]              suggestionValues results `shouldSatisfy` elem "exampledir/"
[opt-env-conf-test] added 964 mutations
[opt-env-conf-test] [ 5 of 17] Compiling OptEnvConf.EnvMapSpec ( test/OptEnvConf/EnvMapSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/EnvMapSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.EnvMapSpec
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [ 6 of 17] Compiling OptEnvConf.ErrorSpec ( test/OptEnvConf/ErrorSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ErrorSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,7 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords []) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,7 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:212:17-64
[opt-env-conf-test] @@ -209,7 +209,8 @@
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test]  parseEnvErrorSpec fp p e =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp
[opt-env-conf-test] +]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:217:55-119
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines []
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  goldenChunksFile :: FilePath -> IO [Chunk] -> GoldenTest Text
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:217:55-119
[opt-env-conf-test] @@ -214,7 +214,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p emptyArgs (EnvMap.parse e) Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  goldenChunksFile :: FilePath -> IO [Chunk] -> GoldenTest Text
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords []) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:201:17-64
[opt-env-conf-test] @@ -198,7 +198,8 @@
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test] -    it (unwords ["renders the", fp, "error the same as before"]) $
[opt-env-conf-test] +    it (unwords ["renders the", fp
[opt-env-conf-test] +]) $
[opt-env-conf-test]        let path = "test_resources/error/" <> fp <> ".txt"
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:206:55-119
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines []
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:206:55-119
[opt-env-conf-test] @@ -203,7 +203,7 @@
[opt-env-conf-test]         in goldenChunksFile path $ do
[opt-env-conf-test]              errOrResult <- runParserOn allCapabilities Nothing p (parseArgs args) EnvMap.empty Nothing
[opt-env-conf-test]              case errOrResult of
[opt-env-conf-test] -              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test] +              Right a -> expectationFailure $ unlines ["Should not have been able to parse, but did and got:", show a]
[opt-env-conf-test]                Left errs -> pure $ renderErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  parseEnvErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [(String, String)] -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:42:5-22
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-option"
[opt-env-conf-test]      (setting [option, reader auto, long "num", help "integer option", metavar "INT"] :: Parser Int)
[opt-env-conf-test] -    ["--num", "five"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-options"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:42:5-22
[opt-env-conf-test] @@ -39,7 +39,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-option"
[opt-env-conf-test]      (setting [option, reader auto, long "num", help "integer option", metavar "INT"] :: Parser Int)
[opt-env-conf-test] -    ["--num", "five"]
[opt-env-conf-test] +    ["--num", "five"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "read-int-options"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:50:5-33
[opt-env-conf-test] @@ -47,7 +47,8 @@
[opt-env-conf-test]          <*> setting [option, reader auto, long "bar", help "integer option 2", metavar "INT"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "n", "--bar", "m"]
[opt-env-conf-test] +    ["--foo", "n", "--bar"
[opt-env-conf-test] +]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "some-none"
[opt-env-conf-test]      (some $ setting [reader str, argument] :: Parser [String])
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,9 +56,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "required-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,9 +56,9 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "required-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "one" "first" $ pure '1',
[opt-env-conf-test] +          command "two" "second" $ pure '2'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      []
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:68:9-10
[opt-env-conf-test] @@ -65,9 +65,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      ["three"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:68:9-10
[opt-env-conf-test] @@ -65,9 +65,9 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "one" "first" $ pure '1',
[opt-env-conf-test] -          command "two" "second" $ pure '2'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "one" "first" $ pure '1',
[opt-env-conf-test] +          command "two" "second" $ pure '2'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      ["three"]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    ["-ba", "foo", "bar"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:81:5-26
[opt-env-conf-test] @@ -78,7 +78,8 @@
[opt-env-conf-test]          <*> setting [option, short 'b', reader str] ::
[opt-env-conf-test]          Parser (String, String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-ba", "foo", "bar"]
[opt-env-conf-test] +    ["-ba", "foo"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unfolding-tombstone-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:90:5-19
[opt-env-conf-test] @@ -87,7 +87,7 @@
[opt-env-conf-test]          <*> setting [option, short 'f', reader str] ::
[opt-env-conf-test]          Parser ((), String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-fv", "foo"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseEnvErrorSpec
[opt-env-conf-test]      "missing-var"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:90:5-19
[opt-env-conf-test] @@ -87,7 +87,7 @@
[opt-env-conf-test]          <*> setting [option, short 'f', reader str] ::
[opt-env-conf-test]          Parser ((), String)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["-fv", "foo"]
[opt-env-conf-test] +    ["-fv", "foo"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseEnvErrorSpec
[opt-env-conf-test]      "missing-var"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:120:5-33
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]          <*> setting [reader auto, env "BAR"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "empty-choice"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:120:5-33
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]          <*> setting [reader auto, env "BAR"] ::
[opt-env-conf-test]          Parser (Int, Int)
[opt-env-conf-test]      )
[opt-env-conf-test] -    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test] +    [("FOO", "n"), ("BAR", "m")]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "empty-choice"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting []
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:141:27-104
[opt-env-conf-test] @@ -138,7 +138,8 @@
[opt-env-conf-test]      ( choice
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist"
[opt-env-conf-test] +]
[opt-env-conf-test]                <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,7 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:142:27-108
[opt-env-conf-test] @@ -139,7 +139,8 @@
[opt-env-conf-test]          [ allOrNothing $
[opt-env-conf-test]              (,)
[opt-env-conf-test]                <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist"
[opt-env-conf-test] +],
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:139:9-10
[opt-env-conf-test] @@ -136,12 +136,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing"
[opt-env-conf-test]      ( choice
[opt-env-conf-test] -        [ allOrNothing $
[opt-env-conf-test] -            (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] -          pure ('a', 'b')
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]      ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:139:9-10
[opt-env-conf-test] @@ -136,12 +136,12 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing"
[opt-env-conf-test]      ( choice
[opt-env-conf-test] -        [ allOrNothing $
[opt-env-conf-test] -            (,)
[opt-env-conf-test] -              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] -              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] -          pure ('a', 'b')
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ allOrNothing $
[opt-env-conf-test] +            (,)
[opt-env-conf-test] +              <$> setting [option, long "foo", reader auto, help "This one will exist", metavar "CHAR"]
[opt-env-conf-test] +              <*> setting [option, long "bar", reader auto, help "This one will not exist", metavar "CHAR"],
[opt-env-conf-test] +          pure ('a', 'b')
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]      ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:146:5-21
[opt-env-conf-test] @@ -143,7 +143,7 @@
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing-relevant"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:146:5-21
[opt-env-conf-test] @@ -143,7 +143,7 @@
[opt-env-conf-test]            pure ('a', 'b')
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    ["--foo", "'a'"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "all-or-nothing-relevant"
[opt-env-conf-test]      ( (,)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:160:5-21
[opt-env-conf-test] @@ -157,7 +157,7 @@
[opt-env-conf-test]          <*> choice [] ::
[opt-env-conf-test]          Parser ((Char, Char), Char)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-arg"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:160:5-21
[opt-env-conf-test] @@ -157,7 +157,7 @@
[opt-env-conf-test]          <*> choice [] ::
[opt-env-conf-test]          Parser ((Char, Char), Char)
[opt-env-conf-test]      )
[opt-env-conf-test] -    ["--foo", "'a'"]
[opt-env-conf-test] +    ["--foo", "'a'"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-arg"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:169:5-21
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-switch"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:169:5-21
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--foo", "bar"]
[opt-env-conf-test] +    ["--foo", "bar"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "unrecognised-switch"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:178:5-21
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-option"
[opt-env-conf-test]      (optional $ setting [help "often misspelt as baz", reader str, option, long "bar"] :: Parser (Maybe String))
[opt-env-conf-test] -    ["--baz", "arg"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:178:5-21
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-option"
[opt-env-conf-test]      (optional $ setting [help "often misspelt as baz", reader str, option, long "bar"] :: Parser (Maybe String))
[opt-env-conf-test] -    ["--baz", "arg"]
[opt-env-conf-test] +    ["--baz", "arg"]
[opt-env-conf-test]  
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "typo-switch"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:192:5-21
[opt-env-conf-test] @@ -189,7 +189,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--key", "val"]
[opt-env-conf-test] +    []
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:192:5-21
[opt-env-conf-test] @@ -189,7 +189,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-option"
[opt-env-conf-test]      (pure 'b')
[opt-env-conf-test] -    ["--key", "val"]
[opt-env-conf-test] +    ["--key", "val"]
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:196:5-19
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] -    ["foo", "bar"]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ErrorSpec.hs:196:5-19
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]    parseArgsErrorSpec
[opt-env-conf-test]      "leftover-argument"
[opt-env-conf-test]      (pure 'c')
[opt-env-conf-test] -    ["foo", "bar"]
[opt-env-conf-test] +    ["foo", "bar"]
[opt-env-conf-test]  
[opt-env-conf-test]  parseArgsErrorSpec :: (HasCallStack) => (Show a) => FilePath -> Parser a -> [String] -> Spec
[opt-env-conf-test]  parseArgsErrorSpec fp p args =
[opt-env-conf-test] added 46 mutations
[opt-env-conf-test] [ 7 of 17] Compiling OptEnvConf.LintSpec ( test/OptEnvConf/LintSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/LintSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.LintSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:27:18-22
[opt-env-conf-test] @@ -24,7 +24,7 @@
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test]          [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] +          switch False,
[opt-env-conf-test]            short '-'
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'short'",
[opt-env-conf-test] +          switch True,
[opt-env-conf-test] +          short '-'
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:26:9-10
[opt-env-conf-test] @@ -23,10 +23,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-short"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'short'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          short '-'
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'short'",
[opt-env-conf-test] +          switch True
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:35:18-22
[opt-env-conf-test] @@ -32,7 +32,7 @@
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test]          [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] +          switch False,
[opt-env-conf-test]            long "--switch"
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'long'",
[opt-env-conf-test] +          switch True,
[opt-env-conf-test] +          long "--switch"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:34:9-10
[opt-env-conf-test] @@ -31,10 +31,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "dash-in-long"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ help "Dash in a 'long'",
[opt-env-conf-test] -          switch True,
[opt-env-conf-test] -          long "--switch"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Dash in a 'long'",
[opt-env-conf-test] +          switch True
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ argument,
[opt-env-conf-test] +          metavar "STR",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:42:9-10
[opt-env-conf-test] @@ -39,10 +39,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-argument"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ argument,
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ argument,
[opt-env-conf-test] +          metavar "STR"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-argument"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,11 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ option,
[opt-env-conf-test] +          long "example",
[opt-env-conf-test] +          metavar "STR",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:59:9-10
[opt-env-conf-test] @@ -56,11 +56,10 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-option"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ option,
[opt-env-conf-test] -          long "example",
[opt-env-conf-test] -          metavar "STR",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ option,
[opt-env-conf-test] +          long "example",
[opt-env-conf-test] +          metavar "STR"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-option"
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/LintSpec.hs:99:18-22
[opt-env-conf-test] @@ -96,7 +96,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] +        [ switch False,
[opt-env-conf-test]            help "Example"
[opt-env-conf-test]          ]
[opt-env-conf-test]      )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:99:9-10
[opt-env-conf-test] @@ -96,9 +96,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:99:9-10
[opt-env-conf-test] @@ -96,9 +96,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-dashed-for-switch"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ switch True,
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ switch True,
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:106:9-10
[opt-env-conf-test] @@ -103,9 +103,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ env "EXAMPLE",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:106:9-10
[opt-env-conf-test] @@ -103,9 +103,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-reader-for-env"
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ env "EXAMPLE",
[opt-env-conf-test] -          help "Example"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ env "EXAMPLE",
[opt-env-conf-test] +          help "Example"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "no-metavar-for-env"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:186:9-10
[opt-env-conf-test] @@ -183,9 +183,7 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "unknown-default-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] -          defaultCommand "b"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  goldenLintTest :: (HasCallStack) => FilePath -> Parser a -> Spec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/LintSpec.hs:186:9-10
[opt-env-conf-test] @@ -183,9 +183,9 @@
[opt-env-conf-test]    goldenLintTest
[opt-env-conf-test]      "unknown-default-command"
[opt-env-conf-test]      ( commands
[opt-env-conf-test] -        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] -          defaultCommand "b"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ command "a" "a" $ pure 'a',
[opt-env-conf-test] +          defaultCommand "b"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  goldenLintTest :: (HasCallStack) => FilePath -> Parser a -> Spec
[opt-env-conf-test] added 21 mutations
[opt-env-conf-test] [ 8 of 17] Compiling OptEnvConf.NonDetSpec ( test/OptEnvConf/NonDetSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/NonDetSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.NonDetSpec
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:22-23
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(0, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:22-23
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(-1, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 0), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 1), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:25-26
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, -3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (0, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (1, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:30-31
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (-2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 0)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 1)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:22:33-34
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, -4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:22:20-36
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` []
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:22:20-36
[opt-env-conf-test] @@ -19,7 +19,7 @@
[opt-env-conf-test]              guard $ even $ a + b
[opt-env-conf-test]              pure (a, b)
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test]      it "can recover from failures with <|>" $
[opt-env-conf-test]        runNonDet
[opt-env-conf-test]          ( do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:21-22
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [0, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:21-22
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [-1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 1]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:31:24-25
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, -2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:31:20-26
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` []
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:31:20-26
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]              guard $ f a
[opt-env-conf-test]              pure a
[opt-env-conf-test]          )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation RemoveAction at test/OptEnvConf/NonDetSpec.hs:13:26-26
[opt-env-conf-test] @@ -10,25 +10,25 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  describe "runNonDet" $ do
[opt-env-conf-test] -    it "can guard against previous values" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] -            guard $ even $ a + b
[opt-env-conf-test] -            pure (a, b)
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] -    it "can recover from failures with <|>" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] -            guard $ f a
[opt-env-conf-test] -            pure a
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] +  describe "runNonDet" $ do
[opt-env-conf-test] +    it "can guard against previous values" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] +            guard $ even $ a + b
[opt-env-conf-test] +            pure (a, b)
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +    it "can recover from failures with <|>" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] +            guard $ f a
[opt-env-conf-test] +            pure a
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test]  
[opt-env-conf-test]    describe "runNonDetT" $ do
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:35-36
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [0, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:35-36
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [-1, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 0]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 1]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:37:38-39
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, -2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:37:34-40
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList []
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/NonDetSpec.hs:37:34-40
[opt-env-conf-test] @@ -34,7 +34,7 @@
[opt-env-conf-test]      it "can recover from underlying errors" $ do
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            i <- liftNonDetTList [1, 2]
[opt-env-conf-test]              if odd i
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if True
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if False
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/NonDetSpec.hs:38:16-21
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] +            if not (odd i)
[opt-env-conf-test]                then do
[opt-env-conf-test]                  () <- empty
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test] added mutation CondFlip at test/OptEnvConf/NonDetSpec.hs:38:13-26
[opt-env-conf-test] @@ -35,10 +35,10 @@
[opt-env-conf-test]        let f :: NonDetT (Either String) Int
[opt-env-conf-test]            f = do
[opt-env-conf-test]              i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] -              then do
[opt-env-conf-test] -                () <- empty
[opt-env-conf-test] -                lift (Left "err")
[opt-env-conf-test] -              else pure i
[opt-env-conf-test] +            if odd i
[opt-env-conf-test] +              then do
[opt-env-conf-test] +                () <- empty
[opt-env-conf-test] +                lift (Left "err")
[opt-env-conf-test] +              else pure i
[opt-env-conf-test]  
[opt-env-conf-test]        runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [0]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [1]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/NonDetSpec.hs:44:38-39
[opt-env-conf-test] @@ -41,4 +41,4 @@
[opt-env-conf-test]                  lift (Left "err")
[opt-env-conf-test]                else pure i
[opt-env-conf-test]  
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [-2]
[opt-env-conf-test] added mutation RemoveAction at test/OptEnvConf/NonDetSpec.hs:12:8-40
[opt-env-conf-test] @@ -9,36 +9,36 @@
[opt-env-conf-test]  import Test.Syd
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test] -spec = do
[opt-env-conf-test] -  describe "runNonDet" $ do
[opt-env-conf-test] -    it "can guard against previous values" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] -            guard $ even $ a + b
[opt-env-conf-test] -            pure (a, b)
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] -    it "can recover from failures with <|>" $
[opt-env-conf-test] -      runNonDet
[opt-env-conf-test] -        ( do
[opt-env-conf-test] -            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] -            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] -            guard $ f a
[opt-env-conf-test] -            pure a
[opt-env-conf-test] -        )
[opt-env-conf-test] -        `shouldBe` [1, 2]
[opt-env-conf-test] -
[opt-env-conf-test] -  describe "runNonDetT" $ do
[opt-env-conf-test] -    it "can recover from underlying errors" $ do
[opt-env-conf-test] -      let f :: NonDetT (Either String) Int
[opt-env-conf-test] -          f = do
[opt-env-conf-test] -            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] -            if odd i
[opt-env-conf-test] -              then do
[opt-env-conf-test] -                () <- empty
[opt-env-conf-test] -                lift (Left "err")
[opt-env-conf-test] -              else pure i
[opt-env-conf-test] -
[opt-env-conf-test] -      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] +spec = do
[opt-env-conf-test] +  describe "runNonDet" $ do
[opt-env-conf-test] +    it "can guard against previous values" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            b <- liftNonDetTList [3, 4]
[opt-env-conf-test] +            guard $ even $ a + b
[opt-env-conf-test] +            pure (a, b)
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [(1, 3), (2, 4)]
[opt-env-conf-test] +    it "can recover from failures with <|>" $
[opt-env-conf-test] +      runNonDet
[opt-env-conf-test] +        ( do
[opt-env-conf-test] +            a <- liftNonDetTList [1, 2 :: Int]
[opt-env-conf-test] +            f <- liftNonDetTList [even] <|> liftNonDetTList [odd]
[opt-env-conf-test] +            guard $ f a
[opt-env-conf-test] +            pure a
[opt-env-conf-test] +        )
[opt-env-conf-test] +        `shouldBe` [1, 2]
[opt-env-conf-test] +
[opt-env-conf-test] +  describe "runNonDetT" $ do
[opt-env-conf-test] +    it "can recover from underlying errors" $ do
[opt-env-conf-test] +      let f :: NonDetT (Either String) Int
[opt-env-conf-test] +          f = do
[opt-env-conf-test] +            i <- liftNonDetTList [1, 2]
[opt-env-conf-test] +            if odd i
[opt-env-conf-test] +              then do
[opt-env-conf-test] +                () <- empty
[opt-env-conf-test] +                lift (Left "err")
[opt-env-conf-test] +              else pure i
[opt-env-conf-test] +
[opt-env-conf-test] +      runNonDetT f `shouldBe` Right [2]
[opt-env-conf-test] added 36 mutations
[opt-env-conf-test] [ 9 of 17] Compiling OptEnvConf.ReaderSpec ( test/OptEnvConf/ReaderSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ReaderSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ReaderSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:47:28-32
[opt-env-conf-test] @@ -44,7 +44,7 @@
[opt-env-conf-test]    describe "maybeReader" $
[opt-env-conf-test]      it "can parse a bool using this example reader" $ do
[opt-env-conf-test]        let r = maybeReader $ \case
[opt-env-conf-test] -            "true" -> Just True
[opt-env-conf-test] +            "true" -> Just False
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:48:29-34
[opt-env-conf-test] @@ -45,7 +45,7 @@
[opt-env-conf-test]      it "can parse a bool using this example reader" $ do
[opt-env-conf-test]        let r = maybeReader $ \case
[opt-env-conf-test]              "true" -> Just True
[opt-env-conf-test] -            "false" -> Just False
[opt-env-conf-test] +            "false" -> Just True
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test]        runReader r "false" `shouldBe` Right False
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:50:43-47
[opt-env-conf-test] @@ -47,7 +47,7 @@
[opt-env-conf-test]              "true" -> Just True
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test] -      runReader r "true" `shouldBe` Right True
[opt-env-conf-test] +      runReader r "true" `shouldBe` Right False
[opt-env-conf-test]        runReader r "false" `shouldBe` Right False
[opt-env-conf-test]        runReader r "yes" `shouldBe` Left "Unparseable value: \"yes\""
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/ReaderSpec.hs:51:44-49
[opt-env-conf-test] @@ -48,7 +48,7 @@
[opt-env-conf-test]              "false" -> Just False
[opt-env-conf-test]              _ -> Nothing
[opt-env-conf-test]        runReader r "true" `shouldBe` Right True
[opt-env-conf-test] -      runReader r "false" `shouldBe` Right False
[opt-env-conf-test] +      runReader r "false" `shouldBe` Right True
[opt-env-conf-test]        runReader r "yes" `shouldBe` Left "Unparseable value: \"yes\""
[opt-env-conf-test]  
[opt-env-conf-test]    describe "viaStringCodec" $
[opt-env-conf-test] added 4 mutations
[opt-env-conf-test] [10 of 17] Compiling OptEnvConf.RunSpec ( test/OptEnvConf/RunSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/RunSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.RunSpec
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:1006:32-47
[opt-env-conf-test] @@ -1003,9 +1003,9 @@
[opt-env-conf-test]    IO ()
[opt-env-conf-test]  shouldParse' p capabilities args e mConf expected = do
[opt-env-conf-test]    errOrRes <- runParserOn capabilities Nothing p args e mConf
[opt-env-conf-test] -  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] -    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] -    Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] +    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] +    Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  shouldFail ::
[opt-env-conf-test]    (Show a) =>
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:1006:32-47
[opt-env-conf-test] @@ -1003,9 +1003,9 @@
[opt-env-conf-test]    IO ()
[opt-env-conf-test]  shouldParse' p capabilities args e mConf expected = do
[opt-env-conf-test]    errOrRes <- runParserOn capabilities Nothing p args e mConf
[opt-env-conf-test] -  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] -    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] -    Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +  context (showParserABit p) $ case errOrRes of
[opt-env-conf-test] +    Left errs -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors errs
[opt-env-conf-test] +    Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  shouldFail ::
[opt-env-conf-test]    (Show a) =>
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:953:7-51
[opt-env-conf-test] @@ -950,14 +950,14 @@
[opt-env-conf-test]      let argMap = parseArgs args
[opt-env-conf-test]      errOrRes <- runParserOn allCapabilities Nothing p argMap EnvMap.empty Nothing
[opt-env-conf-test]      context (showParserABit p) $
[opt-env-conf-test] -      case errOrRes of
[opt-env-conf-test] -        Left errs ->
[opt-env-conf-test] -          expectationFailure $
[opt-env-conf-test] -            unlines
[opt-env-conf-test] -              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] -                ppShow errs
[opt-env-conf-test] -              ]
[opt-env-conf-test] -        Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +      case errOrRes of
[opt-env-conf-test] +        Left errs ->
[opt-env-conf-test] +          expectationFailure $
[opt-env-conf-test] +            unlines
[opt-env-conf-test] +              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] +                ppShow errs
[opt-env-conf-test] +              ]
[opt-env-conf-test] +        Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  envParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([(String, String)], a)] -> Spec
[opt-env-conf-test]  envParseSpecs p table = withFrozenCallStack $ mapM_ (\(envs, result) -> envParseSpec envs p result) table
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/RunSpec.hs:953:7-51
[opt-env-conf-test] @@ -950,14 +950,14 @@
[opt-env-conf-test]      let argMap = parseArgs args
[opt-env-conf-test]      errOrRes <- runParserOn allCapabilities Nothing p argMap EnvMap.empty Nothing
[opt-env-conf-test]      context (showParserABit p) $
[opt-env-conf-test] -      case errOrRes of
[opt-env-conf-test] -        Left errs ->
[opt-env-conf-test] -          expectationFailure $
[opt-env-conf-test] -            unlines
[opt-env-conf-test] -              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] -                ppShow errs
[opt-env-conf-test] -              ]
[opt-env-conf-test] -        Right actual -> actual `shouldBe` expected
[opt-env-conf-test] +      case errOrRes of
[opt-env-conf-test] +        Left errs ->
[opt-env-conf-test] +          expectationFailure $
[opt-env-conf-test] +            unlines
[opt-env-conf-test] +              [ T.unpack $ renderChunksText With24BitColours $ renderErrors errs,
[opt-env-conf-test] +                ppShow errs
[opt-env-conf-test] +              ]
[opt-env-conf-test] +        Right actual -> actual `shouldBe` expected
[opt-env-conf-test]  
[opt-env-conf-test]  envParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([(String, String)], a)] -> Spec
[opt-env-conf-test]  envParseSpecs p table = withFrozenCallStack $ mapM_ (\(envs, result) -> envParseSpec envs p result) table
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:83:42-46
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]              forAllValid $ \mConf -> do
[opt-env-conf-test]                let p = empty :: Parser Int
[opt-env-conf-test]                shouldFail p args e mConf $ \case
[opt-env-conf-test] -                ParseErrorEmpty :| [] -> True
[opt-env-conf-test] +                ParseErrorEmpty :| [] -> False
[opt-env-conf-test]                  _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]      describe "Alt" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:84:22-27
[opt-env-conf-test] @@ -81,7 +81,7 @@
[opt-env-conf-test]                let p = empty :: Parser Int
[opt-env-conf-test]                shouldFail p args e mConf $ \case
[opt-env-conf-test]                  ParseErrorEmpty :| [] -> True
[opt-env-conf-test] -                _ -> False
[opt-env-conf-test] +                _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]      describe "Alt" $ do
[opt-env-conf-test]        it "can parse a Left value with Alt" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:120:52-56
[opt-env-conf-test] @@ -117,7 +117,7 @@
[opt-env-conf-test]              let args = emptyArgs
[opt-env-conf-test]              let p = some $ setting [reader str, argument] :: Parser [String]
[opt-env-conf-test]              shouldFail p args e mConf $ \case
[opt-env-conf-test] -              ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] +              ParseErrorMissingArgument _ :| [] -> False
[opt-env-conf-test]                _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "can parse some args" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:121:20-25
[opt-env-conf-test] @@ -118,7 +118,7 @@
[opt-env-conf-test]              let p = some $ setting [reader str, argument] :: Parser [String]
[opt-env-conf-test]              shouldFail p args e mConf $ \case
[opt-env-conf-test]                ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] -              _ -> False
[opt-env-conf-test] +              _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "can parse some args" $
[opt-env-conf-test]          forAllValid $ \e ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:153:67-71
[opt-env-conf-test] @@ -150,7 +150,7 @@
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                    ParseErrorCheckFailed False "failed" :| [] -> True
[opt-env-conf-test] +                    ParseErrorCheckFailed False "failed" :| [] -> False
[opt-env-conf-test]                      _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the check parser if the capability is not available" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:154:26-31
[opt-env-conf-test] @@ -151,7 +151,7 @@
[opt-env-conf-test]                    let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                      ParseErrorCheckFailed False "failed" :| [] -> True
[opt-env-conf-test] -                    _ -> False
[opt-env-conf-test] +                    _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the check parser if the capability is not available" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:167:60-64
[opt-env-conf-test] @@ -164,7 +164,7 @@
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                    ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] +                    ParseErrorMissingCapability _ :| [] -> False
[opt-env-conf-test]                      _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "still runs the below parser when a capability is missing for the check parser" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:168:26-31
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                    shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                      ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] -                    _ -> False
[opt-env-conf-test] +                    _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "still runs the below parser when a capability is missing for the check parser" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:176:34-35
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]              forAllValid $ \result ->
[opt-env-conf-test]                forAllValid $ \e ->
[opt-env-conf-test]                  forAllValid $ \mConf -> do
[opt-env-conf-test] -                  var <- newMVar 0
[opt-env-conf-test] +                  var <- newMVar 1
[opt-env-conf-test]                    let p = checkWithRequiredCapability capName (mapIO pure (mapIO (swapMVar var) (pure (result :: Int))))
[opt-env-conf-test]                    let cap = Capability (T.pack capName)
[opt-env-conf-test]                    let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test] added mutation ConstBool at test/OptEnvConf/RunSpec.hs:185:83-91
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | True -> True
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation Negate at test/OptEnvConf/RunSpec.hs:185:83-91
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | not (c == cap) -> True
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:185:95-99
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]                      Left errs -> do
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test] -                                            ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] +                                            ParseErrorMissingCapability c :| [] | c == cap -> False
[opt-env-conf-test]                                              _ -> False
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:186:50-55
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]                        NE.map parseErrorMessage errs
[opt-env-conf-test]                          `shouldSatisfy` ( \case
[opt-env-conf-test]                                              ParseErrorMissingCapability c :| [] | c == cap -> True
[opt-env-conf-test] -                                            _ -> False
[opt-env-conf-test] +                                            _ -> True
[opt-env-conf-test]                                          )
[opt-env-conf-test]                        readMVar var `shouldReturn` result -- instead of 1
[opt-env-conf-test]                      Right _ -> expectationFailure "The parser should not have succeeded."
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:201:56-60
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]                  let cap = Capability (T.pack capName)
[opt-env-conf-test]                  let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                  ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] +                  ParseErrorMissingArgument _ :| [] -> False
[opt-env-conf-test]                    _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the setting parser if the capability is available" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:202:24-29
[opt-env-conf-test] @@ -199,7 +199,7 @@
[opt-env-conf-test]                  let capabilities = enableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                    ParseErrorMissingArgument _ :| [] -> True
[opt-env-conf-test] -                  _ -> False
[opt-env-conf-test] +                  _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]        it "cannot run the setting parser if the capability is available" $
[opt-env-conf-test]          forAllValid $ \capabilitiesPrototype ->
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:214:58-62
[opt-env-conf-test] @@ -211,7 +211,7 @@
[opt-env-conf-test]                  let cap = Capability (T.pack capName)
[opt-env-conf-test]                  let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test] -                  ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] +                  ParseErrorMissingCapability _ :| [] -> False
[opt-env-conf-test]                    _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]      describe "WithConfig" $ do
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:215:24-29
[opt-env-conf-test] @@ -212,7 +212,7 @@
[opt-env-conf-test]                  let capabilities = disableCapability cap capabilitiesPrototype
[opt-env-conf-test]                  shouldFail' p capabilities Args.emptyArgs e mConf $ \case
[opt-env-conf-test]                    ParseErrorMissingCapability _ :| [] -> True
[opt-env-conf-test] -                  _ -> False
[opt-env-conf-test] +                  _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]      describe "WithConfig" $ do
[opt-env-conf-test]        it "can replace the config object" $
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:395:34-38
[opt-env-conf-test] @@ -392,7 +392,7 @@
[opt-env-conf-test]        -- Switch before argument
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch False, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Note that this could also be parsed as (False, "--foo") with a
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:396:10-14
[opt-env-conf-test] @@ -393,7 +393,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [switch True, long "foo"] <*> setting [reader str, argument])
[opt-env-conf-test] -        (True, "bar" :: String)
[opt-env-conf-test] +        (False, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Note that this could also be parsed as (False, "--foo") with a
[opt-env-conf-test]        -- leftover argument but somehow that's not what we want.
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:404:34-38
[opt-env-conf-test] @@ -401,7 +401,7 @@
[opt-env-conf-test]        -- No because then "--help" doesn't work.)
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch False, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:404:58-63
[opt-env-conf-test] @@ -401,7 +401,7 @@
[opt-env-conf-test]        -- No because then "--help" doesn't work.)
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] +        ((,) <$> setting [switch True, long "foo", value True] <*> setting [reader str, argument])
[opt-env-conf-test]          (True, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:405:10-14
[opt-env-conf-test] @@ -402,7 +402,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [switch True, long "foo", value False] <*> setting [reader str, argument])
[opt-env-conf-test] -        (True, "bar" :: String)
[opt-env-conf-test] +        (False, "bar" :: String)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:410:69-73
[opt-env-conf-test] @@ -407,7 +407,7 @@
[opt-env-conf-test]        -- Switch before argument, but defined after
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test] -        ((,) <$> setting [reader str, argument] <*> setting [switch True, long "foo"])
[opt-env-conf-test] +        ((,) <$> setting [reader str, argument] <*> setting [switch False, long "foo"])
[opt-env-conf-test]          ("bar" :: String, True)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Dashed as argument
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:411:27-31
[opt-env-conf-test] @@ -408,7 +408,7 @@
[opt-env-conf-test]        argParseSpec
[opt-env-conf-test]          ["--foo", "bar"]
[opt-env-conf-test]          ((,) <$> setting [reader str, argument] <*> setting [switch True, long "foo"])
[opt-env-conf-test] -        ("bar" :: String, True)
[opt-env-conf-test] +        ("bar" :: String, False)
[opt-env-conf-test]  
[opt-env-conf-test]        -- Dashed as argument
[opt-env-conf-test]        -- This example shows that we can't just skip dasheds when looking for
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:517:16-17
[opt-env-conf-test] @@ -514,7 +514,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ ([], 0),
[opt-env-conf-test] +        [ ([], 1),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:518:20-21
[opt-env-conf-test] @@ -515,7 +515,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test] -          (["-v"], 1),
[opt-env-conf-test] +          (["-v"], 0),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:518:20-21
[opt-env-conf-test] @@ -515,7 +515,7 @@
[opt-env-conf-test]                )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test] -          (["-v"], 1),
[opt-env-conf-test] +          (["-v"], -1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:519:27-28
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test] -          (["--verbose"], 1),
[opt-env-conf-test] +          (["--verbose"], 0),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:519:27-28
[opt-env-conf-test] @@ -516,7 +516,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test] -          (["--verbose"], 1),
[opt-env-conf-test] +          (["--verbose"], -1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], 0),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], 1),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:520:26-27
[opt-env-conf-test] @@ -517,7 +517,7 @@
[opt-env-conf-test]          [ ([], 0),
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test] -          (["-v", "-v"], 2),
[opt-env-conf-test] +          (["-v", "-v"], -2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], 0),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], 1),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:521:33-34
[opt-env-conf-test] @@ -518,7 +518,7 @@
[opt-env-conf-test]            (["-v"], 1),
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test] -          (["-v", "--verbose"], 2),
[opt-env-conf-test] +          (["-v", "--verbose"], -2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], 0),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], 1),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:522:21-22
[opt-env-conf-test] @@ -519,7 +519,7 @@
[opt-env-conf-test]            (["--verbose"], 1),
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test] -          (["-vv"], 2),
[opt-env-conf-test] +          (["-vv"], -2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], 0),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], 1),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:523:34-35
[opt-env-conf-test] @@ -520,7 +520,7 @@
[opt-env-conf-test]            (["-v", "-v"], 2),
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test] -          (["-vv", "--verbose"], 3),
[opt-env-conf-test] +          (["-vv", "--verbose"], -3),
[opt-env-conf-test]            (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], 0)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], 1)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:524:40-41
[opt-env-conf-test] @@ -521,7 +521,7 @@
[opt-env-conf-test]            (["-v", "--verbose"], 2),
[opt-env-conf-test]            (["-vv"], 2),
[opt-env-conf-test]            (["-vv", "--verbose"], 3),
[opt-env-conf-test] -          (["-vv", "--verbose", "-v"], 4)
[opt-env-conf-test] +          (["-vv", "--verbose", "-v"], -4)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short options as well
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:545:28-29
[opt-env-conf-test] @@ -542,7 +542,7 @@
[opt-env-conf-test]                  example ("file" :: String)
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] +        [ (["-f", "foo"], (1, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:546:34-35
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] -          (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] +          (["-v", "-f", "foo"], (0, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:546:34-35
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test] -          (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] +          (["-v", "-f", "foo"], (-1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (0, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (1, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:547:35-36
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test] -          (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] +          (["-vf", "foo", "-v"], (-2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (0, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:548:30-31
[opt-env-conf-test] @@ -545,7 +545,7 @@
[opt-env-conf-test]          [ (["-f", "foo"], (0, "foo" :: String)),
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] +          (["-vvf", "foo"], (-2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (0, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (1, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:549:36-37
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]            (["-v", "-f", "foo"], (1, "foo")),
[opt-env-conf-test]            (["-vf", "foo", "-v"], (2, "foo")),
[opt-env-conf-test]            (["-vvf", "foo"], (2, "foo")),
[opt-env-conf-test] -          (["-vvf", "foo", "-v"], (3, "foo"))
[opt-env-conf-test] +          (["-vvf", "foo", "-v"], (-3, "foo"))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        -- Unfolding short switches
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:573:21-22
[opt-env-conf-test] @@ -570,7 +570,7 @@
[opt-env-conf-test]                        )
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ ([], ([], 0)),
[opt-env-conf-test] +        [ ([], ([], 1)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:574:57-58
[opt-env-conf-test] @@ -571,7 +571,7 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test] -          (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] +          (["--file", "foo", "-v"], (["foo" :: String], 0)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:574:57-58
[opt-env-conf-test] @@ -571,7 +571,7 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test] -          (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] +          (["--file", "foo", "-v"], (["foo" :: String], -1)),
[opt-env-conf-test]            (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:575:38-39
[opt-env-conf-test] @@ -572,7 +572,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] -          (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test] +          (["-vf", "foo"], (["foo"], 0))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:575:38-39
[opt-env-conf-test] @@ -572,7 +572,7 @@
[opt-env-conf-test]          )
[opt-env-conf-test]          [ ([], ([], 0)),
[opt-env-conf-test]            (["--file", "foo", "-v"], (["foo" :: String], 1)),
[opt-env-conf-test] -          (["-vf", "foo"], (["foo"], 1))
[opt-env-conf-test] +          (["-vf", "foo"], (["foo"], -1))
[opt-env-conf-test]          ]
[opt-env-conf-test]        -- Equals version of long option
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:603:44-48
[opt-env-conf-test] @@ -600,7 +600,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        -- Optional Argument and optional switch
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test] -            [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test] +            [ (["foo", "-w"], (Just "foo", False)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:604:44-48
[opt-env-conf-test] @@ -601,7 +601,7 @@
[opt-env-conf-test]        -- Optional Argument and optional switch
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test] -              (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test] +              (["-w", "foo"], (Just "foo", False)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:605:49-53
[opt-env-conf-test] @@ -602,7 +602,7 @@
[opt-env-conf-test]        let optionalArgOptionalSwitchExamples =
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test] -              (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test] +              (["foo", "--watch"], (Just "foo", False)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:606:49-53
[opt-env-conf-test] @@ -603,7 +603,7 @@
[opt-env-conf-test]              [ (["foo", "-w"], (Just "foo", True)),
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test] -              (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] +              (["--watch", "foo"], (Just "foo", False)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:607:38-43
[opt-env-conf-test] @@ -604,7 +604,7 @@
[opt-env-conf-test]                (["-w", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test] -              (["foo"], (Just "foo", False)),
[opt-env-conf-test] +              (["foo"], (Just "foo", True)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:608:42-47
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]                (["foo", "--watch"], (Just "foo", True)),
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test] -              (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] +              (["--bar"], (Just "--bar", True)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:609:34-38
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]                (["--watch", "foo"], (Just "foo", True)),
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test] -              (["-w"], (Nothing, True)),
[opt-env-conf-test] +              (["-w"], (Nothing, False)),
[opt-env-conf-test]                (["--watch"], (Nothing, True))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:610:39-43
[opt-env-conf-test] @@ -607,7 +607,7 @@
[opt-env-conf-test]                (["foo"], (Just "foo", False)),
[opt-env-conf-test]                (["--bar"], (Just "--bar", False)),
[opt-env-conf-test]                (["-w"], (Nothing, True)),
[opt-env-conf-test] -              (["--watch"], (Nothing, True))
[opt-env-conf-test] +              (["--watch"], (Nothing, False))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:630:25-26
[opt-env-conf-test] @@ -627,7 +627,7 @@
[opt-env-conf-test]          optionalArgOptionalSwitchExamples
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test] -            [ ([], ([], 0)),
[opt-env-conf-test] +            [ ([], ([], 1)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], 0)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], 1)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:631:31-32
[opt-env-conf-test] @@ -628,7 +628,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test] -              (["-vvv"], ([], 3)),
[opt-env-conf-test] +              (["-vvv"], ([], -3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:632:33-34
[opt-env-conf-test] @@ -629,7 +629,7 @@
[opt-env-conf-test]        let verbosityArgsExamples =
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test] -              (["--"], (["--"], 0)),
[opt-env-conf-test] +              (["--"], (["--"], 1)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:633:39-40
[opt-env-conf-test] @@ -630,7 +630,7 @@
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test] -              (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] +              (["-v", "--"], (["--"], 0)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:633:39-40
[opt-env-conf-test] @@ -630,7 +630,7 @@
[opt-env-conf-test]              [ ([], ([], 0)),
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test] -              (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] +              (["-v", "--"], (["--"], -1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], 0)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], 1)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:634:40-41
[opt-env-conf-test] @@ -631,7 +631,7 @@
[opt-env-conf-test]                (["-vvv"], ([], 3)),
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test] -              (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] +              (["-vv", "--"], (["--"], -2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:635:39-40
[opt-env-conf-test] @@ -632,7 +632,7 @@
[opt-env-conf-test]                (["--"], (["--"], 0)),
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test] -              (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] +              (["--", "-v"], (["-v"], 1)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:636:53-54
[opt-env-conf-test] @@ -633,7 +633,7 @@
[opt-env-conf-test]                (["-v", "--"], (["--"], 1)),
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test] -              (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] +              (["a", "-v", "b", "-v"], (["a", "b"], -2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:637:66-67
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]                (["-vv", "--"], (["--"], 2)),
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], -3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:638:72-73
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]                (["--", "-v"], (["-v"], 0)),
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], -4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:639:82-83
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]                (["a", "-v", "b", "-v"], (["a", "b"], 2)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], -4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 0)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 1)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:640:83-84
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "b", "-v"], (["a", "b"], 3)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], -5)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 0))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 1))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:641:89-90
[opt-env-conf-test] @@ -638,7 +638,7 @@
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v"], (["a", "b"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-v", "b", "-v", "c"], (["a", "b", "c"], 4)),
[opt-env-conf-test]                (["a", "--verbose", "-v", "-vv", "b", "-v", "c"], (["a", "b", "c"], 5)),
[opt-env-conf-test] -              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], 6))
[opt-env-conf-test] +              (["a", "--verbose", "-v", "-vv", "-v", "b", "-v", "c"], (["a", "b", "c"], -6))
[opt-env-conf-test]              ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( (,)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:698:84-88
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          optionsArgsExamples
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:699:16-20
[opt-env-conf-test] @@ -696,7 +696,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:700:34-38
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          (["--enable-example"], True),
[opt-env-conf-test] +          (["--enable-example"], False),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:701:35-40
[opt-env-conf-test] @@ -698,7 +698,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test] -          (["--disable-example"], False)
[opt-env-conf-test] +          (["--disable-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:705:84-89
[opt-env-conf-test] @@ -702,7 +702,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:706:16-21
[opt-env-conf-test] @@ -703,7 +703,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:707:34-38
[opt-env-conf-test] @@ -704,7 +704,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          (["--enable-example"], True),
[opt-env-conf-test] +          (["--enable-example"], False),
[opt-env-conf-test]            (["--disable-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:708:35-40
[opt-env-conf-test] @@ -705,7 +705,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--enable-example"], True),
[opt-env-conf-test] -          (["--disable-example"], False)
[opt-env-conf-test] +          (["--disable-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:714:39-43
[opt-env-conf-test] @@ -711,7 +711,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (optional $ enableDisableSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test] -          (["--enable-example"], Just True),
[opt-env-conf-test] +          (["--enable-example"], Just False),
[opt-env-conf-test]            (["--disable-example"], Just False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:715:40-45
[opt-env-conf-test] @@ -712,7 +712,7 @@
[opt-env-conf-test]          (optional $ enableDisableSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test]            (["--enable-example"], Just True),
[opt-env-conf-test] -          (["--disable-example"], Just False)
[opt-env-conf-test] +          (["--disable-example"], Just True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:719:103-107
[opt-env-conf-test] @@ -716,7 +716,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:720:16-20
[opt-env-conf-test] @@ -717,7 +717,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:721:36-41
[opt-env-conf-test] @@ -718,7 +718,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:722:40-45
[opt-env-conf-test] @@ -719,7 +719,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:723:35-39
[opt-env-conf-test] @@ -720,7 +720,7 @@
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:724:39-43
[opt-env-conf-test] @@ -721,7 +721,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:728:103-108
[opt-env-conf-test] @@ -725,7 +725,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] +        (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:729:16-21
[opt-env-conf-test] @@ -726,7 +726,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:730:35-39
[opt-env-conf-test] @@ -727,7 +727,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:731:39-43
[opt-env-conf-test] @@ -728,7 +728,7 @@
[opt-env-conf-test]          (enableDisableSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:732:36-41
[opt-env-conf-test] @@ -729,7 +729,7 @@
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:733:40-45
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:737:76-80
[opt-env-conf-test] @@ -734,7 +734,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:738:16-20
[opt-env-conf-test] @@ -735,7 +735,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:739:27-31
[opt-env-conf-test] @@ -736,7 +736,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          (["--example"], True),
[opt-env-conf-test] +          (["--example"], False),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:740:30-35
[opt-env-conf-test] @@ -737,7 +737,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test] -          (["--no-example"], False)
[opt-env-conf-test] +          (["--no-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:744:76-81
[opt-env-conf-test] @@ -741,7 +741,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:745:16-21
[opt-env-conf-test] @@ -742,7 +742,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:746:27-31
[opt-env-conf-test] @@ -743,7 +743,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          (["--example"], True),
[opt-env-conf-test] +          (["--example"], False),
[opt-env-conf-test]            (["--no-example"], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:747:30-35
[opt-env-conf-test] @@ -744,7 +744,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            (["--example"], True),
[opt-env-conf-test] -          (["--no-example"], False)
[opt-env-conf-test] +          (["--no-example"], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:753:32-36
[opt-env-conf-test] @@ -750,7 +750,7 @@
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          (optional $ yesNoSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test] -          (["--example"], Just True),
[opt-env-conf-test] +          (["--example"], Just False),
[opt-env-conf-test]            (["--no-example"], Just False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:754:35-40
[opt-env-conf-test] @@ -751,7 +751,7 @@
[opt-env-conf-test]          (optional $ yesNoSwitch [long "example", env "EXAMPLE", conf "example"])
[opt-env-conf-test]          [ ([], Nothing),
[opt-env-conf-test]            (["--example"], Just True),
[opt-env-conf-test] -          (["--no-example"], Just False)
[opt-env-conf-test] +          (["--no-example"], Just True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:758:95-99
[opt-env-conf-test] @@ -755,7 +755,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:759:16-20
[opt-env-conf-test] @@ -756,7 +756,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test] -        [ ([], True),
[opt-env-conf-test] +        [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:760:36-41
[opt-env-conf-test] @@ -757,7 +757,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:761:40-45
[opt-env-conf-test] @@ -758,7 +758,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:762:35-39
[opt-env-conf-test] @@ -759,7 +759,7 @@
[opt-env-conf-test]          [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:763:39-43
[opt-env-conf-test] @@ -760,7 +760,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True)
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:767:95-100
[opt-env-conf-test] @@ -764,7 +764,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test] -        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] +        (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value True])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:768:16-21
[opt-env-conf-test] @@ -765,7 +765,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test] -        [ ([], False),
[opt-env-conf-test] +        [ ([], True),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:769:35-39
[opt-env-conf-test] @@ -766,7 +766,7 @@
[opt-env-conf-test]        envParseSpecs
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test] -          ([("EXAMPLE", "True")], True),
[opt-env-conf-test] +          ([("EXAMPLE", "True")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:770:39-43
[opt-env-conf-test] @@ -767,7 +767,7 @@
[opt-env-conf-test]          (yesNoSwitch [long "example", env "EXAMPLE", env "ALTERNATIVE", conf "example", value False])
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test] -          ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] +          ([("ALTERNATIVE", "True")], False),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:771:36-41
[opt-env-conf-test] @@ -768,7 +768,7 @@
[opt-env-conf-test]          [ ([], False),
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test] -          ([("EXAMPLE", "False")], False),
[opt-env-conf-test] +          ([("EXAMPLE", "False")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:772:40-45
[opt-env-conf-test] @@ -769,7 +769,7 @@
[opt-env-conf-test]            ([("EXAMPLE", "True")], True),
[opt-env-conf-test]            ([("ALTERNATIVE", "True")], True),
[opt-env-conf-test]            ([("EXAMPLE", "False")], False),
[opt-env-conf-test] -          ([("ALTERNATIVE", "False")], False)
[opt-env-conf-test] +          ([("ALTERNATIVE", "False")], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:786:36-40
[opt-env-conf-test] @@ -783,7 +783,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test] +        ((Left <$> setting [switch False, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test]          [ (["--bash-completion-script"], Left True),
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:787:47-51
[opt-env-conf-test] @@ -784,7 +784,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> setting [reader str, argument]))
[opt-env-conf-test] -        [ (["--bash-completion-script"], Left True),
[opt-env-conf-test] +        [ (["--bash-completion-script"], Left False),
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:791:36-40
[opt-env-conf-test] @@ -788,7 +788,7 @@
[opt-env-conf-test]            (["arg"], Right ("arg" :: String))
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test] -        ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test] +        ((Left <$> setting [switch False, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test]          [ (["--bash-completion-script"], Left True),
[opt-env-conf-test]            (["arg"], Right (Just ("arg" :: String)))
[opt-env-conf-test]          ]
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:792:47-51
[opt-env-conf-test] @@ -789,7 +789,7 @@
[opt-env-conf-test]          ]
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ((Left <$> setting [switch True, long "bash-completion-script"]) <|> (Right <$> optional (setting [reader str, argument])))
[opt-env-conf-test] -        [ (["--bash-completion-script"], Left True),
[opt-env-conf-test] +        [ (["--bash-completion-script"], Left False),
[opt-env-conf-test]            (["arg"], Right (Just ("arg" :: String)))
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left 0),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left 1),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/RunSpec.hs:927:51-52
[opt-env-conf-test] @@ -924,7 +924,7 @@
[opt-env-conf-test]                confWith "foo" (Right <$> codec)
[opt-env-conf-test]              ]
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (Just [("hi", toJSON (5 :: Int))], Left 5),
[opt-env-conf-test] +        [ (Just [("hi", toJSON (5 :: Int))], Left -5),
[opt-env-conf-test]            (Just [("foo", "bar")], Right "bar" :: Either Int String)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:933:13-18
[opt-env-conf-test] @@ -930,7 +930,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        argParseSpecs
[opt-env-conf-test]          ( withDefault
[opt-env-conf-test] -            False
[opt-env-conf-test] +            True
[opt-env-conf-test]              ( setting
[opt-env-conf-test]                  [ argument,
[opt-env-conf-test]                    reader auto
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:940:22-26
[opt-env-conf-test] @@ -937,7 +937,7 @@
[opt-env-conf-test]                  ]
[opt-env-conf-test]              )
[opt-env-conf-test]          )
[opt-env-conf-test] -        [ (["True"], True),
[opt-env-conf-test] +        [ (["True"], False),
[opt-env-conf-test]            ([], False)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/RunSpec.hs:941:16-21
[opt-env-conf-test] @@ -938,7 +938,7 @@
[opt-env-conf-test]              )
[opt-env-conf-test]          )
[opt-env-conf-test]          [ (["True"], True),
[opt-env-conf-test] -          ([], False)
[opt-env-conf-test] +          ([], True)
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  argParseSpecs :: (HasCallStack) => (Show a, Eq a) => Parser a -> [([String], a)] -> Spec
[opt-env-conf-test] added 156 mutations
[opt-env-conf-test] [11 of 17] Compiling OptEnvConf.TestUtils ( test/OptEnvConf/TestUtils.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/TestUtils.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.TestUtils
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [12 of 17] Compiling OptEnvConf.HelpSpec ( test/OptEnvConf/HelpSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/HelpSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.HelpSpec
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:165:13-102
[opt-env-conf-test] @@ -162,6 +162,6 @@
[opt-env-conf-test]          let progname = "example"
[opt-env-conf-test]          pure $
[opt-env-conf-test]            pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:165:13-102
[opt-env-conf-test] @@ -162,6 +162,6 @@
[opt-env-conf-test]          let progname = "example"
[opt-env-conf-test]          pure $
[opt-env-conf-test]            pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:159:5-102
[opt-env-conf-test] @@ -156,12 +156,12 @@
[opt-env-conf-test]      let argMap = Args.parseArgs args
[opt-env-conf-test]      let parser = settingsParser @Instructions
[opt-env-conf-test]      errOrDocs <- runHelpParser Nothing argMap parser
[opt-env-conf-test] -    case errOrDocs of
[opt-env-conf-test] -      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] -      Right mCommandDoc -> do
[opt-env-conf-test] -        let progname = "example"
[opt-env-conf-test] -        pure $
[opt-env-conf-test] -          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +    case errOrDocs of
[opt-env-conf-test] +      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] +      Right mCommandDoc -> do
[opt-env-conf-test] +        let progname = "example"
[opt-env-conf-test] +        pure $
[opt-env-conf-test] +          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/HelpSpec.hs:159:5-102
[opt-env-conf-test] @@ -156,12 +156,12 @@
[opt-env-conf-test]      let argMap = Args.parseArgs args
[opt-env-conf-test]      let parser = settingsParser @Instructions
[opt-env-conf-test]      errOrDocs <- runHelpParser Nothing argMap parser
[opt-env-conf-test] -    case errOrDocs of
[opt-env-conf-test] -      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] -      Right mCommandDoc -> do
[opt-env-conf-test] -        let progname = "example"
[opt-env-conf-test] -        pure $
[opt-env-conf-test] -          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] -            case mCommandDoc of
[opt-env-conf-test] -              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] -              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] +    case errOrDocs of
[opt-env-conf-test] +      Left err -> expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderErrors err
[opt-env-conf-test] +      Right mCommandDoc -> do
[opt-env-conf-test] +        let progname = "example"
[opt-env-conf-test] +        pure $
[opt-env-conf-test] +          pureGoldenChunksFile ("test_resources/help/" <> file <> ".txt") $
[opt-env-conf-test] +            case mCommandDoc of
[opt-env-conf-test] +              Nothing -> renderHelpPage progname version "example program description" (parserDocs parser)
[opt-env-conf-test] +              Just (commandPath, commandDoc) -> renderCommandHelpPage progname commandPath commandDoc
[opt-env-conf-test] added 4 mutations
[opt-env-conf-test] [13 of 17] Compiling OptEnvConf.APISpec ( test/OptEnvConf/APISpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/APISpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.APISpec
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,5 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,8 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] +            short 'v',
[opt-env-conf-test] +            switch ()
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:506:11-12
[opt-env-conf-test] @@ -503,8 +503,8 @@
[opt-env-conf-test]    length
[opt-env-conf-test]      <$> many
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] -            short 'v',
[opt-env-conf-test] -            switch ()
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "Verbosity level. Use multiple to increase verbosity",
[opt-env-conf-test] +            short 'v',
[opt-env-conf-test] +            switch ()
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,7 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,10 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "c" "C" $ pure C,
[opt-env-conf-test] +      command "d" "D" $ pure D,
[opt-env-conf-test] +      defaultCommand "c"
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:496:5-6
[opt-env-conf-test] @@ -493,10 +493,9 @@
[opt-env-conf-test]  sub2Parser :: Parser Sub2
[opt-env-conf-test]  sub2Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "c" "C" $ pure C,
[opt-env-conf-test] -      command "d" "D" $ pure D,
[opt-env-conf-test] -      defaultCommand "c"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "c" "C" $ pure C,
[opt-env-conf-test] +      command "d" "D" $ pure D
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  verboseParser :: Parser Int
[opt-env-conf-test]  verboseParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:487:5-6
[opt-env-conf-test] @@ -484,9 +484,7 @@
[opt-env-conf-test]  sub1Parser :: Parser Sub1
[opt-env-conf-test]  sub1Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "a" "A" $ pure A,
[opt-env-conf-test] -      command "b" "B" $ pure B
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub2 = C | D
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:487:5-6
[opt-env-conf-test] @@ -484,9 +484,9 @@
[opt-env-conf-test]  sub1Parser :: Parser Sub1
[opt-env-conf-test]  sub1Parser =
[opt-env-conf-test]    commands
[opt-env-conf-test] -    [ command "a" "A" $ pure A,
[opt-env-conf-test] -      command "b" "B" $ pure B
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ command "a" "A" $ pure A,
[opt-env-conf-test] +      command "b" "B" $ pure B
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub2 = C | D
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,7 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,12 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name",
[opt-env-conf-test] +                example "john"
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:472:15-16
[opt-env-conf-test] @@ -469,12 +469,11 @@
[opt-env-conf-test]        [ command "top" "command without subcommands" $
[opt-env-conf-test]            Top
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "sub" "command with subcommands" $
[opt-env-conf-test]            Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:469:7-8
[opt-env-conf-test] @@ -466,18 +466,7 @@
[opt-env-conf-test]  subCommandsParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "top" "command without subcommands" $
[opt-env-conf-test] -          Top
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "sub" "command with subcommands" $
[opt-env-conf-test] -          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub1 = A | B
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:469:7-8
[opt-env-conf-test] @@ -466,18 +466,18 @@
[opt-env-conf-test]  subCommandsParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "top" "command without subcommands" $
[opt-env-conf-test] -          Top
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "name",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "NAME",
[opt-env-conf-test] -                name "name",
[opt-env-conf-test] -                example "john"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "sub" "command with subcommands" $
[opt-env-conf-test] -          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "top" "command without subcommands" $
[opt-env-conf-test] +          Top
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "name",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "NAME",
[opt-env-conf-test] +                name "name",
[opt-env-conf-test] +                example "john"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "sub" "command with subcommands" $
[opt-env-conf-test] +          Sub <$> sub1Parser <*> sub2Parser
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data Sub1 = A | B
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,7 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,11 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:436:15-16
[opt-env-conf-test] @@ -433,11 +433,10 @@
[opt-env-conf-test]        [ command "one" "first" $
[opt-env-conf-test]            One
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample 0
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample 1
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:450:30-31
[opt-env-conf-test] @@ -447,7 +447,7 @@
[opt-env-conf-test]                  metavar "INT",
[opt-env-conf-test]                  name "number",
[opt-env-conf-test]                  short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] +                shownExample -5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,7 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,14 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:444:15-16
[opt-env-conf-test] @@ -441,14 +441,13 @@
[opt-env-conf-test]          command "two" "second" $
[opt-env-conf-test]            Two
[opt-env-conf-test]              <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n'
[opt-env-conf-test] +]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:455:23-28
[opt-env-conf-test] @@ -452,7 +452,7 @@
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test]                [ help "enable extra",
[opt-env-conf-test]                  name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] +                value True
[opt-env-conf-test]                ],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,7 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,10 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:453:15-16
[opt-env-conf-test] @@ -450,10 +450,9 @@
[opt-env-conf-test]                  shownExample 5
[opt-env-conf-test]                ]
[opt-env-conf-test]              <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable"
[opt-env-conf-test] +],
[opt-env-conf-test]          command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test]          defaultCommand "one"
[opt-env-conf-test]        ]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,7 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,33 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "one" "first" $
[opt-env-conf-test] +          One
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "two" "second" $
[opt-env-conf-test] +          Two
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            <*> enableDisableSwitch
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] +        defaultCommand "one"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:433:7-8
[opt-env-conf-test] @@ -430,33 +430,32 @@
[opt-env-conf-test]  threeCommandsParser =
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      commands
[opt-env-conf-test] -      [ command "one" "first" $
[opt-env-conf-test] -          One
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "argument",
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                metavar "STR",
[opt-env-conf-test] -                argument
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "two" "second" $
[opt-env-conf-test] -          Two
[opt-env-conf-test] -            <$> setting
[opt-env-conf-test] -              [ help "number",
[opt-env-conf-test] -                reader auto,
[opt-env-conf-test] -                option,
[opt-env-conf-test] -                metavar "INT",
[opt-env-conf-test] -                name "number",
[opt-env-conf-test] -                short 'n',
[opt-env-conf-test] -                shownExample 5
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            <*> enableDisableSwitch
[opt-env-conf-test] -              [ help "enable extra",
[opt-env-conf-test] -                name "enable",
[opt-env-conf-test] -                value False
[opt-env-conf-test] -              ],
[opt-env-conf-test] -        command "three-very-long-command-name" "third" (pure Three),
[opt-env-conf-test] -        defaultCommand "one"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ command "one" "first" $
[opt-env-conf-test] +          One
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "argument",
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                metavar "STR",
[opt-env-conf-test] +                argument
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "two" "second" $
[opt-env-conf-test] +          Two
[opt-env-conf-test] +            <$> setting
[opt-env-conf-test] +              [ help "number",
[opt-env-conf-test] +                reader auto,
[opt-env-conf-test] +                option,
[opt-env-conf-test] +                metavar "INT",
[opt-env-conf-test] +                name "number",
[opt-env-conf-test] +                short 'n',
[opt-env-conf-test] +                shownExample 5
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            <*> enableDisableSwitch
[opt-env-conf-test] +              [ help "enable extra",
[opt-env-conf-test] +                name "enable",
[opt-env-conf-test] +                value False
[opt-env-conf-test] +              ],
[opt-env-conf-test] +        command "three-very-long-command-name" "third" (pure Three)
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data SubCommands
[opt-env-conf-test]    = Top !String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,7 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,11 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of a yes/no switch",
[opt-env-conf-test] +              env "EXAMPLE",
[opt-env-conf-test] +              conf "example"
[opt-env-conf-test] +            ]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:411:13-14
[opt-env-conf-test] @@ -408,11 +408,10 @@
[opt-env-conf-test]      fmap YesNo
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( yesNoSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of a yes/no switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of a yes/no switch",
[opt-env-conf-test] +              env "EXAMPLE"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data Empty = Empty
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:402:17-21
[opt-env-conf-test] @@ -399,7 +399,7 @@
[opt-env-conf-test]            help "Example of a yes/no switch",
[opt-env-conf-test]            env "EXAMPLE",
[opt-env-conf-test]            conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] +          value False
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,12 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of a yes/no switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example",
[opt-env-conf-test] +          value True
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:398:9-10
[opt-env-conf-test] @@ -395,12 +395,11 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      YesNo
[opt-env-conf-test]        <$> yesNoSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of a yes/no switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of a yes/no switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  yesNoParser' :: Parser (Maybe YesNo)
[opt-env-conf-test]  yesNoParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,7 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,11 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of an enable/disable switch",
[opt-env-conf-test] +              env "EXAMPLE",
[opt-env-conf-test] +              conf "example"
[opt-env-conf-test] +            ]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:384:13-14
[opt-env-conf-test] @@ -381,11 +381,10 @@
[opt-env-conf-test]      fmap EnableDisable
[opt-env-conf-test]        <$> optional
[opt-env-conf-test]          ( enableDisableSwitch
[opt-env-conf-test] -            [ long "example",
[opt-env-conf-test] -              help "Example of an enable/disable switch",
[opt-env-conf-test] -              env "EXAMPLE",
[opt-env-conf-test] -              conf "example"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ long "example",
[opt-env-conf-test] +              help "Example of an enable/disable switch",
[opt-env-conf-test] +              env "EXAMPLE"
[opt-env-conf-test] +]
[opt-env-conf-test]          )
[opt-env-conf-test]  
[opt-env-conf-test]  data YesNo = YesNo Bool
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:375:17-21
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]            help "Example of an enable/disable switch",
[opt-env-conf-test]            env "EXAMPLE",
[opt-env-conf-test]            conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] +          value False
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,12 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of an enable/disable switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example",
[opt-env-conf-test] +          value True
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:371:9-10
[opt-env-conf-test] @@ -368,12 +368,11 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      EnableDisable
[opt-env-conf-test]        <$> enableDisableSwitch
[opt-env-conf-test] -        [ long "example",
[opt-env-conf-test] -          help "Example of an enable/disable switch",
[opt-env-conf-test] -          env "EXAMPLE",
[opt-env-conf-test] -          conf "example",
[opt-env-conf-test] -          value True
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ long "example",
[opt-env-conf-test] +          help "Example of an enable/disable switch",
[opt-env-conf-test] +          env "EXAMPLE",
[opt-env-conf-test] +          conf "example"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  enableDisableParser' :: Parser (Maybe EnableDisable)
[opt-env-conf-test]  enableDisableParser' =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,7 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,13 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ reader str,
[opt-env-conf-test] +        argument,
[opt-env-conf-test] +        hidden,
[opt-env-conf-test] +        metavar "STR",
[opt-env-conf-test] +        value "default",
[opt-env-conf-test] +        help "Example of a hidden setting"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:356:7-8
[opt-env-conf-test] @@ -353,13 +353,12 @@
[opt-env-conf-test]  hiddenParser =
[opt-env-conf-test]    Hidden
[opt-env-conf-test]      <$> setting
[opt-env-conf-test] -      [ reader str,
[opt-env-conf-test] -        argument,
[opt-env-conf-test] -        hidden,
[opt-env-conf-test] -        metavar "STR",
[opt-env-conf-test] -        value "default",
[opt-env-conf-test] -        help "Example of a hidden setting"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ reader str,
[opt-env-conf-test] +        argument,
[opt-env-conf-test] +        hidden,
[opt-env-conf-test] +        metavar "STR",
[opt-env-conf-test] +        value "default"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data EnableDisable = EnableDisable Bool
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,7 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,11 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Argument",
[opt-env-conf-test] +            metavar "ARGUMENT"
[opt-env-conf-test] +          ]
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:343:11-12
[opt-env-conf-test] @@ -340,11 +340,10 @@
[opt-env-conf-test]    Optional
[opt-env-conf-test]      <$> optional
[opt-env-conf-test]        ( setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Argument",
[opt-env-conf-test] -            metavar "ARGUMENT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]        )
[opt-env-conf-test]  
[opt-env-conf-test]  data Hidden = Hidden String
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,7 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,11 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument",
[opt-env-conf-test] +          metavar "ARGUMENT"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:329:9-10
[opt-env-conf-test] @@ -326,11 +326,10 @@
[opt-env-conf-test]  someArgsParser =
[opt-env-conf-test]    some
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  data Optional = Optional (Maybe String)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,7 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,11 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument",
[opt-env-conf-test] +          metavar "ARGUMENT"
[opt-env-conf-test] +        ]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:318:9-10
[opt-env-conf-test] @@ -315,11 +315,10 @@
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test]    many
[opt-env-conf-test]      ( setting
[opt-env-conf-test] -        [ reader str,
[opt-env-conf-test] -          argument,
[opt-env-conf-test] -          help "Argument",
[opt-env-conf-test] -          metavar "ARGUMENT"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ reader str,
[opt-env-conf-test] +          argument,
[opt-env-conf-test] +          help "Argument"
[opt-env-conf-test] +]
[opt-env-conf-test]      )
[opt-env-conf-test]  
[opt-env-conf-test]  someArgsParser :: Parser [String]
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,7 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,11 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            name "quux",
[opt-env-conf-test] +            help "Example with sub-settings",
[opt-env-conf-test] +            metavar "STR"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:308:11-12
[opt-env-conf-test] @@ -305,11 +305,10 @@
[opt-env-conf-test]      subAll "foo" $
[opt-env-conf-test]        subAll "bar" $
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            name "quux",
[opt-env-conf-test] -            help "Example with sub-settings",
[opt-env-conf-test] -            metavar "STR"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            name "quux",
[opt-env-conf-test] +            help "Example with sub-settings"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  manyArgsParser :: Parser [String]
[opt-env-conf-test]  manyArgsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:298:7-8
[opt-env-conf-test] @@ -295,9 +295,7 @@
[opt-env-conf-test]  bigConfigParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      setting
[opt-env-conf-test] -      [ conf "big",
[opt-env-conf-test] -        help "big configuration object"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  subSettingsParser :: Parser String
[opt-env-conf-test]  subSettingsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:298:7-8
[opt-env-conf-test] @@ -295,9 +295,9 @@
[opt-env-conf-test]  bigConfigParser =
[opt-env-conf-test]    withLocalYamlConfig $
[opt-env-conf-test]      setting
[opt-env-conf-test] -      [ conf "big",
[opt-env-conf-test] -        help "big configuration object"
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ conf "big",
[opt-env-conf-test] +        help "big configuration object"
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  subSettingsParser :: Parser String
[opt-env-conf-test]  subSettingsParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,7 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,17 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            option,
[opt-env-conf-test] +            short 'g',
[opt-env-conf-test] +            long "greeting",
[opt-env-conf-test] +            metavar "GREETING",
[opt-env-conf-test] +            env "GREETING",
[opt-env-conf-test] +            conf "greeting",
[opt-env-conf-test] +            value "Hello",
[opt-env-conf-test] +            example "Greetings",
[opt-env-conf-test] +            help "Greeting to use"
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:252:11-12
[opt-env-conf-test] @@ -249,17 +249,16 @@
[opt-env-conf-test]      withLocalYamlConfig $
[opt-env-conf-test]        Greet
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            option,
[opt-env-conf-test] -            short 'g',
[opt-env-conf-test] -            long "greeting",
[opt-env-conf-test] -            metavar "GREETING",
[opt-env-conf-test] -            env "GREETING",
[opt-env-conf-test] -            conf "greeting",
[opt-env-conf-test] -            value "Hello",
[opt-env-conf-test] -            example "Greetings",
[opt-env-conf-test] -            help "Greeting to use"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            option,
[opt-env-conf-test] +            short 'g',
[opt-env-conf-test] +            long "greeting",
[opt-env-conf-test] +            metavar "GREETING",
[opt-env-conf-test] +            env "GREETING",
[opt-env-conf-test] +            conf "greeting",
[opt-env-conf-test] +            value "Hello",
[opt-env-conf-test] +            example "Greetings"
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader str,
[opt-env-conf-test]              argument,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,7 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,12 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Who to greet",
[opt-env-conf-test] +            value "world",
[opt-env-conf-test] +            metavar "SUBJECT"
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:264:11-12
[opt-env-conf-test] @@ -261,12 +261,11 @@
[opt-env-conf-test]              help "Greeting to use"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader str,
[opt-env-conf-test] -            argument,
[opt-env-conf-test] -            help "Who to greet",
[opt-env-conf-test] -            value "world",
[opt-env-conf-test] -            metavar "SUBJECT"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader str,
[opt-env-conf-test] +            argument,
[opt-env-conf-test] +            help "Who to greet",
[opt-env-conf-test] +            value "world"
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test]              switch True,
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:272:20-24
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] +            switch False,
[opt-env-conf-test]              short 'p',
[opt-env-conf-test]              long "polite",
[opt-env-conf-test]              env "POLITE",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:278:19-24
[opt-env-conf-test] @@ -275,7 +275,7 @@
[opt-env-conf-test]              env "POLITE",
[opt-env-conf-test]              conf "polite",
[opt-env-conf-test]              metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] +            value True,
[opt-env-conf-test]              help "Whether to be polite"
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,7 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,16 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader exists,
[opt-env-conf-test] +            switch True,
[opt-env-conf-test] +            short 'p',
[opt-env-conf-test] +            long "polite",
[opt-env-conf-test] +            env "POLITE",
[opt-env-conf-test] +            conf "polite",
[opt-env-conf-test] +            metavar "ANY",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            help "Whether to be polite"
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:271:11-12
[opt-env-conf-test] @@ -268,16 +268,15 @@
[opt-env-conf-test]              metavar "SUBJECT"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ reader exists,
[opt-env-conf-test] -            switch True,
[opt-env-conf-test] -            short 'p',
[opt-env-conf-test] -            long "polite",
[opt-env-conf-test] -            env "POLITE",
[opt-env-conf-test] -            conf "polite",
[opt-env-conf-test] -            metavar "ANY",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            help "Whether to be polite"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ reader exists,
[opt-env-conf-test] +            switch True,
[opt-env-conf-test] +            short 'p',
[opt-env-conf-test] +            long "polite",
[opt-env-conf-test] +            env "POLITE",
[opt-env-conf-test] +            conf "polite",
[opt-env-conf-test] +            metavar "ANY",
[opt-env-conf-test] +            value False
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data BigConfig = BigConfig
[opt-env-conf-test]    { bigConfigMap :: Map String (Map String Int),
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:199:9-10
[opt-env-conf-test] @@ -196,9 +196,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      (,,,,)
[opt-env-conf-test]        <$> secretTextFileSetting
[opt-env-conf-test] -        [ help "First example secret",
[opt-env-conf-test] -          name "first-secret-file"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file",
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:199:9-10
[opt-env-conf-test] @@ -196,9 +196,9 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      (,,,,)
[opt-env-conf-test]        <$> secretTextFileSetting
[opt-env-conf-test] -        [ help "First example secret",
[opt-env-conf-test] -          name "first-secret-file"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "First example secret",
[opt-env-conf-test] +          name "first-secret-file"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file",
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:203:9-10
[opt-env-conf-test] @@ -200,9 +200,7 @@
[opt-env-conf-test]            name "first-secret-file"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] -          name "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test]            option,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:203:9-10
[opt-env-conf-test] @@ -200,9 +200,9 @@
[opt-env-conf-test]            name "first-secret-file"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] -          name "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file",
[opt-env-conf-test] +          name "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test]            option,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,7 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,10 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] +          option,
[opt-env-conf-test] +          long "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:207:9-10
[opt-env-conf-test] @@ -204,10 +204,9 @@
[opt-env-conf-test]            name "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] -          option,
[opt-env-conf-test] -          long "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only option",
[opt-env-conf-test] +          option
[opt-env-conf-test] +]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:212:9-10
[opt-env-conf-test] @@ -209,9 +209,7 @@
[opt-env-conf-test]            long "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] -          env "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test]            conf "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:212:9-10
[opt-env-conf-test] @@ -209,9 +209,9 @@
[opt-env-conf-test]            long "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] -          env "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only env",
[opt-env-conf-test] +          env "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test]          [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test]            conf "second-secret"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:216:9-10
[opt-env-conf-test] @@ -213,9 +213,7 @@
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] -          conf "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  data FirstOrSecond = First | Second
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:216:9-10
[opt-env-conf-test] @@ -213,9 +213,9 @@
[opt-env-conf-test]            env "second-secret"
[opt-env-conf-test]          ]
[opt-env-conf-test]        <*> secretTextFileOrBareSetting
[opt-env-conf-test] -        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] -          conf "second-secret"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Second example secret, bare or in a file, only conf",
[opt-env-conf-test] +          conf "second-secret"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  data FirstOrSecond = First | Second
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:156:23-48
[opt-env-conf-test] @@ -153,7 +153,7 @@
[opt-env-conf-test]  parseSumType = \case
[opt-env-conf-test]    "a" -> pure SumTypeA
[opt-env-conf-test]    "b" -> pure SumTypeB
[opt-env-conf-test] -  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test] +  s -> Left $ unwords []
[opt-env-conf-test]  
[opt-env-conf-test]  renderSumType :: SumType -> String
[opt-env-conf-test]  renderSumType = \case
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:156:23-48
[opt-env-conf-test] @@ -153,7 +153,7 @@
[opt-env-conf-test]  parseSumType = \case
[opt-env-conf-test]    "a" -> pure SumTypeA
[opt-env-conf-test]    "b" -> pure SumTypeB
[opt-env-conf-test] -  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test] +  s -> Left $ unwords ["Unknown 'SumType':", s]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSumType :: SumType -> String
[opt-env-conf-test]  renderSumType = \case
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,7 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,10 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:169:15-16
[opt-env-conf-test] @@ -166,10 +166,9 @@
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test]            [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ help "b",
[opt-env-conf-test]                  switch SumTypeB,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,7 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,10 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:174:15-16
[opt-env-conf-test] @@ -171,10 +171,9 @@
[opt-env-conf-test]                  short 'a'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  reader $ eitherReader parseSumType,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,7 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:179:15-16
[opt-env-conf-test] @@ -176,11 +176,10 @@
[opt-env-conf-test]                  short 'b'
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type"
[opt-env-conf-test] +],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:185:15-16
[opt-env-conf-test] @@ -182,9 +182,7 @@
[opt-env-conf-test]                  metavar "SUM_TYPE"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  valueWithShown renderSumType SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:185:15-16
[opt-env-conf-test] @@ -182,9 +182,9 @@
[opt-env-conf-test]                  metavar "SUM_TYPE"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test]              setting
[opt-env-conf-test]                [ h,
[opt-env-conf-test]                  valueWithShown renderSumType SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:189:15-16
[opt-env-conf-test] @@ -186,9 +186,7 @@
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:189:15-16
[opt-env-conf-test] @@ -186,9 +186,9 @@
[opt-env-conf-test]                  conf "sum-type"
[opt-env-conf-test]                ],
[opt-env-conf-test]              setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,7 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,31 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ setting
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:168:11-12
[opt-env-conf-test] @@ -165,31 +165,29 @@
[opt-env-conf-test]    withoutConfig $
[opt-env-conf-test]      let h = help "example"
[opt-env-conf-test]       in choice
[opt-env-conf-test] -          [ setting
[opt-env-conf-test] -              [ help "a",
[opt-env-conf-test] -                switch SumTypeA,
[opt-env-conf-test] -                short 'a'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ help "b",
[opt-env-conf-test] -                switch SumTypeB,
[opt-env-conf-test] -                short 'b'
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                reader $ eitherReader parseSumType,
[opt-env-conf-test] -                env "sum-type",
[opt-env-conf-test] -                metavar "SUM_TYPE"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                conf "sum-type"
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            setting
[opt-env-conf-test] -              [ h,
[opt-env-conf-test] -                valueWithShown renderSumType SumTypeA
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ setting
[opt-env-conf-test] +              [ help "a",
[opt-env-conf-test] +                switch SumTypeA,
[opt-env-conf-test] +                short 'a'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ help "b",
[opt-env-conf-test] +                switch SumTypeB,
[opt-env-conf-test] +                short 'b'
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                reader $ eitherReader parseSumType,
[opt-env-conf-test] +                env "sum-type",
[opt-env-conf-test] +                metavar "SUM_TYPE"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h,
[opt-env-conf-test] +                conf "sum-type"
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            setting
[opt-env-conf-test] +              [ h
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  secretParser :: Parser (Text, Text, Text, Text, Text)
[opt-env-conf-test]  secretParser =
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,7 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,11 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto,
[opt-env-conf-test] +                    metavar "INT"
[opt-env-conf-test] +                  ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:125:19-20
[opt-env-conf-test] @@ -122,11 +122,10 @@
[opt-env-conf-test]            <$> choice
[opt-env-conf-test]              [ Left
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto
[opt-env-conf-test] +],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test]                    [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,7 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,11 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str,
[opt-env-conf-test] +                    metavar "STR"
[opt-env-conf-test] +                  ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:132:19-20
[opt-env-conf-test] @@ -129,11 +129,10 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                Right
[opt-env-conf-test]                  <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str
[opt-env-conf-test] +]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:123:13-14
[opt-env-conf-test] @@ -120,21 +120,7 @@
[opt-env-conf-test]      let h = help "int or string"
[opt-env-conf-test]       in (,)
[opt-env-conf-test]            <$> choice
[opt-env-conf-test] -            [ Left
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -              Right
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:123:13-14
[opt-env-conf-test] @@ -120,21 +120,21 @@
[opt-env-conf-test]      let h = help "int or string"
[opt-env-conf-test]       in (,)
[opt-env-conf-test]            <$> choice
[opt-env-conf-test] -            [ Left
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "int",
[opt-env-conf-test] -                    reader auto,
[opt-env-conf-test] -                    metavar "INT"
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -              Right
[opt-env-conf-test] -                <$> setting
[opt-env-conf-test] -                  [ h,
[opt-env-conf-test] -                    name "string",
[opt-env-conf-test] -                    reader str,
[opt-env-conf-test] -                    metavar "STR"
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ Left
[opt-env-conf-test] +                <$> setting
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "int",
[opt-env-conf-test] +                    reader auto,
[opt-env-conf-test] +                    metavar "INT"
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +              Right
[opt-env-conf-test] +                <$> setting
[opt-env-conf-test] +                  [ h,
[opt-env-conf-test] +                    name "string",
[opt-env-conf-test] +                    reader str,
[opt-env-conf-test] +                    metavar "STR"
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +            ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] added mutation BoolLit at test/OptEnvConf/APISpec.hs:141:21-25
[opt-env-conf-test] @@ -138,7 +138,7 @@
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test]              [ h,
[opt-env-conf-test]                name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] +              value False
[opt-env-conf-test]              ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,7 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,10 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ h,
[opt-env-conf-test] +              name "other",
[opt-env-conf-test] +              value True
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:139:13-14
[opt-env-conf-test] @@ -136,10 +136,9 @@
[opt-env-conf-test]                    ]
[opt-env-conf-test]              ]
[opt-env-conf-test]            <*> yesNoSwitch
[opt-env-conf-test] -            [ h,
[opt-env-conf-test] -              name "other",
[opt-env-conf-test] -              value True
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ h,
[opt-env-conf-test] +              name "other"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  data SumType
[opt-env-conf-test]    = SumTypeA
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:30-31
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [1, 0, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:33-34
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 1, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/APISpec.hs:43:36-37
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0, 1]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion []
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0, 0]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:43:29-38
[opt-env-conf-test] @@ -40,7 +40,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]  exampleParserSpec :: (HasCallStack) => FilePath -> String -> Parser a -> Spec
[opt-env-conf-test]  exampleParserSpec dir progDesc p = withFrozenCallStack $ describe dir $ do
[opt-env-conf-test] -  let version = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let version = makeVersion [0, 0
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]    it "passes the linter" $
[opt-env-conf-test]      parserLintTest p
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/APISpec.hs:50:7-43
[opt-env-conf-test] @@ -47,9 +47,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]    it "shows the parser in the same way" $
[opt-env-conf-test]      goldenStringFile ("test_resources/docs/" <> dir <> "/show.txt") $
[opt-env-conf-test] -      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] -        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] -        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test] +      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] +        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] +        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test]  
[opt-env-conf-test]    it "produces the same docs structure as before" $
[opt-env-conf-test]      pureGoldenStringFile ("test_resources/docs/" <> dir <> "/docs.txt") $
[opt-env-conf-test] added mutation RemoveCase at test/OptEnvConf/APISpec.hs:50:7-43
[opt-env-conf-test] @@ -47,9 +47,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]    it "shows the parser in the same way" $
[opt-env-conf-test]      goldenStringFile ("test_resources/docs/" <> dir <> "/show.txt") $
[opt-env-conf-test] -      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] -        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] -        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test] +      case Pretty.parseValue (showParserABit (parserEraseSrcLocs p)) of
[opt-env-conf-test] +        Nothing -> expectationFailure "Error parsing value"
[opt-env-conf-test] +        Just v -> pure $ Pretty.valToStr v
[opt-env-conf-test]  
[opt-env-conf-test]    it "produces the same docs structure as before" $
[opt-env-conf-test]      pureGoldenStringFile ("test_resources/docs/" <> dir <> "/docs.txt") $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,7 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,11 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f',
[opt-env-conf-test] +            long "first"
[opt-env-conf-test] +          ],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:228:11-12
[opt-env-conf-test] @@ -225,11 +225,10 @@
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test]        [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f'
[opt-env-conf-test] +],
[opt-env-conf-test]          setting
[opt-env-conf-test]            [ help "second",
[opt-env-conf-test]              switch Second,
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,7 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,11 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's',
[opt-env-conf-test] +            long "second"
[opt-env-conf-test] +          ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:234:11-12
[opt-env-conf-test] @@ -231,11 +231,10 @@
[opt-env-conf-test]              long "first"
[opt-env-conf-test]            ],
[opt-env-conf-test]          setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's'
[opt-env-conf-test] +]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:227:7-8
[opt-env-conf-test] @@ -224,19 +224,7 @@
[opt-env-conf-test]    settingsParser =
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test] -      [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test]  withDefaultParser = withDefault Second settingsParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/APISpec.hs:227:7-8
[opt-env-conf-test] @@ -224,19 +224,19 @@
[opt-env-conf-test]    settingsParser =
[opt-env-conf-test]      -- This version has no default value, so we can add one with 'withDefault'
[opt-env-conf-test]      choice
[opt-env-conf-test] -      [ setting
[opt-env-conf-test] -          [ help "first",
[opt-env-conf-test] -            switch First,
[opt-env-conf-test] -            short 'f',
[opt-env-conf-test] -            long "first"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        setting
[opt-env-conf-test] -          [ help "second",
[opt-env-conf-test] -            switch Second,
[opt-env-conf-test] -            short 's',
[opt-env-conf-test] -            long "second"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ setting
[opt-env-conf-test] +          [ help "first",
[opt-env-conf-test] +            switch First,
[opt-env-conf-test] +            short 'f',
[opt-env-conf-test] +            long "first"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +        setting
[opt-env-conf-test] +          [ help "second",
[opt-env-conf-test] +            switch Second,
[opt-env-conf-test] +            short 's',
[opt-env-conf-test] +            long "second"
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  withDefaultParser :: Parser FirstOrSecond
[opt-env-conf-test]  withDefaultParser = withDefault Second settingsParser
[opt-env-conf-test] added 128 mutations
[opt-env-conf-test] [14 of 17] Compiling OptEnvConf.ToplevelSpec ( test/OptEnvConf/ToplevelSpec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/OptEnvConf/ToplevelSpec.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting OptEnvConf.ToplevelSpec
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:35-36
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [1, 0, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:38-39
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 1, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:11:41-42
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0, 1]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion []
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:11:34-43
[opt-env-conf-test] @@ -8,7 +8,8 @@
[opt-env-conf-test]  
[opt-env-conf-test]  spec :: Spec
[opt-env-conf-test]  spec = do
[opt-env-conf-test] -  let dummyVersion = makeVersion [0, 0, 0]
[opt-env-conf-test] +  let dummyVersion = makeVersion [0, 0
[opt-env-conf-test] +]
[opt-env-conf-test]    let dummyProgDesc = "dummy"
[opt-env-conf-test]    let dummyParser = pure 'a'
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,7 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs [] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,7 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:17:16-107
[opt-env-conf-test] @@ -14,7 +14,8 @@
[opt-env-conf-test]    let dummyRun = runParser dummyVersion dummyProgDesc dummyParser
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test] -      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] +      withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4"
[opt-env-conf-test] +] $
[opt-env-conf-test]          dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:18:48-49
[opt-env-conf-test] @@ -15,7 +15,7 @@
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test]        withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] -        dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test] +        dummyRun `shouldThrow` (== ExitFailure 0)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test]        it "can show help text with --help" $
[opt-env-conf-test] added mutation IntLit at test/OptEnvConf/ToplevelSpec.hs:18:48-49
[opt-env-conf-test] @@ -15,7 +15,7 @@
[opt-env-conf-test]    sequential $ do
[opt-env-conf-test]      it "can fail fast when too many unrecognsied arguments are given" $
[opt-env-conf-test]        withArgs ["-option1", "option", "--option2", "option", "--option3", "option", "--option4", "option"] $
[opt-env-conf-test] -        dummyRun `shouldThrow` (== ExitFailure 1)
[opt-env-conf-test] +        dummyRun `shouldThrow` (== ExitFailure -1)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--help" $ do
[opt-env-conf-test]        it "can show help text with --help" $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,7 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,7 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:25:18-52
[opt-env-conf-test] @@ -22,7 +22,8 @@
[opt-env-conf-test]          withArgs ["--help"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["--help", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--help", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with -h" $
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,7 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:31:18-48
[opt-env-conf-test] @@ -28,7 +28,8 @@
[opt-env-conf-test]          withArgs ["-h"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can show help text with --help even when there are more args" $
[opt-env-conf-test] -        withArgs ["-h", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["-h", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]  
[opt-env-conf-test]      describe "--version" $ do
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,7 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs [] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,7 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added mutation ListLit at test/OptEnvConf/ToplevelSpec.hs:44:18-66
[opt-env-conf-test] @@ -41,7 +41,8 @@
[opt-env-conf-test]          withArgs ["--run-settings-check"] $
[opt-env-conf-test]            dummyRun `shouldThrow` (== ExitSuccess)
[opt-env-conf-test]        it "can run a settings check with --run-settings-check even when there are more args" $
[opt-env-conf-test] -        withArgs ["--run-settings-check", "more", "args", "here"] $
[opt-env-conf-test] +        withArgs ["--run-settings-check", "more", "args"
[opt-env-conf-test] +] $
[opt-env-conf-test]            runParser
[opt-env-conf-test]              dummyVersion
[opt-env-conf-test]              dummyProgDesc
[opt-env-conf-test] added 20 mutations
[opt-env-conf-test] [15 of 17] Compiling Main             ( test/Spec.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/Main.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] mutation: instrumenting Main
[opt-env-conf-test] added 0 mutations
[opt-env-conf-test] [16 of 17] Compiling Paths_opt_env_conf_test ( dist/build/opt-env-conf-test/autogen/Paths_opt_env_conf_test.hs, dist/build/opt-env-conf-test/opt-env-conf-test-tmp/Paths_opt_env_conf_test.o ) [Impure plugin forced recompilation]
[opt-env-conf-test] [17 of 17] Linking dist/build/opt-env-conf-test/opt-env-conf-test
[opt-env-conf-test] mutation-nix: manifest output at /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest:
[opt-env-conf-test] total 1108
[opt-env-conf-test] drwxr-xr-x   2 nixbld nixbld   4096 May 13 16:16 .
[opt-env-conf-test] drwxrwxr-t 325 nobody nixbld  28672 May 13 16:15 ..
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld      2 May 13 16:16 Main.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  95141 May 13 16:16 OptEnvConf.APISpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld      2 May 13 16:15 OptEnvConf.Args.Gen.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld   5396 May 13 16:16 OptEnvConf.ArgsSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld   6388 May 13 16:16 OptEnvConf.CheckSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  53379 May 13 16:16 OptEnvConf.CompleterSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld 662385 May 13 16:16 OptEnvConf.CompletionSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld      2 May 13 16:15 OptEnvConf.EnvMap.Gen.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld      2 May 13 16:16 OptEnvConf.EnvMapSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  29912 May 13 16:16 OptEnvConf.ErrorSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld   5169 May 13 16:16 OptEnvConf.HelpSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  12005 May 13 16:16 OptEnvConf.LintSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  22377 May 13 16:16 OptEnvConf.NonDetSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld   2573 May 13 16:16 OptEnvConf.ReaderSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld 106668 May 13 16:16 OptEnvConf.RunSpec.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  29842 May 13 16:15 OptEnvConf.Test.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld      2 May 13 16:16 OptEnvConf.TestUtils.json
[opt-env-conf-test] -rw-r--r--   1 nixbld nixbld  13730 May 13 16:16 OptEnvConf.ToplevelSpec.json
[opt-env-conf-test] buildPhase completed in 1 minutes 19 seconds
[opt-env-conf-test] Phase: checkPhase
[opt-env-conf-test] mutation-nix: collecting coverage for suite opt-env-conf-test
[opt-env-conf-test] pure value
[opt-env-conf-test] Ap
[opt-env-conf-test]   Parser with check: test/OptEnvConf/CheckSpec.hs:68:71 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]   Requires capabilities: read-secret
[opt-env-conf-test]     parser
[opt-env-conf-test]       Setting: test/OptEnvConf/CheckSpec.hs:68:112 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]         Trying to consume an argument
[opt-env-conf-test]         Found these possibilities to consume an argument:
[opt-env-conf-test]         (Just "arg1",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg1"),Live (ArgPlain "arg2")]})
[opt-env-conf-test]         Considering this posibility: (Just "arg1",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg1"),Live (ArgPlain "arg2")]})
[opt-env-conf-test]         set based on argument: "arg1"
[opt-env-conf-test]         could not set based on argument: no argument
[opt-env-conf-test]         not found
[opt-env-conf-test]     check
[opt-env-conf-test]     ccoverage (9/799): OptEnvConf\.CheckSpec.runSettingsCheckOn.is succesful on the trivial parser (9 mutations)
[opt-env-conf-test] heck
[opt-env-conf-test]       Missing capabilities: read-secret
[opt-env-conf-test]   Parser with check: test/OptEnvConf/CheckSpec.hs:69:21 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]     parser
[opt-env-conf-test]       Setting: test/OptEnvConf/CheckSpec.hs:69:61 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]         Trying to consume an argument
[opt-env-conf-test]         Found these possibilities to consume an argument:
[opt-env-conf-test]         (Just "arg2",Args {argsBefore = [Dead,Dead], argsAfter = []})
[opt-env-conf-test]         (Nothing,Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         Considering this posibility: (Just "arg2",Args {argsBefore = [Dead,Dead], argsAfter = []})
[opt-env-conf-test]         Considering this posibility: (Nothing,Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         set based on argument: "arg2"
[opt-env-conf-test]         could not set based on argument: no argument
[opt-env-conf-test]         not found
[opt-env-conf-test]     check
[opt-env-conf-test]     check
[opt-env-conf-test]       failed, forgivable: False
[opt-env-conf-test]   Parser with check: test/OptEnvConf/CheckSpec.hs:69:21 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]     parser
[opt-env-conf-test]       Setting: test/OptEnvConf/CheckSpec.hs:69:61 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]         Trying to consume an argument
[opt-env-conf-test]         Found these possibilities to consume an argument:
[opt-env-conf-test]         (Just "arg1",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg1"),Live (ArgPlain "arg2")]})
[opt-env-conf-test]         Considering this posibility: (Just "arg1",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "arg2")]})
[opt-env-conf-test]         Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg1"),Live (ArgPlain "arg2")]})
[opt-env-conf-test]         set based on argument: "arg1"
[opt-env-conf-test]         could not set based on argument: no argument
[opt-env-conf-test]         not found
[opt-env-conf-test]     check
[opt-env-conf-test]     check
[opt-env-conf-test]       failed, forgivable: False
[opt-env-conf-test] coverage (13/799): OptEnvConf\.CheckSpec.runSettingsCheckOn.says failed when a required capability is missing but another setting failed (116 mutations)
[opt-env-conf-test] coverage (17/799): OptEnvConf\.APISpec.secret.documents the short opt parser in the same way (112 mutations)
[opt-env-conf-test] Many: without srcLoc
[opt-env-conf-test]   Setting: test/OptEnvConf/ToplevelSpec.hs:49:19 in opt-env-conf-test:OptEnvConf.ToplevelSpec
[opt-env-conf-test]     Trying to consume an argument
[opt-env-conf-test]     Found these possibilities to consume an argument:
[opt-env-conf-test]     (Just "more",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]     (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "more"),Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]     Considering this posibility: (Just "more",Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]     Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "more"),Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]     set based on argument: "more"
[opt-env-conf-test]     could not set based on argument: no argument
[opt-env-conf-test]     not found
[opt-env-conf-test]   Many: without srcLoc
[opt-env-conf-test]     Setting: test/OptEnvConf/ToplevelSpec.hs:49:19 in opt-env-conf-test:OptEnvConf.ToplevelSpec
[opt-env-conf-test]       Trying to consume an argument
[opt-env-conf-test]       Found these possibilities to consume an argument:
[opt-env-conf-test]       (Just "args",Args {argsBefore = [Dead,Dead], argsAfter = [Live (ArgPlain "here")]})
[opt-env-conf-test]       (Nothing,Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]       Considering this posibility: (Just "args",Args {argsBefore = [Dead,Dead], argsAfter = [Live (ArgPlain "here")]})
[opt-env-conf-test]       Considering this posibility: (Nothing,Args {argsBefore = [Dead], argsAfter = [Live (ArgPlain "args"),Live (ArgPlain "here")]})
[opt-env-conf-test]       set based on argument: "args"
[opt-env-conf-test]       could not set based on argument: no argument
[opt-env-conf-test]       not found
[opt-env-conf-test]     Many: without srcLoc
[opt-env-conf-test]       Setting: test/OptEnvConf/ToplevelSpec.hs:49:19 in opt-env-conf-test:OptEnvConf.ToplevelSpec
[opt-env-conf-test]         Trying to consume an argument
[opt-env-conf-test]         Found these possibilities to consume an argument:
[opt-env-conf-test]         (Just "here",Args {argsBefore = [Dead,Dead,Dead], argsAfter = []})
[opt-env-conf-test]         (Nothing,Args {argsBefore = [Dead,Dead], argsAfter = [Live (ArgPlain "here")]})
[opt-env-conf-test]         Considering this posibility: (Just "here",Args {argsBefore = [Dead,Dead,Dead], argsAfter = []})
[opt-env-conf-test]         Considering this posibility: (Nothing,Args {argsBefore = [Dead,Dead], argsAfter = [Live (ArgPlain "here")]})
[opt-env-conf-test]         set based on argument: "here"
[opt-env-conf-test]         could not set based on argument: no argument
[opt-env-conf-test]         not found
[opt-env-conf-test]       Many: without srcLoc
[opt-env-conf-test]         Setting: test/OptEnvConf/ToplevelSpec.hs:49:19 in opt-env-conf-test:OptEnvConf.ToplevelSpec
[opt-env-conf-test]           Trying to consume an argument
[opt-env-conf-test]           Found these possibilities to consume an argument:
[opt-env-conf-test]           (Nothing,Args {argsBefore = [Dead,Dead,Dead], argsAfter = []})
[opt-env-conf-test]           Considering this posibility: (Nothing,Args {argsBefore = [Dead,Dead,Dead], argsAfter = []})
[opt-env-conf-test]           could not set based on argument: no argument
[opt-env-conf-test]           not found
[opt-env-conf-test] Settings parsed successfully.coverage (21/799): OptEnvConf\.APISpec.secret.produces the same docs structure as before (74 mutations)
[opt-env-conf-test] coverage (6/799): OptEnvConf\.ToplevelSpec.--run-settings-check.can run a settings check with --run-settings-check even when there are more args (142 mutations)
[opt-env-conf-test] Usage: opt-env-conf-test 
[opt-env-conf-test] 
[opt-env-conf-test] dummy
[opt-env-conf-test] 
[opt-env-conf-test] Available settings:
[opt-env-conf-test]   Show this help text
[opt-env-conf-test]   switch: -h|--help
[opt-env-conf-test] 
[opt-env-conf-test]   Output version information: 0.0.0
[opt-env-conf-test]   switch: --version
[opt-env-conf-test] 
[opt-env-conf-test] coverage (3/799): OptEnvConf\.ToplevelSpec.--help.can show help text with --help even when there are more args:1 (108 mutations)
[opt-env-conf-test] coverage (16/799): OptEnvConf\.APISpec.secret.renders the reference documentation in the same way (261 mutations)
[opt-env-conf-test] Parser with check: test/OptEnvConf/CheckSpec.hs:55:68 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test] Requires capabilities: read-secret
[opt-env-conf-test]   parser
[opt-env-conf-test]     Setting: test/OptEnvConf/CheckSpec.hs:55:109 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]       Trying to consume an argument
[opt-env-conf-test]       Found these possibilities to consume an argument:
[opt-env-conf-test]       (Just "arg",Args {argsBefore = [Dead], argsAfter = []})
[opt-env-conf-test]       (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg")]})
[opt-env-conf-test]       Considering this posibility: (Just "arg",Args {argsBefore = [Dead], argsAfter = []})
[opt-env-conf-test]       Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg")]})
[opt-env-conf-test]       set based on argument: "arg"
[opt-env-conf-test]       could not set based on argument: no argument
[opt-env-conf-test]       not found
[opt-env-conf-test]   check
[opt-env-conf-test]   check
[opt-env-conf-test]     failed, forgivable: False
[opt-env-conf-test] Parser with check: test/OptEnvConf/CheckSpec.hs:45:68 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test] Requires capabilities: read-secret
[opt-env-conf-test]   parser
[opt-env-conf-test]     Setting: test/OptEnvConf/CheckSpec.hs:45:109 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]       Trying to consume an argument
[opt-env-conf-test] coverage (22/799): OptEnvConf\.APISpec.secret.documents the long opt parser in the same way (95 mutations)
[opt-env-conf-test]       Found these possibilities to consume an argument:
[opt-env-conf-test]       (Just "arg",Args {argsBefore = [Dead], argsAfter = []})
[opt-env-conf-test]       (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg")]})
[opt-env-conf-test]       Considering this posibility: (Just "arg",Args {argsBefore = [Dead], argsAfter = []})
[opt-env-conf-test]       Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = [Live (ArgPlain "arg")]})
[opt-env-conf-test]       set based on argument: "arg"
[opt-env-conf-test]       could not set based on argument: no argument
[opt-env-conf-test]       not found
[opt-env-conf-test]   check
[opt-env-conf-test]   check
[opt-env-conf-test]     Missing capabilities: read-secret
[opt-env-conf-test] coverage (12/799): OptEnvConf\.CheckSpec.runSettingsCheckOn.says failed when a required capability is available (109 mutations)
[opt-env-conf-test] coverage (11/799): OptEnvConf\.CheckSpec.runSettingsCheckOn.says incapable when a required capability is missing (100 mutations)
[opt-env-conf-test] coverage (23/799): OptEnvConf\.APISpec.secret.documents the version page in the same way (7 mutations)
[opt-env-conf-test] Unrecognised args: -option1 option --option2 option --option3 option --option4 option
[opt-env-conf-test] coverage (14/799): OptEnvConf\.APISpec.secret.produces the same env docs structure as before (74 mutations)
[opt-env-conf-test] coverage (7/799): OptEnvConf\.ToplevelSpec.can fail fast when too many unrecognsied arguments are given (214 mutations)
[opt-env-conf-test] coverage (15/799): OptEnvConf\.APISpec.secret.shows the parser in the same way (177 mutations)
[opt-env-conf-test] Usage: opt-env-conf-test 
[opt-env-conf-test] 
[opt-env-conf-test] dummy
[opt-env-conf-test] 
[opt-env-conf-test] Available settings:
[opt-env-conf-test]   Show this help text
[opt-env-conf-test]   switch: -h|--help
[opt-env-conf-test] 
[opt-env-conf-test]   Output version information: 0.0.0
[opt-env-conf-test]   switch: --version
[opt-env-conf-test] 
[opt-env-conf-test] coverage (4/799): OptEnvConf\.ToplevelSpec.--help.can show help text with --help (106 mutations)
[opt-env-conf-test] coverage (24/799): OptEnvConf\.APISpec.secret.documents the man page in the same way (284 mutations)
[opt-env-conf-test] Usage: opt-env-conf-test 
[opt-env-conf-test] 
[opt-env-conf-test] dummy
[opt-env-conf-test] 
[opt-env-conf-test] Available settings:
[opt-env-conf-test]   Show this help text
[opt-env-conf-test]   switch: -h|--help
[opt-env-conf-test] 
[opt-env-conf-test]   Output version information: 0.0.0
[opt-env-conf-test]   switch: --version
[opt-env-conf-test] 
[opt-env-conf-test] coverage (26/799): OptEnvConf\.APISpec.secret.documents the conf parser in the same way (87 mutations)
[opt-env-conf-test] Setting: test/OptEnvConf/CheckSpec.hs:35:17 in opt-env-conf-test:OptEnvConf.CheckSpec
[opt-env-conf-test]   Trying to consume an argument
[opt-env-conf-test]   Found these possibilities to consume an argument:
[opt-env-conf-test]   (Nothing,Args {argsBefore = [], argsAfter = []})
[opt-env-conf-test]   Considering this posibility: (Nothing,Args {argsBefore = [], argsAfter = []})
[opt-env-conf-test]   could not set based on argument: no argucoverage (2/799): OptEnvConf\.ToplevelSpec.--help.can show help text with --help even when there are more args (107 mutations)
[opt-env-conf-test] ment
[opt-env-conf-test]   not found
[opt-env-conf-test] Usage: opt-env-conf-test 
[opt-env-conf-test] 
[opt-env-conf-test] dummy
[opt-env-conf-test] 
[opt-env-conf-test] Available settings:
[opt-env-conf-test]   Show this help text
[opt-env-conf-test]   switch: -h|--help
[opt-env-conf-test] 
[opt-env-conf-test]   Output version information: 0.0.0
[opt-env-conf-test]   switch: --version
[opt-env-conf-test] 
[opt-env-conf-test] coverage (20/799): OptEnvConf\.APISpec.secret.produces the same opt docs structure as before (77 mutations)
[opt-env-conf-test] coverage (10/799): OptEnvConf\.CheckSpec.runSettingsCheckOn.fails when a required setting is missing (74 mutations)
[opt-env-conf-test] coverage (1/799): OptEnvConf\.ToplevelSpec.--help.can show help text with -h (105 mutations)
[opt-env-conf-test] opt-env-conf-test 0.0.0 
[opt-env-conf-test] coverage (8/799): OptEnvConf\.ToplevelSpec.--version.can show version info with --version (121 mutations)
[opt-env-conf-test] coverage (19/799): OptEnvConf\.APISpec.secret.documents the help page in the same way (200 mutations)
[opt-env-conf-test] coverage (25/799): OptEnvConf\.APISpec.secret.produces the same conf docs structure as before (74 mutations)
[opt-env-conf-test] pure value
[opt-env-conf-test] Settings parsed successfully.coverage (5/799): OptEnvConf\.ToplevelSpec.--run-settings-check.can run a settings check with --run-settings-check (32 mutations)
[opt-env-conf-test] coverage (27/799): OptEnvConf\.APISpec.secret.passes the linter (124 mutations)
[opt-env-conf-test] coverage (28/799): OptEnvConf\.APISpec.secret.renders the Nix options the same way (117 mutations)
[opt-env-conf-test] coverage (18/799): OptEnvConf\.APISpec.secret.documents the env parser in the same way (87 mutations)
[opt-env-conf-test] coverage (29/799): OptEnvConf\.APISpec.greet.produces the same docs structure as before (66 mutations)
[opt-env-conf-test] coverage (31/799): OptEnvConf\.APISpec.greet.produces the same env docs structure as before (59 mutations)
[opt-env-conf-test] coverage (30/799): OptEnvConf\.APISpec.greet.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (32/799): OptEnvConf\.APISpec.greet.documents the help page in the same way (202 mutations)
[opt-env-conf-test] coverage (33/799): OptEnvConf\.APISpec.greet.documents the short opt parser in the same way (100 mutations)
[opt-env-conf-test] coverage (35/799): OptEnvConf\.APISpec.greet.produces the same opt docs structure as before (62 mutations)
[opt-env-conf-test] coverage (36/799): OptEnvConf\.APISpec.greet.produces the same conf docs structure as before (66 mutations)
[opt-env-conf-test] coverage (34/799): OptEnvConf\.APISpec.greet.documents the long opt parser in the same way (89 mutations)
[opt-env-conf-test] coverage (37/799): OptEnvConf\.APISpec.greet.renders the reference documentation in the same way (263 mutations)
[opt-env-conf-test] coverage (39/799): OptEnvConf\.APISpec.greet.documents the conf parser in the same way (79 mutations)
[opt-env-conf-test] coverage (38/799): OptEnvConf\.APISpec.greet.shows the parser in the same way (169 mutations)
[opt-env-conf-test] coverage (43/799): OptEnvConf\.APISpec.greet.renders the Nix options the same way (95 mutations)
[opt-env-conf-test] coverage (45/799): OptEnvConf\.APISpec.hidden.produces the same docs structure as before (18 mutations)
[opt-env-conf-test] coverage (40/799): OptEnvConf\.APISpec.greet.passes the linter (106 mutations)
[opt-env-conf-test] coverage (42/799): OptEnvConf\.APISpec.greet.documents the man page in the same way (286 mutations)
[opt-env-conf-test] coverage (41/799): OptEnvConf\.APISpec.greet.documents the env parser in the same way (86 mutations)
[opt-env-conf-test] coverage (44/799): OptEnvConf\.APISpec.hidden.documents the help page in the same way (99 mutations)
[opt-env-conf-test] coverage (48/799): OptEnvConf\.APISpec.hidden.produces the same conf docs structure as before (20 mutations)
[opt-env-conf-test] coverage (46/799): OptEnvConf\.APISpec.hidden.renders the reference documentation in the same way (134 mutations)
[opt-env-conf-test] coverage (47/799): OptEnvConf\.APISpec.hidden.shows the parser in the same way (71 mutations)
[opt-env-conf-test] coverage (49/799): OptEnvConf\.APISpec.hidden.renders the Nix options the same way (63 mutations)
[opt-env-conf-test] coverage (51/799): OptEnvConf\.APISpec.hidden.documents the man page in the same way (153 mutations)
[opt-env-conf-test] coverage (52/799): OptEnvConf\.APISpec.hidden.passes the linter (37 mutations)
[opt-env-conf-test] coverage (50/799): OptEnvConf\.APISpec.hidden.documents the conf parser in the same way (20 mutations)
[opt-env-conf-test] coverage (53/799): OptEnvConf\.APISpec.hidden.produces the same env docs structure as before (20 mutations)
[opt-env-conf-test] coverage (54/799): OptEnvConf\.APISpec.hidden.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (56/799): OptEnvConf\.APISpec.hidden.produces the same opt docs structure as before (20 mutations)
[opt-env-conf-test] coverage (55/799): OptEnvConf\.APISpec.hidden.documents the short opt parser in the same way (25 mutations)
[opt-env-conf-test] coverage (57/799): OptEnvConf\.APISpec.hidden.documents the env parser in the same way (20 mutations)
[opt-env-conf-test] coverage (58/799): OptEnvConf\.APISpec.hidden.documents the long opt parser in the same way (22 mutations)
[opt-env-conf-test] coverage (59/799): OptEnvConf\.APISpec.yes-no.renders the reference documentation in the same way (219 mutations)
[opt-env-conf-test] coverage (61/799): OptEnvConf\.APISpec.yes-no.renders the Nix options the same way (84 mutations)
[opt-env-conf-test] coverage (60/799): OptEnvConf\.APISpec.yes-no.documents the short opt parser in the same way (74 mutations)
[opt-env-conf-test] coverage (66/799): OptEnvConf\.APISpec.yes-no.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (64/799): OptEnvConf\.APISpec.yes-no.shows the parser in the same way (136 mutations)
[opt-env-conf-test] coverage (63/799): OptEnvConf\.APISpec.yes-no.produces the same env docs structure as before (46 mutations)
[opt-env-conf-test] coverage (65/799): OptEnvConf\.APISpec.yes-no.produces the same conf docs structure as before (46 mutations)
[opt-env-conf-test] coverage (69/799): OptEnvConf\.APISpec.yes-no.documents the help page in the same way (158 mutations)
[opt-env-conf-test] coverage (62/799): OptEnvConf\.APISpec.yes-no.documents the man page in the same way (242 mutations)
[opt-env-conf-test] coverage (72/799): OptEnvConf\.APISpec.yes-no.passes the linter (86 mutations)
[opt-env-conf-test] coverage (68/799): OptEnvConf\.APISpec.yes-no.documents the conf parser in the same way (59 mutations)
[opt-env-conf-test] coverage (67/799): OptEnvConf\.APISpec.yes-no.produces the same docs structure as before (46 mutations)
[opt-env-conf-test] coverage (71/799): OptEnvConf\.APISpec.yes-no.produces the same opt docs structure as before (49 mutations)
[opt-env-conf-test] coverage (70/799): OptEnvConf\.APISpec.yes-no.documents the env parser in the same way (59 mutations)
[opt-env-conf-test] coverage (76/799): OptEnvConf\.APISpec.yes-no-optional.documents the conf parser in the same way (58 mutations)
[opt-env-conf-test] coverage (74/799): OptEnvConf\.APISpec.yes-no-optional.renders the Nix options the same way (83 mutations)
[opt-env-conf-test] coverage (75/799): OptEnvConf\.APISpec.yes-no-optional.documents the long opt parser in the same way (66 mutations)
[opt-env-conf-test] coverage (73/799): OptEnvConf\.APISpec.yes-no.documents the long opt parser in the same way (67 mutations)
[opt-env-conf-test] coverage (77/799): OptEnvConf\.APISpec.yes-no-optional.produces the same env docs structure as before (45 mutations)
[opt-env-conf-test] coverage (79/799): OptEnvConf\.APISpec.yes-no-optional.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (78/799): OptEnvConf\.APISpec.yes-no-optional.renders the reference documentation in the same way (218 mutations)
[opt-env-conf-test] coverage (81/799): OptEnvConf\.APISpec.yes-no-optional.produces the same docs structure as before (45 mutations)
[opt-env-conf-test] coverage (80/799): OptEnvConf\.APISpec.yes-no-optional.shows the parser in the same way (135 mutations)
[opt-env-conf-test] coverage (82/799): OptEnvConf\.APISpec.yes-no-optional.documents the help page in the same way (157 mutations)
[opt-env-conf-test] coverage (84/799): OptEnvConf\.APISpec.yes-no-optional.produces the same opt docs structure as before (48 mutations)
[opt-env-conf-test] coverage (83/799): OptEnvConf\.APISpec.yes-no-optional.documents the short opt parser in the same way (73 mutations)
[opt-env-conf-test] coverage (85/799): OptEnvConf\.APISpec.yes-no-optional.documents the env parser in the same way (58 mutations)
[opt-env-conf-test] coverage (86/799): OptEnvConf\.APISpec.yes-no-optional.produces the same conf docs structure as before (45 mutations)
[opt-env-conf-test] coverage (87/799): OptEnvConf\.APISpec.yes-no-optional.passes the linter (85 mutations)
[opt-env-conf-test] coverage (89/799): OptEnvConf\.APISpec.sum-type.documents the env parser in the same way (63 mutations)
[opt-env-conf-test] coverage (90/799): OptEnvConf\.APISpec.sum-type.documents the long opt parser in the same way (73 mutations)
[opt-env-conf-test] coverage (92/799): OptEnvConf\.APISpec.sum-type.shows the parser in the same way (119 mutations)
[opt-env-conf-test] coverage (98/799): OptEnvConf\.APISpec.sum-type.documents the help page in the same way (162 mutations)
[opt-env-conf-test] coverage (93/799): OptEnvConf\.APISpec.sum-type.produces the same opt docs structure as before (53 mutations)
[opt-env-conf-test] coverage (88/799): OptEnvConf\.APISpec.yes-no-optional.documents the man page in the same way (241 mutations)
[opt-env-conf-test] coverage (91/799): OptEnvConf\.APISpec.sum-type.documents the short opt parser in the same way (78 mutations)
[opt-env-conf-test] coverage (94/799): OptEnvConf\.APISpec.sum-type.produces the same conf docs structure as before (50 mutations)
[opt-env-conf-test] coverage (97/799): OptEnvConf\.APISpec.sum-type.produces the same env docs structure as before (50 mutations)
[opt-env-conf-test] coverage (99/799): OptEnvConf\.APISpec.sum-type.renders the reference documentation in the same way (223 mutations)
[opt-env-conf-test] coverage (95/799): OptEnvConf\.APISpec.sum-type.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (96/799): OptEnvConf\.APISpec.sum-type.documents the man page in the same way (246 mutations)
[opt-env-conf-test] coverage (104/799): OptEnvConf\.APISpec.verbose.documents the env parser in the same way (23 mutations)
[opt-env-conf-test] coverage (100/799): OptEnvConf\.APISpec.sum-type.renders the Nix options the same way (88 mutations)
[opt-env-conf-test] coverage (102/799): OptEnvConf\.APISpec.sum-type.passes the linter (90 mutations)
[opt-env-conf-test] coverage (101/799): OptEnvConf\.APISpec.sum-type.produces the same docs structure as before (50 mutations)
[opt-env-conf-test] coverage (107/799): OptEnvConf\.APISpec.verbose.documents the long opt parser in the same way (46 mutations)
[opt-env-conf-test] coverage (108/799): OptEnvConf\.APISpec.verbose.documents the short opt parser in the same way (52 mutations)
[opt-env-conf-test] coverage (105/799): OptEnvConf\.APISpec.verbose.produces the same env docs structure as before (23 mutations)
[opt-env-conf-test] coverage (106/799): OptEnvConf\.APISpec.verbose.shows the parser in the same way (80 mutations)
[opt-env-conf-test] coverage (109/799): OptEnvConf\.APISpec.verbose.produces the same conf docs structure as before (23 mutations)
[opt-env-conf-test] coverage (103/799): OptEnvConf\.APISpec.sum-type.documents the conf parser in the same way (63 mutations)
[opt-env-conf-test] coverage (110/799): OptEnvConf\.APISpec.verbose.renders the Nix options the same way (63 mutations)
[opt-env-conf-test] coverage (113/799): OptEnvConf\.APISpec.verbose.renders the reference documentation in the same way (156 mutations)
[opt-env-conf-test] coverage (112/799): OptEnvConf\.APISpec.verbose.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (114/799): OptEnvConf\.APISpec.verbose.documents the help page in the same way (124 mutations)
[opt-env-conf-test] coverage (115/799): OptEnvConf\.APISpec.verbose.passes the linter (46 mutations)
[opt-env-conf-test] coverage (111/799): OptEnvConf\.APISpec.verbose.documents the man page in the same way (175 mutations)
[opt-env-conf-test] coverage (116/799): OptEnvConf\.APISpec.verbose.produces the same docs structure as before (23 mutations)
[opt-env-conf-test] coverage (117/799): OptEnvConf\.APISpec.verbose.produces the same opt docs structure as before (26 mutations)
[opt-env-conf-test] coverage (118/799): OptEnvConf\.APISpec.verbose.documents the conf parser in the same way (23 mutations)
[opt-env-conf-test] coverage (119/799): OptEnvConf\.APISpec.empty.passes the linter (2 mutations)
[opt-env-conf-test] coverage (121/799): OptEnvConf\.APISpec.empty.shows the parser in the same way (12 mutations)
[opt-env-conf-test] coverage (125/799): OptEnvConf\.APISpec.empty.documents the long opt parser in the same way (4 mutations)
[opt-env-conf-test] coverage (120/799): OptEnvConf\.APISpec.empty.documents the short opt parser in the same way (7 mutations)
[opt-env-conf-test] coverage (126/799): OptEnvConf\.APISpec.empty.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (123/799): OptEnvConf\.APISpec.empty.produces the same opt docs structure as before (3 mutations)
[opt-env-conf-test] coverage (122/799): OptEnvConf\.APISpec.empty.produces the same env docs structure as before (3 mutations)
[opt-env-conf-test] coverage (127/799): OptEnvConf\.APISpec.empty.documents the env parser in the same way (2 mutations)
[opt-env-conf-test] coverage (124/799): OptEnvConf\.APISpec.empty.documents the man page in the same way (135 mutations)
[opt-env-conf-test] coverage (128/799): OptEnvConf\.APISpec.empty.renders the Nix options the same way (45 mutations)
[opt-env-conf-test] coverage (130/799): OptEnvConf\.APISpec.empty.produces the same docs structure as before (1 mutations)
[opt-env-conf-test] coverage (133/799): OptEnvConf\.APISpec.empty.documents the conf parser in the same way (2 mutations)
[opt-env-conf-test] coverage (129/799): OptEnvConf\.APISpec.empty.produces the same conf docs structure as before (3 mutations)
[opt-env-conf-test] coverage (131/799): OptEnvConf\.APISpec.empty.renders the reference documentation in the same way (116 mutations)
[opt-env-conf-test] coverage (136/799): OptEnvConf\.APISpec.enable-disable.renders the Nix options the same way (84 mutations)
[opt-env-conf-test] coverage (132/799): OptEnvConf\.APISpec.empty.documents the help page in the same way (81 mutations)
[opt-env-conf-test] coverage (135/799): OptEnvConf\.APISpec.enable-disable.passes the linter (86 mutations)
[opt-env-conf-test] coverage (140/799): OptEnvConf\.APISpec.enable-disable.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (138/799): OptEnvConf\.APISpec.enable-disable.renders the reference documentation in the same way (219 mutations)
[opt-env-conf-test] coverage (137/799): OptEnvConf\.APISpec.enable-disable.produces the same docs structure as before (46 mutations)
[opt-env-conf-test] coverage (139/799): OptEnvConf\.APISpec.enable-disable.documents the help page in the same way (158 mutations)
[opt-env-conf-test] coverage (134/799): OptEnvConf\.APISpec.enable-disable.produces the same conf docs structure as before (46 mutations)
[opt-env-conf-test] coverage (141/799): OptEnvConf\.APISpec.enable-disable.documents the conf parser in the same way (59 mutations)
[opt-env-conf-test] coverage (142/799): OptEnvConf\.APISpec.enable-disable.documents the man page in the same way (242 mutations)
[opt-env-conf-test] coverage (143/799): OptEnvConf\.APISpec.enable-disable.produces the same opt docs structure as before (49 mutations)
[opt-env-conf-test] coverage (144/799): OptEnvConf\.APISpec.enable-disable.documents the env parser in the same way (59 mutations)
[opt-env-conf-test] coverage (145/799): OptEnvConf\.APISpec.enable-disable.documents the long opt parser in the same way (67 mutations)
[opt-env-conf-test] coverage (147/799): OptEnvConf\.APISpec.enable-disable.documents the short opt parser in the same way (74 mutations)
[opt-env-conf-test] coverage (146/799): OptEnvConf\.APISpec.enable-disable.shows the parser in the same way (136 mutations)
[opt-env-conf-test] coverage (149/799): OptEnvConf\.APISpec.sub-commands.renders the Nix options the same way (96 mutations)
[opt-env-conf-test] coverage (148/799): OptEnvConf\.APISpec.enable-disable.produces the same env docs structure as before (46 mutations)
[opt-env-conf-test] coverage (151/799): OptEnvConf\.APISpec.sub-commands.produces the same docs structure as before (60 mutations)
[opt-env-conf-test] coverage (150/799): OptEnvConf\.APISpec.sub-commands.documents the help page in the same way (192 mutations)
[opt-env-conf-test] coverage (153/799): OptEnvConf\.APISpec.sub-commands.passes the linter (110 mutations)
[opt-env-conf-test] coverage (152/799): OptEnvConf\.APISpec.sub-commands.renders the reference documentation in the same way (308 mutations)
[opt-env-conf-test] coverage (157/799): OptEnvConf\.APISpec.sub-commands.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (156/799): OptEnvConf\.APISpec.sub-commands.documents the long opt parser in the same way (99 mutations)
[opt-env-conf-test] coverage (159/799): OptEnvConf\.APISpec.sub-commands.documents the short opt parser in the same way (97 mutations)
[opt-env-conf-test] coverage (154/799): OptEnvConf\.APISpec.sub-commands.produces the same env docs structure as before (60 mutations)
[opt-env-conf-test] coverage (155/799): OptEnvConf\.APISpec.sub-commands.produces the same opt docs structure as before (63 mutations)
[opt-env-conf-test] coverage (162/799): OptEnvConf\.APISpec.sub-commands.documents the env parser in the same way (78 mutations)
[opt-env-conf-test] coverage (158/799): OptEnvConf\.APISpec.sub-commands.produces the same conf docs structure as before (60 mutations)
[opt-env-conf-test] coverage (160/799): OptEnvConf\.APISpec.sub-commands.documents the man page in the same way (333 mutations)
[opt-env-conf-test] coverage (161/799): OptEnvConf\.APISpec.sub-commands.shows the parser in the same way (178 mutations)
[opt-env-conf-test] coverage (167/799): OptEnvConf\.APISpec.many-args.documents the env parser in the same way (23 mutations)
[opt-env-conf-test] coverage (163/799): OptEnvConf\.APISpec.sub-commands.documents the conf parser in the same way (78 mutations)
[opt-env-conf-test] coverage (166/799): OptEnvConf\.APISpec.many-args.produces the same docs structure as before (23 mutations)
[opt-env-conf-test] coverage (165/799): OptEnvConf\.APISpec.many-args.renders the Nix options the same way (63 mutations)
[opt-env-conf-test] coverage (164/799): OptEnvConf\.APISpec.many-args.documents the conf parser in the same way (23 mutations)
[opt-env-conf-test] coverage (168/799): OptEnvConf\.APISpec.many-args.renders the reference documentation in the same way (158 mutations)
[opt-env-conf-test] coverage (169/799): OptEnvConf\.APISpec.many-args.documents the long opt parser in the same way (44 mutations)
[opt-env-conf-test] coverage (170/799): OptEnvConf\.APISpec.many-args.shows the parser in the same way (61 mutations)
[opt-env-conf-test] coverage (171/799): OptEnvConf\.APISpec.many-args.passes the linter (37 mutations)
[opt-env-conf-test] coverage (172/799): OptEnvConf\.APISpec.many-args.produces the same conf docs structure as before (23 mutations)
[opt-env-conf-test] coverage (173/799): OptEnvConf\.APISpec.many-args.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (175/799): OptEnvConf\.APISpec.many-args.documents the man page in the same way (177 mutations)
[opt-env-conf-test] coverage (179/799): OptEnvConf\.APISpec.with-default.produces the same opt docs structure as before (57 mutations)
[opt-env-conf-test] coverage (176/799): OptEnvConf\.APISpec.many-args.produces the same opt docs structure as before (26 mutations)
[opt-env-conf-test] coverage (178/799): OptEnvConf\.APISpec.many-args.produces the same env docs structure as before (23 mutations)
[opt-env-conf-test] coverage (180/799): OptEnvConf\.APISpec.with-default.documents the man page in the same way (206 mutations)
[opt-env-conf-test] coverage (174/799): OptEnvConf\.APISpec.many-args.documents the help page in the same way (126 mutations)
[opt-env-conf-test] coverage (182/799): OptEnvConf\.APISpec.with-default.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (181/799): OptEnvConf\.APISpec.with-default.documents the long opt parser in the same way (79 mutations)
[opt-env-conf-test] coverage (183/799): OptEnvConf\.APISpec.with-default.shows the parser in the same way (93 mutations)
[opt-env-conf-test] coverage (177/799): OptEnvConf\.APISpec.many-args.documents the short opt parser in the same way (50 mutations)
[opt-env-conf-test] coverage (184/799): OptEnvConf\.APISpec.with-default.produces the same docs structure as before (54 mutations)
[opt-env-conf-test] coverage (188/799): OptEnvConf\.APISpec.with-default.documents the conf parser in the same way (54 mutations)
[opt-env-conf-test] coverage (185/799): OptEnvConf\.APISpec.with-default.renders the reference documentation in the same way (187 mutations)
[opt-env-conf-test] coverage (187/799): OptEnvConf\.APISpec.with-default.passes the linter (89 mutations)
[opt-env-conf-test] coverage (186/799): OptEnvConf\.APISpec.with-default.documents the short opt parser in the same way (81 mutations)
[opt-env-conf-test] coverage (189/799): OptEnvConf\.APISpec.with-default.produces the same env docs structure as before (54 mutations)
[opt-env-conf-test] coverage (191/799): OptEnvConf\.APISpec.with-default.documents the help page in the same way (155 mutations)
[opt-env-conf-test] coverage (190/799): OptEnvConf\.APISpec.with-default.produces the same conf docs structure as before (54 mutations)
[opt-env-conf-test] coverage (192/799): OptEnvConf\.APISpec.with-default.documents the env parser in the same way (54 mutations)
[opt-env-conf-test] coverage (193/799): OptEnvConf\.APISpec.with-default.renders the Nix options the same way (94 mutations)
[opt-env-conf-test] coverage (194/799): OptEnvConf\.APISpec.three-commands.produces the same conf docs structure as before (63 mutations)
[opt-env-conf-test] coverage (195/799): OptEnvConf\.APISpec.three-commands.passes the linter (124 mutations)
[opt-env-conf-test] coverage (196/799): OptEnvConf\.APISpec.three-commands.documents the conf parser in the same way (81 mutations)
[opt-env-conf-test] coverage (197/799): OptEnvConf\.APISpec.three-commands.documents the short opt parser in the same way (60 mutations)
[opt-env-conf-test] coverage (198/799): OptEnvConf\.APISpec.three-commands.renders the reference documentation in the same way (280 mutations)
[opt-env-conf-test] coverage (199/799): OptEnvConf\.APISpec.three-commands.produces the same docs structure as before (63 mutations)
[opt-env-conf-test] coverage (200/799): OptEnvConf\.APISpec.three-commands.renders the Nix options the same way (99 mutations)
[opt-env-conf-test] coverage (202/799): OptEnvConf\.APISpec.three-commands.documents the env parser in the same way (81 mutations)
[opt-env-conf-test] coverage (201/799): OptEnvConf\.APISpec.three-commands.documents the help page in the same way (147 mutations)
[opt-env-conf-test] coverage (204/799): OptEnvConf\.APISpec.three-commands.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (206/799): OptEnvConf\.APISpec.three-commands.shows the parser in the same way (181 mutations)
[opt-env-conf-test] coverage (203/799): OptEnvConf\.APISpec.three-commands.produces the same opt docs structure as before (66 mutations)
[opt-env-conf-test] coverage (207/799): OptEnvConf\.APISpec.three-commands.documents the long opt parser in the same way (102 mutations)
[opt-env-conf-test] coverage (205/799): OptEnvConf\.APISpec.three-commands.produces the same env docs structure as before (63 mutations)
[opt-env-conf-test] coverage (209/799): OptEnvConf\.APISpec.same-help.documents the conf parser in the same way (77 mutations)
[opt-env-conf-test] coverage (210/799): OptEnvConf\.APISpec.same-help.documents the help page in the same way (192 mutations)
[opt-env-conf-test] coverage (208/799): OptEnvConf\.APISpec.three-commands.documents the man page in the same way (305 mutations)
[opt-env-conf-test] coverage (212/799): OptEnvConf\.APISpec.same-help.documents the short opt parser in the same way (104 mutations)
[opt-env-conf-test] coverage (213/799): OptEnvConf\.APISpec.same-help.produces the same opt docs structure as before (67 mutations)
[opt-env-conf-test] coverage (211/799): OptEnvConf\.APISpec.same-help.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (214/799): OptEnvConf\.APISpec.same-help.passes the linter (114 mutations)
[opt-env-conf-test] coverage (216/799): OptEnvConf\.APISpec.same-help.produces the same conf docs structure as before (64 mutations)
[opt-env-conf-test] coverage (217/799): OptEnvConf\.APISpec.same-help.renders the Nix options the same way (100 mutations)
[opt-env-conf-test] coverage (215/799): OptEnvConf\.APISpec.same-help.documents the man page in the same way (276 mutations)
[opt-env-conf-test] coverage (220/799): OptEnvConf\.APISpec.same-help.produces the same env docs structure as before (64 mutations)
[opt-env-conf-test] coverage (221/799): OptEnvConf\.APISpec.same-help.documents the long opt parser in the same way (85 mutations)
[opt-env-conf-test] coverage (218/799): OptEnvConf\.APISpec.same-help.renders the reference documentation in the same way (253 mutations)
[opt-env-conf-test] coverage (219/799): OptEnvConf\.APISpec.same-help.produces the same docs structure as before (64 mutations)
[opt-env-conf-test] coverage (222/799): OptEnvConf\.APISpec.same-help.documents the env parser in the same way (77 mutations)
[opt-env-conf-test] coverage (223/799): OptEnvConf\.APISpec.same-help.shows the parser in the same way (167 mutations)
[opt-env-conf-test] coverage (224/799): OptEnvConf\.APISpec.some-args.produces the same docs structure as before (27 mutations)
[opt-env-conf-test] coverage (227/799): OptEnvConf\.APISpec.some-args.renders the Nix options the same way (63 mutations)
[opt-env-conf-test] coverage (226/799): OptEnvConf\.APISpec.some-args.documents the env parser in the same way (27 mutations)
[opt-env-conf-test] coverage (228/799): OptEnvConf\.APISpec.some-args.passes the linter (37 mutations)
[opt-env-conf-test] coverage (230/799): OptEnvConf\.APISpec.some-args.renders the reference documentation in the same way (173 mutations)
[opt-env-conf-test] coverage (231/799): OptEnvConf\.APISpec.some-args.documents the man page in the same way (196 mutations)
[opt-env-conf-test] coverage (229/799): OptEnvConf\.APISpec.some-args.documents the long opt parser in the same way (48 mutations)
[opt-env-conf-test] coverage (225/799): OptEnvConf\.APISpec.some-args.produces the same opt docs structure as before (30 mutations)
[opt-env-conf-test] coverage (235/799): OptEnvConf\.APISpec.some-args.documents the help page in the same way (138 mutations)
[opt-env-conf-test] coverage (232/799): OptEnvConf\.APISpec.some-args.documents the short opt parser in the same way (62 mutations)
[opt-env-conf-test] coverage (234/799): OptEnvConf\.APISpec.some-args.produces the same env docs structure as before (27 mutations)
[opt-env-conf-test] coverage (237/799): OptEnvConf\.APISpec.some-args.produces the same conf docs structure as before (27 mutations)
[opt-env-conf-test] coverage (238/799): OptEnvConf\.APISpec.some-args.documents the conf parser in the same way (27 mutations)
[opt-env-conf-test] coverage (233/799): OptEnvConf\.APISpec.some-args.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (241/799): OptEnvConf\.APISpec.enable-disable-optional.produces the same opt docs structure as before (48 mutations)
[opt-env-conf-test] coverage (240/799): OptEnvConf\.APISpec.enable-disable-optional.produces the same docs structure as before (45 mutations)
[opt-env-conf-test] coverage (236/799): OptEnvConf\.APISpec.some-args.shows the parser in the same way (82 mutations)
[opt-env-conf-test] coverage (242/799): OptEnvConf\.APISpec.enable-disable-optional.documents the short opt parser in the same way (73 mutations)
[opt-env-conf-test] coverage (239/799): OptEnvConf\.APISpec.enable-disable-optional.documents the long opt parser in the same way (66 mutations)
[opt-env-conf-test] coverage (243/799): OptEnvConf\.APISpec.enable-disable-optional.renders the reference documentation in the same way (218 mutations)
[opt-env-conf-test] coverage (253/799): OptEnvConf\.APISpec.enable-disable-optional.produces the same env docs structure as before (45 mutations)
[opt-env-conf-test] coverage (251/799): OptEnvConf\.APISpec.enable-disable-optional.shows the parser in the same way (135 mutations)
[opt-env-conf-test] coverage (244/799): OptEnvConf\.APISpec.enable-disable-optional.documents the man page in the same way (241 mutations)
[opt-env-conf-test] coverage (252/799): OptEnvConf\.APISpec.enable-disable-optional.produces the same conf docs structure as before (45 mutations)
[opt-env-conf-test] coverage (255/799): OptEnvConf\.APISpec.sub-settings.produces the same docs structure as before (62 mutations)
[opt-env-conf-test] coverage (245/799): OptEnvConf\.APISpec.enable-disable-optional.passes the linter (85 mutations)
[opt-env-conf-test] coverage (256/799): OptEnvConf\.APISpec.sub-settings.produces the same env docs structure as before (55 mutations)
[opt-env-conf-test] coverage (258/799): OptEnvConf\.APISpec.sub-settings.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (259/799): OptEnvConf\.APISpec.sub-settings.renders the Nix options the same way (93 mutations)
[opt-env-conf-test] coverage (262/799): OptEnvConf\.APISpec.sub-settings.documents the man page in the same way (271 mutations)
[opt-env-conf-test] coverage (263/799): OptEnvConf\.APISpec.sub-settings.documents the long opt parser in the same way (69 mutations)
[opt-env-conf-test] coverage (264/799): OptEnvConf\.APISpec.sub-settings.documents the help page in the same way (187 mutations)
[opt-env-conf-test] coverage (260/799): OptEnvConf\.APISpec.sub-settings.renders the reference documentation in the same way (248 mutations)
[opt-env-conf-test] coverage (266/799): OptEnvConf\.APISpec.sub-settings.documents the env parser in the same way (68 mutations)
[opt-env-conf-test] coverage (267/799): OptEnvConf\.APISpec.sub-settings.documents the short opt parser in the same way (85 mutations)
[opt-env-conf-test] coverage (261/799): OptEnvConf\.APISpec.sub-settings.produces the same conf docs structure as before (55 mutations)
[opt-env-conf-test] coverage (265/799): OptEnvConf\.APISpec.sub-settings.passes the linter (79 mutations)
[opt-env-conf-test] coverage (269/799): OptEnvConf\.APISpec.optional.documents the conf parser in the same way (42 mutations)
[opt-env-conf-test] coverage (272/799): OptEnvConf\.APISpec.optional.renders the reference documentation in the same way (177 mutations)
[opt-env-conf-test] coverage (273/799): OptEnvConf\.APISpec.optional.documents the help page in the same way (145 mutations)
[opt-env-conf-test] coverage (270/799): OptEnvConf\.APISpec.optional.renders the Nix options the same way (82 mutations)
[opt-env-conf-test] coverage (276/799): OptEnvConf\.APISpec.optional.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (275/799): OptEnvConf\.APISpec.optional.documents the env parser in the same way (42 mutations)
[opt-env-conf-test] coverage (274/799): OptEnvConf\.APISpec.optional.produces the same env docs structure as before (42 mutations)
[opt-env-conf-test] coverage (248/799): OptEnvConf\.APISpec.enable-disable-optional.documents the conf parser in the same way (58 mutations)
[opt-env-conf-test] coverage (279/799): OptEnvConf\.APISpec.optional.documents the long opt parser in the same way (63 mutations)
[opt-env-conf-test] coverage (278/799): OptEnvConf\.APISpec.optional.documents the man page in the same way (196 mutations)
[opt-env-conf-test] coverage (281/799): OptEnvConf\.APISpec.optional.produces the same opt docs structure as before (45 mutations)
[opt-env-conf-test] coverage (277/799): OptEnvConf\.APISpec.optional.produces the same docs structure as before (42 mutations)
[opt-env-conf-test] coverage (280/799): OptEnvConf\.APISpec.optional.produces the same conf docs structure as before (42 mutations)
[opt-env-conf-test] coverage (282/799): OptEnvConf\.APISpec.optional.passes the linter (68 mutations)
[opt-env-conf-test] coverage (249/799): OptEnvConf\.APISpec.enable-disable-optional.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (246/799): OptEnvConf\.APISpec.enable-disable-optional.documents the help page in the same way (157 mutations)
[opt-env-conf-test] coverage (283/799): OptEnvConf\.APISpec.optional.documents the short opt parser in the same way (69 mutations)
[opt-env-conf-test] coverage (247/799): OptEnvConf\.APISpec.enable-disable-optional.documents the env parser in the same way (58 mutations)
[opt-env-conf-test] coverage (250/799): OptEnvConf\.APISpec.enable-disable-optional.renders the Nix options the same way (83 mutations)
[opt-env-conf-test] coverage (268/799): OptEnvConf\.APISpec.sub-settings.shows the parser in the same way (152 mutations)
[opt-env-conf-test] coverage (254/799): OptEnvConf\.APISpec.sub-settings.produces the same opt docs structure as before (51 mutations)
[opt-env-conf-test] coverage (271/799): OptEnvConf\.APISpec.optional.shows the parser in the same way (113 mutations)
[opt-env-conf-test] coverage (257/799): OptEnvConf\.APISpec.sub-settings.documents the conf parser in the same way (68 mutations)
[opt-env-conf-test] coverage (284/799): OptEnvConf\.APISpec.big-config.renders the Nix options the same way (84 mutations)
[opt-env-conf-test] coverage (285/799): OptEnvConf\.APISpec.big-config.documents the man page in the same way (251 mutations)
[opt-env-conf-test] coverage (286/799): OptEnvConf\.APISpec.big-config.documents the conf parser in the same way (59 mutations)
[opt-env-conf-test] coverage (295/799): OptEnvConf\.APISpec.big-config.documents the version page in the same way (7 mutations)
[opt-env-conf-test] coverage (291/799): OptEnvConf\.APISpec.big-config.produces the same conf docs structure as before (46 mutations)
[opt-env-conf-test] coverage (292/799): OptEnvConf\.APISpec.big-config.shows the parser in the same way (136 mutations)
[opt-env-conf-test] coverage (297/799): OptEnvConf\.APISpec.big-config.documents the short opt parser in the same way (79 mutations)
[opt-env-conf-test] coverage (287/799): OptEnvConf\.APISpec.big-config.documents the help page in the same way (167 mutations)
[opt-env-conf-test] coverage (301/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["sub","foo"] (155 mutations)
[opt-env-conf-test] coverage (302/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["sub"] (167 mutations)
[opt-env-conf-test] coverage (304/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["--port","notaport"] (262 mutations)
[opt-env-conf-test] coverage (294/799): OptEnvConf\.APISpec.big-config.renders the reference documentation in the same way (228 mutations)
[opt-env-conf-test] coverage (299/799): OptEnvConf\.EnvMapSpec.parseEnvMap.produces valid EnvMaps (0 mutations)
[opt-env-conf-test] coverage (300/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["quux"] (251 mutations)
[opt-env-conf-test] coverage (298/799): OptEnvConf\.APISpec.big-config.produces the same opt docs structure as before (49 mutations)
[opt-env-conf-test] coverage (303/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: [] (241 mutations)
[opt-env-conf-test] coverage (306/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["create"] (181 mutations)
[opt-env-conf-test] coverage (290/799): OptEnvConf\.APISpec.big-config.passes the linter (80 mutations)
[opt-env-conf-test] coverage (310/799): OptEnvConf\.RunSpec.runParser.Select.can use the second parser with select (11 mutations)
[opt-env-conf-test] coverage (309/799): OptEnvConf\.RunSpec.runParser.subConfig.can prefix a conf val parser (84 mutations)
[opt-env-conf-test] coverage (305/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["read"] (155 mutations)
[opt-env-conf-test] coverage (307/799): OptEnvConf\.HelpSpec.this help page in the same way for args\: ["sub","bar"] (155 mutations)
[opt-env-conf-test] coverage (311/799): OptEnvConf\.RunSpec.runParser.Select.can avoid the second parser with select (11 mutations)
[opt-env-conf-test] coverage (308/799): OptEnvConf\.RunSpec.runParser.withCombinedYamlConfig.can parse without any arguments (108 mutations)
[opt-env-conf-test] coverage (312/799): OptEnvConf\.RunSpec.runParser.subArgs.can prefix a switch parser (70 mutations)
[opt-env-conf-test] coverage (314/799): OptEnvConf\.RunSpec.runParser.Some.fails to parse zero args (80 mutations)
[opt-env-conf-test] coverage (318/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--enable-example"] as True (245 mutations)
[opt-env-conf-test] coverage (316/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["command","arg"] as ("command",'2') (221 mutations)
[opt-env-conf-test] coverage (317/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [] as True (220 mutations)
[opt-env-conf-test] coverage (319/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["quux","--port","6"] as (["quux"],[6]) (267 mutations)
[opt-env-conf-test] coverage (296/799): OptEnvConf\.APISpec.big-config.produces the same env docs structure as before (46 mutations)
[opt-env-conf-test] coverage (321/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","all","-bare","--arguments"] as ["all","-bare","--arguments"] (231 mutations)
[opt-env-conf-test] coverage (288/799): OptEnvConf\.APISpec.big-config.documents the env parser in the same way (59 mutations)
[opt-env-conf-test] coverage (320/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","False")] as False (236 mutations)
[opt-env-conf-test] coverage (293/799): OptEnvConf\.APISpec.big-config.documents the long opt parser in the same way (67 mutations)
[opt-env-conf-test] coverage (289/799): OptEnvConf\.APISpec.big-config.produces the same docs structure as before (46 mutations)
[opt-env-conf-test] coverage (324/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vv","--"] as (["--"],2) (282 mutations)
[opt-env-conf-test] coverage (322/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-w","foo"] as (Just "foo",True) (289 mutations)
[opt-env-conf-test] coverage (323/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [] as False (220 mutations)
[opt-env-conf-test] coverage (326/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-p1"] as (["-p1"],[]) (248 mutations)
[opt-env-conf-test] coverage (313/799): OptEnvConf\.RunSpec.runParser.subArgs.can prefix an option parser (93 mutations)
[opt-env-conf-test] coverage (328/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ('a','b') (253 mutations)
[opt-env-conf-test] coverage (325/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","False")] as False:1 (236 mutations)
[opt-env-conf-test] coverage (327/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vf","foo","-v"] as (2,"foo") (294 mutations)
[opt-env-conf-test] coverage (330/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses configuration Just (fromList [("foo",String "bar")]) as Right "bar" (195 mutations)
[opt-env-conf-test] coverage (329/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-v","b","-v","c"] as (["a","b","c"],4) (259 mutations)
[opt-env-conf-test] coverage (333/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--bash-completion-script"] as Left True (214 mutations)
[opt-env-conf-test] coverage (332/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","b","-v"] as (["a","b"],3) (259 mutations)
[opt-env-conf-test] coverage (334/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-vv","b","-v","c"] as (["a","b","c"],5) (269 mutations)
[opt-env-conf-test] coverage (331/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","--watch"] as (Just "foo",True) (271 mutations)
[opt-env-conf-test] coverage (335/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as "bar" (277 mutations)
[opt-env-conf-test] coverage (336/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--option","command","arg"] as ("command",'2') (239 mutations)
[opt-env-conf-test] coverage (315/799): OptEnvConf\.RunSpec.runParser.Some.can parse some args (102 mutations)
[opt-env-conf-test] coverage (338/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as Nothing (220 mutations)
[opt-env-conf-test] coverage (337/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vv","--"] as (["--"],2):1 (268 mutations)
[opt-env-conf-test] coverage (342/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--watch","foo"] as (Just "foo",True) (288 mutations)
[opt-env-conf-test] coverage (340/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--verbose"] as 1 (228 mutations)
[opt-env-conf-test] coverage (343/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","-v","b","-v"] as (["a","b"],2) (253 mutations)
[opt-env-conf-test] coverage (346/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["c"] as "c" (220 mutations)
[opt-env-conf-test] coverage (344/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-p","2"] as (["-p","2"],[]) (248 mutations)
[opt-env-conf-test] coverage (345/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["args","here"] as ["args","here"] (260 mutations)
[opt-env-conf-test] coverage (347/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--no-example"] as False (245 mutations)
[opt-env-conf-test] coverage (348/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-vv","-v","b","-v","c"] as (["a","b","c"],6) (269 mutations)
[opt-env-conf-test] coverage (349/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-p1"] as (["-p1"],[]):1 (245 mutations)
[opt-env-conf-test] coverage (350/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ([],0) (207 mutations)
[opt-env-conf-test] coverage (351/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--enable-example"] as True:1 (245 mutations)
[opt-env-conf-test] coverage (352/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--enable-example"] as Just True (245 mutations)
[opt-env-conf-test] coverage (353/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","False")] as False:2 (236 mutations)
[opt-env-conf-test] coverage (339/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","-w"] as (Just "foo",True) (272 mutations)
[opt-env-conf-test] coverage (354/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--bar"] as (Just "--bar",False) (280 mutations)
[opt-env-conf-test] coverage (355/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--before","'m'"] as ('m',Nothing) (291 mutations)
[opt-env-conf-test] coverage (357/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses configuration Just (fromList [("hi",String "ho")]) as "ho" (193 mutations)
[opt-env-conf-test] coverage (341/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","True")] as True (236 mutations)
[opt-env-conf-test] coverage (360/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p1"] as ([],[1]) (256 mutations)
[opt-env-conf-test] coverage (356/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port","3"] as ([],[3]) (277 mutations)
[opt-env-conf-test] coverage (359/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--bar"] as (Just "--bar",False):1 (280 mutations)
[opt-env-conf-test] coverage (362/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["two"] as '2' (150 mutations)
[opt-env-conf-test] coverage (358/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--example"] as True (245 mutations)
[opt-env-conf-test] coverage (361/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v","-f","foo"] as (1,"foo") (284 mutations)
[opt-env-conf-test] coverage (363/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--file","foo"] as "foo" (213 mutations)
[opt-env-conf-test] coverage (365/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p","1","-p","2","-p","3"] as ([],[1,2,3]) (274 mutations)
[opt-env-conf-test] coverage (370/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=8","bar"] as (["bar"],[8]) (265 mutations)
[opt-env-conf-test] coverage (369/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","False")] as False (236 mutations)
[opt-env-conf-test] coverage (372/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["bar","--port=5"] as (["bar"],[5]) (251 mutations)
[opt-env-conf-test] coverage (373/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--watch","foo"] as (Just "foo",True):1 (271 mutations)
[opt-env-conf-test] coverage (371/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-vv","-v","b","-v","c"] as (["a","b","c"],6):1 (285 mutations)
[opt-env-conf-test] coverage (376/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=2","-p3"] as ([],[2,3]) (258 mutations)
[opt-env-conf-test] coverage (374/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-f","foo"] as (0,"foo") (284 mutations)
[opt-env-conf-test] coverage (375/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v","--verbose"] as 2 (235 mutations)
[opt-env-conf-test] coverage (378/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","-v","b","-v"] as (["a","b"],2):1 (269 mutations)
[opt-env-conf-test] coverage (377/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=8","bar"] as (["bar"],[8]):1 (251 mutations)
[opt-env-conf-test] coverage (381/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [] as True:1 (220 mutations)
[opt-env-conf-test] coverage (384/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--disable-example"] as False (245 mutations)
[opt-env-conf-test] coverage (379/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as "bar":1 (277 mutations)
[opt-env-conf-test] coverage (380/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses configuration Just (fromList [("hi",Number 5\.0)]) as Left 5 (195 mutations)
[opt-env-conf-test] coverage (382/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vv","--verbose","-v"] as 4 (245 mutations)
[opt-env-conf-test] coverage (383/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p1","--port","2"] as ([],[1,2]) (290 mutations)
[opt-env-conf-test] coverage (367/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo"] as (Just "foo",False) (253 mutations)
[opt-env-conf-test] coverage (386/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=2"] as ([],[2]) (245 mutations)
[opt-env-conf-test] coverage (385/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","True")] as True (236 mutations)
[opt-env-conf-test] coverage (364/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["quux","--port","6"] as (["quux"],[6]):1 (277 mutations)
[opt-env-conf-test] coverage (389/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--disable-example"] as False:1 (245 mutations)
[opt-env-conf-test] coverage (392/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-f","foo"] as "foo" (228 mutations)
[opt-env-conf-test] coverage (387/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","False")] as False:1 (236 mutations)
[opt-env-conf-test] coverage (388/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=2"] as ([],[2]):1 (255 mutations)
[opt-env-conf-test] coverage (390/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--watch"] as (Nothing,True) (263 mutations)
[opt-env-conf-test] coverage (391/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as True (222 mutations)
[opt-env-conf-test] coverage (393/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ([],[]) (207 mutations)
[opt-env-conf-test] coverage (394/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["arg"] as Right "arg" (248 mutations)
[opt-env-conf-test] coverage (396/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as (True,"bar") (238 mutations)
[opt-env-conf-test] coverage (395/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["run2","--foo","bar"] as "bar" (264 mutations)
[opt-env-conf-test] coverage (397/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as 0 (198 mutations)
[opt-env-conf-test] coverage (398/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["run2","--foo","bar"] as "bar":1 (264 mutations)
[opt-env-conf-test] coverage (401/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as False (222 mutations)
[opt-env-conf-test] coverage (400/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","--port=3"] as (["--port=3"],[]) (242 mutations)
[opt-env-conf-test] coverage (402/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ([],0):1 (210 mutations)
[opt-env-conf-test] coverage (403/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vv","--verbose"] as 3 (245 mutations)
[opt-env-conf-test] coverage (399/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ([],[]):1 (210 mutations)
[opt-env-conf-test] coverage (404/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v","-v"] as 2 (229 mutations)
[opt-env-conf-test] coverage (408/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--"] as (["--"],0) (236 mutations)
[opt-env-conf-test] coverage (406/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [] as False:1 (220 mutations)
[opt-env-conf-test] coverage (411/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p","1","-p","2","-p","3"] as ([],[1,2,3]):1 (292 mutations)
[opt-env-conf-test] coverage (410/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-v"] as (["-v"],0) (245 mutations)
[opt-env-conf-test] coverage (405/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v","--"] as (["--"],1) (258 mutations)
[opt-env-conf-test] coverage (409/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-w"] as (Nothing,True):1 (279 mutations)
[opt-env-conf-test] coverage (412/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["run1","--foo","bar"] as "bar" (264 mutations)
[opt-env-conf-test] coverage (414/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--file","foo","-v"] as (["foo"],1) (278 mutations)
[opt-env-conf-test] coverage (415/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as "bar":2 (277 mutations)
[opt-env-conf-test] coverage (416/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--no-example"] as Just False (245 mutations)
[opt-env-conf-test] coverage (413/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","True")] as True:1 (236 mutations)
[opt-env-conf-test] coverage (417/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port","9","quux"] as (["quux"],[9]) (267 mutations)
[opt-env-conf-test] coverage (420/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vvv"] as ([],3) (255 mutations)
[opt-env-conf-test] coverage (419/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as ([],0):2 (209 mutations)
[opt-env-conf-test] coverage (418/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","-w"] as (Just "foo",True):1 (272 mutations)
[opt-env-conf-test] coverage (422/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--example"] as True:1 (245 mutations)
[opt-env-conf-test] coverage (421/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","-dfu"] as "-dfu" (220 mutations)
[opt-env-conf-test] coverage (423/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","foo"] as Just ("foo",Nothing) (278 mutations)
[opt-env-conf-test] coverage (425/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","True")] as True:2 (236 mutations)
[opt-env-conf-test] coverage (424/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as True:1 (222 mutations)
[opt-env-conf-test] coverage (426/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","'c'","--bar","'d'"] as ('c','d') (254 mutations)
[opt-env-conf-test] coverage (427/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses configuration Just (fromList [("hi",String "ho")]) as Just "ho" (216 mutations)
[opt-env-conf-test] coverage (428/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","False")] as False:3 (236 mutations)
[opt-env-conf-test] coverage (407/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as False:1 (222 mutations)
[opt-env-conf-test] coverage (366/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-w"] as (Nothing,True) (264 mutations)
[opt-env-conf-test] coverage (368/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo"] as (Just "foo",False):1 (253 mutations)
[opt-env-conf-test] coverage (430/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vf","foo"] as (["foo"],1) (281 mutations)
[opt-env-conf-test] coverage (434/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","foo"] as Just ("foo",Nothing):1 (295 mutations)
[opt-env-conf-test] coverage (431/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","True")] as True:1 (236 mutations)
[opt-env-conf-test] coverage (433/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","b","-v"] as (["a","b"],3):1 (275 mutations)
[opt-env-conf-test] coverage (435/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","-p4"] as (["foo"],[4]) (262 mutations)
[opt-env-conf-test] coverage (432/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","False")] as False:2 (236 mutations)
[opt-env-conf-test] coverage (437/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","True")] as True:2 (236 mutations)
[opt-env-conf-test] coverage (436/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as "bar":3 (213 mutations)
[opt-env-conf-test] coverage (438/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","--port","4"] as (["--port","4"],[]) (242 mutations)
[opt-env-conf-test] coverage (439/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as "b" (138 mutations)
[opt-env-conf-test] coverage (443/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vv"] as 2 (239 mutations)
[opt-env-conf-test] coverage (445/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p7","foo"] as (["foo"],[7]) (262 mutations)
[opt-env-conf-test] coverage (444/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["bar","--port=5"] as (["bar"],[5]):1 (255 mutations)
[opt-env-conf-test] coverage (429/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["run","--foo","bar"] as "bar" (264 mutations)
[opt-env-conf-test] coverage (440/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port","3"] as ([],[3]):1 (261 mutations)
[opt-env-conf-test] coverage (441/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--"] as (["--"],0):1 (239 mutations)
[opt-env-conf-test] coverage (442/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as ("--foo","bar") (229 mutations)
[opt-env-conf-test] coverage (446/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["delete"] as "ho" (150 mutations)
[opt-env-conf-test] coverage (447/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--watch"] as (Nothing,True):1 (278 mutations)
[opt-env-conf-test] coverage (448/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-f","bar","--foo","quux"] as ["bar","quux"] (262 mutations)
[opt-env-conf-test] coverage (449/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vvf","foo","-v"] as (3,"foo") (294 mutations)
[opt-env-conf-test] coverage (451/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as Nothing:1 (253 mutations)
[opt-env-conf-test] coverage (452/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port=2","-p3"] as ([],[2,3]):1 (270 mutations)
[opt-env-conf-test] coverage (454/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["arg"] as Right (Just "arg") (251 mutations)
[opt-env-conf-test] coverage (453/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-w","foo"] as (Just "foo",True):1 (272 mutations)
[opt-env-conf-test] coverage (455/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--disable-example"] as Just False (245 mutations)
[opt-env-conf-test] coverage (458/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-v","b","-v"] as (["a","b"],4) (275 mutations)
[opt-env-conf-test] coverage (456/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","--port","4"] as (["--port","4"],[]):1 (245 mutations)
[opt-env-conf-test] coverage (457/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vvv"] as ([],3):1 (267 mutations)
[opt-env-conf-test] coverage (467/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["True"] as True (216 mutations)
[opt-env-conf-test] coverage (460/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as Nothing:3 (220 mutations)
[opt-env-conf-test] coverage (459/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as Nothing:2 (259 mutations)
[opt-env-conf-test] coverage (465/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as ("bar",True) (257 mutations)
[opt-env-conf-test] coverage (466/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("ALTERNATIVE","True")] as True:3 (236 mutations)
[opt-env-conf-test] coverage (450/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--bash-completion-script"] as Left True:1 (217 mutations)
[opt-env-conf-test] coverage (461/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-vv","b","-v","c"] as (["a","b","c"],5):1 (285 mutations)
[opt-env-conf-test] coverage (468/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-ffoo"] as "foo" (210 mutations)
[opt-env-conf-test] coverage (469/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-v","b","-v","c"] as (["a","b","c"],4):1 (275 mutations)
[opt-env-conf-test] coverage (470/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--example"] as Just True (245 mutations)
[opt-env-conf-test] coverage (473/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p1","--port","2"] as ([],[1,2]):1 (274 mutations)
[opt-env-conf-test] coverage (474/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["a","--verbose","-v","-v","b","-v"] as (["a","b"],4):1 (259 mutations)
[opt-env-conf-test] coverage (462/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as ["bar"] (241 mutations)
[opt-env-conf-test] coverage (472/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args [] as False:2 (193 mutations)
[opt-env-conf-test] coverage (471/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v","--"] as (["--"],1):1 (272 mutations)
[opt-env-conf-test] coverage (475/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","False")] as False:3 (236 mutations)
[opt-env-conf-test] coverage (478/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses environment [("EXAMPLE","True")] as True:3 (236 mutations)
[opt-env-conf-test] coverage (476/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p7","foo"] as (["foo"],[7]):1 (276 mutations)
[opt-env-conf-test] coverage (481/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--file=foo"] as "foo" (197 mutations)
[opt-env-conf-test] coverage (492/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","--bar"] as "--bar" (217 mutations)
[opt-env-conf-test] coverage (480/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-p","2"] as (["-p","2"],[]):1 (245 mutations)
[opt-env-conf-test] coverage (463/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--no-example"] as False:1 (245 mutations)
[opt-env-conf-test] coverage (493/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar","--foo","quux"] as ["bar","quux"] (241 mutations)
[opt-env-conf-test] coverage (491/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses configuration Nothing as Nothing (209 mutations)
[opt-env-conf-test] coverage (495/799): OptEnvConf\.RunSpec.runParser.MapIO.can run an IO action on the result of a parser (12 mutations)
[opt-env-conf-test] coverage (494/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--port","9","quux"] as (["quux"],[9]):1 (279 mutations)
[opt-env-conf-test] coverage (500/799): OptEnvConf\.RunSpec.runParser.pure.can parse a pure value from anything (8 mutations)
[opt-env-conf-test] coverage (496/799): OptEnvConf\.RunSpec.runParser.Alt.can parse a Right value with Alt (20 mutations)
[opt-env-conf-test] coverage (498/799): OptEnvConf\.RunSpec.runParser.WithConfig.can replace the config object (76 mutations)
[opt-env-conf-test] coverage (497/799): OptEnvConf\.RunSpec.runParser.Alt.can parse a Left value with Alt (26 mutations)
[opt-env-conf-test] coverage (503/799): OptEnvConf\.RunSpec.runParser.subEnv.can prefix an env var parser (73 mutations)
[opt-env-conf-test] coverage (502/799): OptEnvConf\.RunSpec.runParser.<*>.can parse two values with ap (10 mutations)
[opt-env-conf-test] coverage (501/799): OptEnvConf\.RunSpec.runParser.withFirstYamlConfig.can parse without any arguments (108 mutations)
[opt-env-conf-test] coverage (505/799): OptEnvConf\.RunSpec.runParser.Setting.can parse a single arg (87 mutations)
[opt-env-conf-test] coverage (504/799): OptEnvConf\.RunSpec.runParser.Empty.can fail to parse an empty value (27 mutations)
[opt-env-conf-test] coverage (464/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar"] as (True,"bar"):1 (239 mutations)
[opt-env-conf-test] coverage (506/799): OptEnvConf\.RunSpec.runParser.Setting.can parse a single env var (66 mutations)
[opt-env-conf-test] coverage (482/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","--watch"] as (Just "foo",True):1 (271 mutations)
[opt-env-conf-test] coverage (486/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["one"] as '1' (150 mutations)
[opt-env-conf-test] coverage (485/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["run1","--foo","bar"] as "bar":1 (264 mutations)
[opt-env-conf-test] coverage (490/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["foo","-p4"] as (["foo"],[4]):1 (266 mutations)
[opt-env-conf-test] coverage (489/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","--port=3"] as (["--port=3"],[]):1 (245 mutations)
[opt-env-conf-test] coverage (487/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-p1"] as ([],[1]):1 (266 mutations)
[opt-env-conf-test] coverage (479/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["add","hi"] as "hi" (216 mutations)
[opt-env-conf-test] coverage (507/799): OptEnvConf\.RunSpec.runParser.Setting.parses Null as the default value (68 mutations)
[opt-env-conf-test] coverage (499/799): OptEnvConf\.RunSpec.runParser.Many.can pass many args (97 mutations)
[opt-env-conf-test] coverage (508/799): OptEnvConf\.RunSpec.runParser.Setting.can parse a many of the same option (121 mutations)
[opt-env-conf-test] coverage (517/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.completes files and directories for a file argument (63 mutations)
[opt-env-conf-test] coverage (515/799): OptEnvConf\.RunSpec.runParser.RequireCapability.can run the check parser if the capability is available (22 mutations)
[opt-env-conf-test] coverage (512/799): OptEnvConf\.RunSpec.runParser.RequireCapability.still runs the below parser when a capability is missing for the check parser (22 mutations)
[opt-env-conf-test] coverage (520/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.directories end in / and files do not (63 mutations)
[opt-env-conf-test] coverage (522/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.carries the description through to file completions (63 mutations)
[opt-env-conf-test] coverage (524/799): OptEnvConf\.CompletionSpec.file and directory completion.directoryPathSetting.completes only directories after a directory option's dashed (101 mutations)
[opt-env-conf-test] coverage (526/799): OptEnvConf\.CompletionSpec.file and directory completion.directoryPathSetting.directories are not final (57 mutations)
[opt-env-conf-test] coverage (518/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.completes files and directories after a file option's dashed (107 mutations)
[opt-env-conf-test] coverage (532/799): OptEnvConf\.CompletionSpec.file and directory completion.combined with other settings.completes directory option value alongside default command with argument (137 mutations)
[opt-env-conf-test] coverage (519/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.filters by prefix (70 mutations)
[opt-env-conf-test] coverage (534/799): OptEnvConf\.CompletionSpec.zsh.produces the same zsh completion script (2 mutations)
[opt-env-conf-test] coverage (529/799): OptEnvConf\.CompletionSpec.file and directory completion.combined with other settings.includes directory completions alongside other options (117 mutations)
[opt-env-conf-test] coverage (533/799): OptEnvConf\.CompletionSpec.fish.produces the same fish completion script (2 mutations)
[opt-env-conf-test] coverage (530/799): OptEnvConf\.CompletionSpec.file and directory completion.combined with other settings.completes directory option value first, then other options (119 mutations)
[opt-env-conf-test] coverage (528/799): OptEnvConf\.CompletionSpec.file and directory completion.combined with other settings.includes file completions alongside other options (121 mutations)
[opt-env-conf-test] coverage (525/799): OptEnvConf\.CompletionSpec.file and directory completion.directoryPathSetting.never includes files (57 mutations)
[opt-env-conf-test] coverage (536/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.hidden settings.does not suggest hidden switches (42 mutations)
[opt-env-conf-test] coverage (527/799): OptEnvConf\.CompletionSpec.file and directory completion.directoryPathSetting.carries the description through to directory completions (57 mutations)
[opt-env-conf-test] coverage (531/799): OptEnvConf\.CompletionSpec.file and directory completion.combined with other settings.completes file option value first, then other options (123 mutations)
[opt-env-conf-test] coverage (523/799): OptEnvConf\.CompletionSpec.file and directory completion.directoryPathSetting.completes only directories for a directory argument (57 mutations)
[opt-env-conf-test] coverage (521/799): OptEnvConf\.CompletionSpec.file and directory completion.filePathSetting.files are final and directories are not final (63 mutations)
[opt-env-conf-test] coverage (516/799): OptEnvConf\.RunSpec.runParser.fmap.can parse a mapped value from anything (8 mutations)
[opt-env-conf-test] coverage (541/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.nested commands.completes nested default commands (64 mutations)
[opt-env-conf-test] coverage (542/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.nested commands.completes top-level commands (15 mutations)
[opt-env-conf-test] coverage (543/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial long option prefix with multiple matches.filters options by a longer prefix matching one (42 mutations)
[opt-env-conf-test] coverage (544/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial long option prefix with multiple matches.filters options by a short prefix matching multiple (44 mutations)
[opt-env-conf-test] coverage (545/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with other parsers.completes commands after consuming many switches (85 mutations)
[opt-env-conf-test] coverage (547/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with other parsers.completes both after consuming one many-option (91 mutations)
[opt-env-conf-test] coverage (546/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with other parsers.completes many switches combined with a command (55 mutations)
[opt-env-conf-test] coverage (548/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with other parsers.completes both many and a following switch (55 mutations)
[opt-env-conf-test] coverage (549/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a long option's dashed (42 mutations)
[opt-env-conf-test] coverage (553/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.some.can complete at least one switch (40 mutations)
[opt-env-conf-test] coverage (555/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.settings with only env or conf.does not error on env-only settings combined with arg settings (45 mutations)
[opt-env-conf-test] coverage (550/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a long switch from a double dash (36 mutations)
[opt-env-conf-test] coverage (551/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.option with different dashed in args.does not suggest an option when a different dashed is in the args (82 mutations)
[opt-env-conf-test] coverage (552/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.some.can still complete after consuming one (62 mutations)
[opt-env-conf-test] coverage (554/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a short switch from a single dash (38 mutations)
[opt-env-conf-test] coverage (556/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion at a middle index.filters completions when cursor word narrows the match (44 mutations)
[opt-env-conf-test] coverage (557/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion at a middle index.completes the value of an option at its value position with a matching prefix (93 mutations)
[opt-env-conf-test] coverage (560/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.default command parser failure.falls back to explicit commands when default command parser fails (45 mutations)
[opt-env-conf-test] coverage (559/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.folded short switches.no longer suggests a switch consumed via folding (77 mutations)
[opt-env-conf-test] coverage (558/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.folded short switches.can complete after a folded short switch is consumed (65 mutations)
[opt-env-conf-test] coverage (561/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.multiple arguments.completes both arguments when none have been typed (40 mutations)
[opt-env-conf-test] coverage (563/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.optional.completes through an optional parser (56 mutations)
[opt-env-conf-test] coverage (564/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.optional.completes an optional with an applicative (75 mutations)
[opt-env-conf-test] coverage (562/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.multiple arguments.completes the second argument after the first (47 mutations)
[opt-env-conf-test] coverage (565/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.optional.completes the second part when the optional is skipped (75 mutations)
[opt-env-conf-test] coverage (569/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many.can complete repeated switches (40 mutations)
[opt-env-conf-test] coverage (567/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many.can still complete after consuming one (62 mutations)
[opt-env-conf-test] coverage (568/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many.can complete repeated options after one has already been parsed (102 mutations)
[opt-env-conf-test] coverage (570/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many.can still complete after consuming two (66 mutations)
[opt-env-conf-test] coverage (566/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many.can complete repeated options (85 mutations)
[opt-env-conf-test] coverage (537/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.hidden settings.does not suggest hidden options (48 mutations)
[opt-env-conf-test] coverage (513/799): OptEnvConf\.RunSpec.runParser.RequireCapability.can run the setting parser if the capability is available (70 mutations)
[opt-env-conf-test] coverage (511/799): OptEnvConf\.RunSpec.runParser.RequireCapability.cannot run the setting parser if the capability is available (52 mutations)
[opt-env-conf-test] coverage (572/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withDefault.still suggests the option when it has a default (56 mutations)
[opt-env-conf-test] coverage (510/799): OptEnvConf\.RunSpec.runParser.Setting.can parse a single option (93 mutations)
[opt-env-conf-test] coverage (484/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--foo","bar","-f","quux"] as ["bar","quux"] (262 mutations)
[opt-env-conf-test] coverage (573/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withDefault.completes the underlying parser (94 mutations)
[opt-env-conf-test] coverage (571/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.no longer suggests an option that has already been parsed (88 mutations)
[opt-env-conf-test] coverage (574/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.check.completes through a mapIO (36 mutations)
[opt-env-conf-test] coverage (488/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["--","-v"] as (["-v"],0):1 (248 mutations)
[opt-env-conf-test] coverage (514/799): OptEnvConf\.RunSpec.runParser.RequireCapability.cannot run the check parser if the capability is not available (17 mutations)
[opt-env-conf-test] coverage (576/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.empty parser.produces no completions for empty (0 mutations)
[opt-env-conf-test] coverage (575/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.check.completes through a checkMapEither (32 mutations)
[opt-env-conf-test] coverage (580/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.deeply nested parsers.completes correctly after all optional+many consumed (142 mutations)
[opt-env-conf-test] coverage (578/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.allOrNothing.still suggests the remaining option after one is consumed (82 mutations)
[opt-env-conf-test] coverage (577/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.allOrNothing.completes normally inside allOrNothing (50 mutations)
[opt-env-conf-test] coverage (483/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-vvf","foo"] as (2,"foo") (294 mutations)
[opt-env-conf-test] coverage (579/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.deeply nested parsers.completes through optional + many + applicative (88 mutations)
[opt-env-conf-test] coverage (509/799): OptEnvConf\.RunSpec.runParser.Setting.can parse a single config value (75 mutations)
[opt-env-conf-test] coverage (581/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a file argument (32 mutations)
[opt-env-conf-test] coverage (585/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete both switches of a tuple (44 mutations)
[opt-env-conf-test] coverage (586/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many edge cases.handles many where the inner parser fails (2 mutations)
[opt-env-conf-test] coverage (596/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.applicative branch failures.returns nothing when first applicative branch fails (20 mutations)
[opt-env-conf-test] coverage (597/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.applicative branch failures.returns nothing when second applicative branch fails (35 mutations)
[opt-env-conf-test] coverage (582/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a directory argument (32 mutations)
[opt-env-conf-test] coverage (583/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.argument completion with dashed values.should only complete the second argument after a dashed first argument (52 mutations)
[opt-env-conf-test] coverage (594/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial argument completion.filters argument values by typed prefix (36 mutations)
[opt-env-conf-test] coverage (584/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.argument completion with dashed values.should not offer the argument completer after a dashed value is consumed (41 mutations)
[opt-env-conf-test] coverage (595/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial argument completion.filters argument values by a different prefix (34 mutations)
[opt-env-conf-test] coverage (598/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.no longer suggests a switch that has already been parsed (62 mutations)
[opt-env-conf-test] coverage (599/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.multiple commands with shared options.does not leak options from other commands (58 mutations)
[opt-env-conf-test] coverage (600/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.multiple commands with shared options.completes options in the selected command only (58 mutations)
[opt-env-conf-test] coverage (601/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands merged via alternative.completes commands from both sides of an alternative (27 mutations)
[opt-env-conf-test] coverage (603/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command's long switch from a single dash (56 mutations)
[opt-env-conf-test] coverage (602/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command's long option (96 mutations)
[opt-env-conf-test] coverage (604/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command's short option (107 mutations)
[opt-env-conf-test] coverage (535/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a switch from nothing (37 mutations)
[opt-env-conf-test] coverage (617/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial option value completion.filters option values by typed prefix (80 mutations)
[opt-env-conf-test] coverage (615/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a file option (76 mutations)
[opt-env-conf-test] coverage (613/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with partial values.filters many option values by prefix after one is consumed (100 mutations)
[opt-env-conf-test] coverage (539/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.nested commands.completes sub-commands after selecting a top-level command (26 mutations)
[opt-env-conf-test] coverage (614/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many with partial values.filters many option values by prefix (85 mutations)
[opt-env-conf-test] coverage (612/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a short option with a separate arg (87 mutations)
[opt-env-conf-test] coverage (609/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.alternative branch failures.returns no completions when both alternatives fail (29 mutations)
[opt-env-conf-test] coverage (618/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial option value completion.returns all option values when prefix is empty (82 mutations)
[opt-env-conf-test] coverage (610/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.alternative branch failures.returns first branch completions when second branch fails (65 mutations)
[opt-env-conf-test] coverage (616/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.short option shorthand.completes after a short option consumed in shorthand (73 mutations)
[opt-env-conf-test] coverage (608/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.alternative branch failures.restores state when first branch fails in an alternative (65 mutations)
[opt-env-conf-test] coverage (607/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command with a switch (55 mutations)
[opt-env-conf-test] coverage (590/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withConfig.completes the main parser through withConfig (38 mutations)
[opt-env-conf-test] coverage (605/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command's short switch (58 mutations)
[opt-env-conf-test] coverage (630/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.still lists all commands when there is a default (17 mutations)
[opt-env-conf-test] coverage (629/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes both commands and the default command's switch (51 mutations)
[opt-env-conf-test] coverage (631/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes inside the default command after consuming its switch (90 mutations)
[opt-env-conf-test] coverage (628/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes the default command's option when no command is given (55 mutations)
[opt-env-conf-test] coverage (625/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes the default command's argument when no command is given (45 mutations)
[opt-env-conf-test] coverage (632/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes the default command's switch when no command is given (49 mutations)
[opt-env-conf-test] coverage (633/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes inside the default command after consuming its option (113 mutations)
[opt-env-conf-test] coverage (634/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.mixed arguments and options.can complete an option after a positional argument (53 mutations)
[opt-env-conf-test] coverage (635/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.mixed arguments and options.can complete a positional after an option (68 mutations)
[opt-env-conf-test] coverage (626/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.still filters commands by prefix when there is a default (17 mutations)
[opt-env-conf-test] coverage (627/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with a default command.completes the default command's option value when no command is given (104 mutations)
[opt-env-conf-test] coverage (623/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial argument completion after consuming earlier args.filters the second argument's completer by prefix after the first is consumed (51 mutations)
[opt-env-conf-test] coverage (636/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands.can complete a command argument when it's been partially provided (13 mutations)
[opt-env-conf-test] coverage (621/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.arguments after double dash.suggests the switch even after -- (known bug) (66 mutations)
[opt-env-conf-test] coverage (624/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete both switches of a tuple, with a prefix (44 mutations)
[opt-env-conf-test] coverage (622/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.arguments after double dash.consumes -- as the argument value (41 mutations)
[opt-env-conf-test] coverage (620/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with options inside.completes a command's many options after one is consumed (98 mutations)
[opt-env-conf-test] coverage (619/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with options inside.completes a command's many options (101 mutations)
[opt-env-conf-test] coverage (637/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands.can complete a command argument (13 mutations)
[opt-env-conf-test] coverage (638/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.enableDisableSwitch.filters the documented flag by prefix (64 mutations)
[opt-env-conf-test] coverage (640/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.global options with commands and a default.completes the default command's options after a global option (81 mutations)
[opt-env-conf-test] coverage (641/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.global options with commands and a default.completes commands after a global option (74 mutations)
[opt-env-conf-test] coverage (642/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.global options with commands and a default.completes global options and commands together (55 mutations)
[opt-env-conf-test] coverage (639/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.enableDisableSwitch.completes the documented dummy flag (64 mutations)
[opt-env-conf-test] coverage (645/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.pure parser.produces no completions for pure (0 mutations)
[opt-env-conf-test] coverage (644/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.commands with partial option value inside.filters a command's option values by prefix (100 mutations)
[opt-env-conf-test] coverage (643/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.partial command name with inner option completion.completes a command's options after selecting by prefix (56 mutations)
[opt-env-conf-test] coverage (652/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.prefix filtering.returns nothing when prefix matches nothing (36 mutations)
[opt-env-conf-test] coverage (648/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a directory option (76 mutations)
[opt-env-conf-test] coverage (477/799): OptEnvConf\.RunSpec.runParser.Unit tests.parses args ["-v"] as 1 (229 mutations)
[opt-env-conf-test] coverage (649/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete both switches of an either (57 mutations)
[opt-env-conf-test] coverage (646/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.choice.completes across all choices (61 mutations)
[opt-env-conf-test] coverage (650/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.prefix filtering.filters commands by typed prefix (12 mutations)
[opt-env-conf-test] coverage (653/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.command not found.returns no completions for an unknown command (22 mutations)
[opt-env-conf-test] coverage (654/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a long option (76 mutations)
[opt-env-conf-test] coverage (658/799): OptEnvConf\.NonDetSpec.runNonDet.can guard against previous values (13 mutations)
[opt-env-conf-test] coverage (593/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.no longer suggests an argument that has already been parsed (62 mutations)
[opt-env-conf-test] coverage (611/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a long switch from a single dash (36 mutations)
[opt-env-conf-test] coverage (659/799): OptEnvConf\.NonDetSpec.runNonDet.can recover from failures with <|> (7 mutations)
[opt-env-conf-test] coverage (606/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.completion after a command.can complete a command's long switch from a double dash (56 mutations)
[opt-env-conf-test] coverage (591/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withConfig.completes the main parser after the config option is consumed (96 mutations)
[opt-env-conf-test] coverage (592/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete both switches of an either wrapped in optionals (60 mutations)
[opt-env-conf-test] coverage (589/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withConfig.completes the config file option together with the main parser (50 mutations)
[opt-env-conf-test] coverage (588/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.withConfig.completes the config file value along with main parser suggestions (87 mutations)
[opt-env-conf-test] coverage (661/799): OptEnvConf\.CompleterSpec.filePath.can complete "" to ["foo\.txt","config\.yaml","bar/"] (51 mutations)
[opt-env-conf-test] coverage (666/799): OptEnvConf\.CompleterSpec.filePath.can complete "q" to [] (59 mutations)
[opt-env-conf-test] coverage (662/799): OptEnvConf\.CompleterSpec.filePath.can complete "f" to ["foo\.txt"] (60 mutations)
[opt-env-conf-test] coverage (663/799): OptEnvConf\.CompleterSpec.filePath.can complete "b" to ["bar/"] (60 mutations)
[opt-env-conf-test] coverage (665/799): OptEnvConf\.CompleterSpec.filePath.can complete "c" to ["config\.yaml"] (60 mutations)
[opt-env-conf-test] coverage (540/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.nested commands.filters sub-commands by prefix (26 mutations)
[opt-env-conf-test] coverage (538/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.select.completes through a select (38 mutations)
[opt-env-conf-test] coverage (667/799): OptEnvConf\.CompleterSpec.filePath.can complete "\." to ["\.hidden\.txt","\.hidden/"] (60 mutations)
[opt-env-conf-test] coverage (669/799): OptEnvConf\.CompleterSpec.filePath.can complete "\./\./" to ["\./\./foo\.txt","\./\./config\.yaml","\./\./bar/"] (51 mutations)
[opt-env-conf-test] coverage (668/799): OptEnvConf\.CompleterSpec.filePath.can complete "\./" to ["\./foo\.txt","\./config\.yaml","\./bar/"] (51 mutations)
[opt-env-conf-test] coverage (670/799): OptEnvConf\.CompleterSpec.filePath.can complete "\./\." to ["\./\.hidden\.txt","\./\.hidden/"] (60 mutations)
[opt-env-conf-test] coverage (587/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.many edge cases.returns first iteration completions when recursive call fails (25 mutations)
[opt-env-conf-test] coverage (673/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/d" to ["bar/deep/"] (66 mutations)
[opt-env-conf-test] coverage (674/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/deep" to ["bar/deep/gold\.txt","bar/deep/"] (66 mutations)
[opt-env-conf-test] coverage (671/799): OptEnvConf\.CompleterSpec.filePath.can complete "\./bar" to ["\./bar/quux\.txt","\./bar/","\./bar/deep/"] (60 mutations)
[opt-env-conf-test] coverage (675/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/deep/" to ["bar/deep/gold\.txt"] (59 mutations)
[opt-env-conf-test] coverage (672/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/" to ["bar/quux\.txt","bar/deep/"] (59 mutations)
[opt-env-conf-test] coverage (664/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar" to ["bar/quux\.txt","bar/","bar/deep/"] (60 mutations)
[opt-env-conf-test] coverage (660/799): OptEnvConf\.NonDetSpec.runNonDetT.can recover from underlying errors (14 mutations)
[opt-env-conf-test] coverage (657/799): OptEnvConf\.CompletionSpec.bash.produces the same bash completion script (2 mutations)
[opt-env-conf-test] coverage (656/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.argument completer at end.offers the argument completer at the end after a switch is consumed (68 mutations)
[opt-env-conf-test] coverage (655/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.argument completer at end.does not offer option completer when not at end of args (87 mutations)
[opt-env-conf-test] coverage (676/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/q" to ["bar/quux\.txt"] (66 mutations)
[opt-env-conf-test] coverage (677/799): OptEnvConf\.CompleterSpec.filePath.can complete "\.\." to parent directory contents (65 mutations)
[opt-env-conf-test] coverage (679/799): OptEnvConf\.CompleterSpec.filePath.can complete "\.\./f" to matching parent files (68 mutations)
[opt-env-conf-test] coverage (681/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/\.\./" to current dir contents (73 mutations)
[opt-env-conf-test] coverage (682/799): OptEnvConf\.CompleterSpec.filePath.can complete "bar/\.\./f" to matching files (70 mutations)
[opt-env-conf-test] coverage (683/799): OptEnvConf\.CompleterSpec.filePath.can complete "\.\./bar/deep/\.\./" to bar/ contents (72 mutations)
[opt-env-conf-test] coverage (685/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "" to ["bar/"] (33 mutations)
[opt-env-conf-test] coverage (689/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\./" to ["\./bar/"] (33 mutations)
[opt-env-conf-test] coverage (688/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\." to ["\.hidden/"] (46 mutations)
[opt-env-conf-test] coverage (686/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "b" to ["bar/"] (50 mutations)
[opt-env-conf-test] coverage (687/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "f" to [] (49 mutations)
[opt-env-conf-test] coverage (691/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\./\./" to ["\./\./bar/"] (33 mutations)
[opt-env-conf-test] coverage (690/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\./\." to ["\./\.hidden/"] (46 mutations)
[opt-env-conf-test] coverage (692/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\./\." to ["\./\.hidden/"]:1 (46 mutations)
[opt-env-conf-test] coverage (697/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\.\." to parent directories (45 mutations)
[opt-env-conf-test] coverage (695/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "bar/d" to ["bar/deep/"] (56 mutations)
[opt-env-conf-test] coverage (694/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "bar/" to ["bar/","bar/deep/"] (50 mutations)
[opt-env-conf-test] coverage (693/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\./bar" to ["\./bar/","\./bar/deep/"] (50 mutations)
[opt-env-conf-test] coverage (696/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "bar/deep" to ["bar/deep/"] (56 mutations)
[opt-env-conf-test] coverage (680/799): OptEnvConf\.CompleterSpec.filePath.can complete "\.\./bar/" to sibling dir contents (68 mutations)
[opt-env-conf-test] coverage (698/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\.\./" to parent directories (51 mutations)
[opt-env-conf-test] coverage (684/799): OptEnvConf\.CompleterSpec.filePath.can complete absolute paths (62 mutations)
[opt-env-conf-test] coverage (678/799): OptEnvConf\.CompleterSpec.filePath.can complete "\.\./" to parent directory contents (71 mutations)
[opt-env-conf-test] coverage (699/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "\.\./b" to matching parent directories (58 mutations)
[opt-env-conf-test] coverage (702/799): OptEnvConf\.CompleterSpec.filePathWithExtension.can complete "" to ["config\.yaml","bar/"] (43 mutations)
[opt-env-conf-test] coverage (705/799): OptEnvConf\.CompleterSpec.filePathWithExtension.can complete "bar" to ["bar/","bar/deep/"] (52 mutations)
[opt-env-conf-test] coverage (707/799): OptEnvConf\.CompleterSpec.filePathWithExtensions.can complete "bar/" to ["bar/quux\.txt","bar/deep/"] (53 mutations)
[opt-env-conf-test] coverage (708/799): OptEnvConf\.ReaderSpec.maybeReader.can parse a bool using this example reader (6 mutations)
[opt-env-conf-test] coverage (706/799): OptEnvConf\.CompleterSpec.filePathWithExtensions.can complete "" to ["foo\.txt","config\.yaml","bar/"] (45 mutations)
[opt-env-conf-test] coverage (701/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "bar/\.\./b" to matching directories (60 mutations)
[opt-env-conf-test] coverage (709/799): OptEnvConf\.ReaderSpec.viaStringCodec.can parse a string via its string codec (0 mutations)
[opt-env-conf-test] coverage (700/799): OptEnvConf\.CompleterSpec.directoryPath.can complete "bar/\.\./" to current dir directories (53 mutations)
[opt-env-conf-test] coverage (713/799): OptEnvConf\.ReaderSpec.parseCommaSeparated.roundtrips with renderCommaSeparated starting from lists (0 mutations)
[opt-env-conf-test] coverage (714/799): OptEnvConf\.ReaderSpec.commaSeparatedSet.can parse these two ints (3 mutations)
[opt-env-conf-test] coverage (715/799): OptEnvConf\.ReaderSpec.commaSeparatedList.can parse these two ints (3 mutations)
[opt-env-conf-test] coverage (711/799): OptEnvConf\.ReaderSpec.renderCommaSeparated.escapes commas and backslashes (1 mutations)
[opt-env-conf-test] coverage (712/799): OptEnvConf\.ReaderSpec.parseCommaSeparated.roundtrips with renderCommaSeparated starting from Strings (0 mutations)
[opt-env-conf-test] coverage (710/799): OptEnvConf\.ReaderSpec.commaSeparated.can parse these two ints (3 mutations)
[opt-env-conf-test] coverage (719/799): OptEnvConf\.ArgsSpec.consumeSwitch.fails to consume if there are no dasheds (38 mutations)
[opt-env-conf-test] coverage (725/799): OptEnvConf\.ArgsSpec.consumeArgument.consumes any argument after a double-dash as an argument (34 mutations)
[opt-env-conf-test] coverage (724/799): OptEnvConf\.ArgsSpec.consumeArgument.does not consume anything if there is nothing to consume (3 mutations)
[opt-env-conf-test] coverage (720/799): OptEnvConf\.ArgsSpec.consumeSwitch.fails to consume if there are no arguments (2 mutations)
[opt-env-conf-test] coverage (723/799): OptEnvConf\.ArgsSpec.consumeArgument.consumes a plain argument when there is one (11 mutations)
[opt-env-conf-test] coverage (726/799): OptEnvConf\.ArgsSpec.consumeArgument.skips dead arguments (45 mutations)
[opt-env-conf-test] coverage (721/799): OptEnvConf\.ArgsSpec.consumeSwitch.consumes a switch at the front first (26 mutations)
[opt-env-conf-test] coverage (717/799): OptEnvConf\.ArgsSpec.consumeSwitch.consumes a folded switch at the front first (36 mutations)
[opt-env-conf-test] coverage (722/799): OptEnvConf\.ArgsSpec.consumeSwitch.does not consume a mismatched switch (25 mutations)
[opt-env-conf-test] coverage (748/799): OptEnvConf\.ArgsSpec.consumeOption.fails to consume if there are no arguments (2 mutations)
[opt-env-conf-test] coverage (747/799): OptEnvConf\.ArgsSpec.consumeOption.fails to consume if there are no dasheds (53 mutations)
[opt-env-conf-test] coverage (651/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.prefix filtering.filters switches by typed prefix (42 mutations)
[opt-env-conf-test] coverage (750/799): OptEnvConf\.ErrorSpec.renders the typo-option error the same as before (159 mutations)
[opt-env-conf-test] coverage (751/799): OptEnvConf\.ErrorSpec.renders the unrecognised-arg error the same as before (34 mutations)
[opt-env-conf-test] coverage (741/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a long option with an equals sign (20 mutations)
[opt-env-conf-test] coverage (752/799): OptEnvConf\.ErrorSpec.renders the read-int-argument error the same as before (128 mutations)
[opt-env-conf-test] coverage (736/799): OptEnvConf\.ArgsSpec.parseArgs.produces valid Argss for annoying strings (20 mutations)
[opt-env-conf-test] coverage (735/799): OptEnvConf\.ArgsSpec.parseArgs.produces valid Args (12 mutations)
[opt-env-conf-test] coverage (734/799): OptEnvConf\.ArgsSpec.renderDashed.roundtrips with parseArg for short dashed (7 mutations)
[opt-env-conf-test] coverage (753/799): OptEnvConf\.ErrorSpec.renders the read-int-options error the same as before (137 mutations)
[opt-env-conf-test] coverage (737/799): OptEnvConf\.ArgsSpec.parseArgs.parses empty args as an empty arg map (1 mutations)
[opt-env-conf-test] coverage (755/799): OptEnvConf\.ErrorSpec.renders the all-or-nothing-relevant error the same as before (217 mutations)
[opt-env-conf-test] coverage (730/799): OptEnvConf\.ArgsSpec.consumeArgument.tries to ignore this value that looks like an option value (31 mutations)
[opt-env-conf-test] coverage (733/799): OptEnvConf\.ArgsSpec.renderDashed.roundtrips with parseArg for long dashed (4 mutations)
[opt-env-conf-test] coverage (754/799): OptEnvConf\.ErrorSpec.renders the leftover-argument error the same as before (36 mutations)
[opt-env-conf-test] coverage (756/799): OptEnvConf\.ErrorSpec.renders the required-command error the same as before (46 mutations)
[opt-env-conf-test] coverage (767/799): OptEnvConf\.ErrorSpec.renders the unrecognised-command error the same as before (62 mutations)
[opt-env-conf-test] coverage (765/799): OptEnvConf\.ErrorSpec.renders the missing-argument error the same as before (112 mutations)
[opt-env-conf-test] coverage (766/799): OptEnvConf\.ErrorSpec.renders the unfolding-tombstone-option error the same as before (182 mutations)
[opt-env-conf-test] coverage (764/799): OptEnvConf\.ErrorSpec.renders the empty-choice error the same as before (35 mutations)
[opt-env-conf-test] coverage (768/799): OptEnvConf\.ErrorSpec.renders the some-none error the same as before (122 mutations)
[opt-env-conf-test] coverage (769/799): OptEnvConf\.ErrorSpec.renders the missing-var error the same as before (104 mutations)
[opt-env-conf-test] coverage (772/799): OptEnvConf\.ErrorSpec.renders the leftover-switch error the same as before (40 mutations)
[opt-env-conf-test] coverage (773/799): OptEnvConf\.ErrorSpec.renders the empty error the same as before (35 mutations)
[opt-env-conf-test] coverage (770/799): OptEnvConf\.ErrorSpec.renders the missing-option error the same as before (114 mutations)
[opt-env-conf-test] coverage (774/799): OptEnvConf\.ErrorSpec.renders the check-failed-checkEither error the same as before (94 mutations)
[opt-env-conf-test] coverage (771/799): OptEnvConf\.ErrorSpec.renders the all-or-nothing error the same as before (222 mutations)
[opt-env-conf-test] coverage (779/799): OptEnvConf\.LintSpec.produces the same lint error for this parser (43 mutations)
[opt-env-conf-test] coverage (775/799): OptEnvConf\.ErrorSpec.renders the missing-vars error the same as before (107 mutations)
[opt-env-conf-test] coverage (776/799): OptEnvConf\.ErrorSpec.renders the leftover-option error the same as before (42 mutations)
[opt-env-conf-test] coverage (778/799): OptEnvConf\.ErrorSpec.renders the missing-env error the same as before (104 mutations)
[opt-env-conf-test] coverage (777/799): OptEnvConf\.ErrorSpec.renders the unrecognised-option error the same as before (42 mutations)
[opt-env-conf-test] coverage (780/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:1 (91 mutations)
[opt-env-conf-test] coverage (781/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:2 (60 mutations)
[opt-env-conf-test] coverage (782/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:3 (37 mutations)
[opt-env-conf-test] coverage (784/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:5 (42 mutations)
[opt-env-conf-test] coverage (783/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:4 (49 mutations)
[opt-env-conf-test] coverage (785/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:6 (60 mutations)
[opt-env-conf-test] coverage (786/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:7 (40 mutations)
[opt-env-conf-test] coverage (788/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:9 (91 mutations)
[opt-env-conf-test] coverage (787/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:8 (42 mutations)
[opt-env-conf-test] coverage (790/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:11 (40 mutations)
[opt-env-conf-test] coverage (789/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:10 (40 mutations)
[opt-env-conf-test] coverage (791/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:12 (30 mutations)
[opt-env-conf-test] coverage (793/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:14 (26 mutations)
[opt-env-conf-test] coverage (792/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:13 (44 mutations)
[opt-env-conf-test] coverage (794/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:15 (47 mutations)
[opt-env-conf-test] coverage (796/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:17 (40 mutations)
[opt-env-conf-test] coverage (795/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:16 (40 mutations)
[opt-env-conf-test] coverage (797/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:18 (42 mutations)
[opt-env-conf-test] coverage (798/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:19 (46 mutations)
[opt-env-conf-test] coverage (732/799): OptEnvConf\.ArgsSpec.parseArg.produces valid args (12 mutations)
[opt-env-conf-test] coverage (703/799): OptEnvConf\.CompleterSpec.filePathWithExtension.can complete "c" to ["config\.yaml"] (51 mutations)
[opt-env-conf-test] coverage (727/799): OptEnvConf\.ArgsSpec.consumeArgument.tries to consume dashed argument followed by a live argument (43 mutations)
[opt-env-conf-test] coverage (799/799): OptEnvConf\.LintSpec.produces the same lint error for this parser:20 (44 mutations)
[opt-env-conf-test] coverage (704/799): OptEnvConf\.CompleterSpec.filePathWithExtension.can complete "b" to ["bar/"] (49 mutations)
[opt-env-conf-test] coverage (742/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a short option (49 mutations)
[opt-env-conf-test] coverage (745/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a long option (36 mutations)
[opt-env-conf-test] coverage (729/799): OptEnvConf\.ArgsSpec.consumeArgument.tries to consume dashed argument followed by a dead argument (35 mutations)
[opt-env-conf-test] coverage (731/799): OptEnvConf\.ArgsSpec.parseArg.roundtrips with renderArg (0 mutations)
[opt-env-conf-test] coverage (728/799): OptEnvConf\.ArgsSpec.consumeArgument.consumes a bare double-dash if it's the last argument (28 mutations)
[opt-env-conf-test] coverage (743/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a short option before a long option:1 (39 mutations)
[opt-env-conf-test] coverage (718/799): OptEnvConf\.ArgsSpec.consumeSwitch.consumes a short switch if there are no other args (26 mutations)
[opt-env-conf-test] coverage (739/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a short option before a long option (33 mutations)
[opt-env-conf-test] coverage (740/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a short option in shorthand notation (31 mutations)
[opt-env-conf-test] coverage (746/799): OptEnvConf\.ArgsSpec.consumeOption.consumes a folded option (46 mutations)
[opt-env-conf-test] coverage (716/799): OptEnvConf\.ArgsSpec.consumeSwitch.consumes a long switch if there are no other args (25 mutations)
[opt-env-conf-test] coverage (744/799): OptEnvConf\.ArgsSpec.consumeOption.does not consume a mismatched option (36 mutations)
[opt-env-conf-test] coverage (761/799): OptEnvConf\.ErrorSpec.renders the unrecognised-switch error the same as before (40 mutations)
[opt-env-conf-test] coverage (763/799): OptEnvConf\.ErrorSpec.renders the unfolding-tombstone-switch error the same as before (190 mutations)
[opt-env-conf-test] coverage (762/799): OptEnvConf\.ErrorSpec.renders the unreadable-vars error the same as before (99 mutations)
[opt-env-conf-test] coverage (760/799): OptEnvConf\.ErrorSpec.renders the read-int-option error the same as before (134 mutations)
[opt-env-conf-test] coverage (758/799): OptEnvConf\.ErrorSpec.renders the check-failed-checkMaybe error the same as before (96 mutations)
[opt-env-conf-test] coverage (738/799): OptEnvConf\.ArgsSpec.consumeOption.consumes an option at the front first (49 mutations)
[opt-env-conf-test] coverage (759/799): OptEnvConf\.ErrorSpec.renders the typo-switch error the same as before (144 mutations)
[opt-env-conf-test] coverage (757/799): OptEnvConf\.ErrorSpec.renders the missing-options error the same as before (117 mutations)
[opt-env-conf-test] coverage (647/799): OptEnvConf\.CompletionSpec.pureCompletionQuery.can complete a short option's dashed (44 mutations)
[opt-env-conf-test] coverage (749/799): OptEnvConf\.ErrorSpec.renders the unreadable-var error the same as before (94 mutations)
[opt-env-conf-test] mutation-nix: running mutations
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (True) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not not ((null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v)) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || False) v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v) && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c) || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> not (isDigit c || c == '.')) v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || not (c == '.')) v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && not (all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> False) v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && not (elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:180:19-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | True = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:176:9-26
[opt-env-conf-test] @@ -173,7 +173,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go [] = []
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test] -      | isVersion version = []
[opt-env-conf-test] +      | not (isVersion version) = []
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c) || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:36-45
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> True) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:178:49-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> isDigit c || not (c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> False) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Test.hs:178:36-57
[opt-env-conf-test] @@ -175,6 +175,6 @@
[opt-env-conf-test]      go ('-' : rest)
[opt-env-conf-test]        | isVersion version = []
[opt-env-conf-test]        where
[opt-env-conf-test] -        version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test] +        version = takeWhile (\c -> not (isDigit c || c == '.')) rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test]      isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,7 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] +            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Test.hs:161:13-14
[opt-env-conf-test] @@ -158,11 +158,11 @@
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test]              ("# " <>)
[opt-env-conf-test] -            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -              "This file was generated by",
[opt-env-conf-test] -              loc,
[opt-env-conf-test] -              "To update this it, run the test with --golden-reset"
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +              "This file was generated by",
[opt-env-conf-test] +              loc,
[opt-env-conf-test] +              "To update this it
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Extract just the package name from a GHC package identifier.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf-test] @@ -92,6 +92,6 @@
[opt-env-conf-test]                    _ -> Nothing
[opt-env-conf-test]                )
[opt-env-conf-test]                errs
[opt-env-conf-test] -       in case mMissingCaps of
[opt-env-conf-test] -            Just ne -> CheckIncapable ne
[opt-env-conf-test] -            Nothing -> CheckFailed errs
[opt-env-conf-test] +       in case mMissingCaps of
[opt-env-conf-test] +            Just ne -> CheckIncapable ne
[opt-env-conf-test] +            Nothing -> CheckFailed errs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf-test] @@ -78,20 +78,20 @@
[opt-env-conf-test]    IO (CheckResult a)
[opt-env-conf-test]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf-test]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf-test] -  pure $ case errOrSets of
[opt-env-conf-test] -    Right a -> CheckSucceeded a
[opt-env-conf-test] -    Left errs ->
[opt-env-conf-test] -      -- If all the errors are missing capability errors, return
[opt-env-conf-test] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf-test] -      let mMissingCaps =
[opt-env-conf-test] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf-test] -            -- ALL errors are missing capability errors
[opt-env-conf-test] -            mapM
[opt-env-conf-test] -              ( \case
[opt-env-conf-test] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf-test] -                  _ -> Nothing
[opt-env-conf-test] -              )
[opt-env-conf-test] -              errs
[opt-env-conf-test] -       in case mMissingCaps of
[opt-env-conf-test] -            Just ne -> CheckIncapable ne
[opt-env-conf-test] -            Nothing -> CheckFailed errs
[opt-env-conf-test] +  pure $ case errOrSets of
[opt-env-conf-test] +    Right a -> CheckSucceeded a
[opt-env-conf-test] +    Left errs ->
[opt-env-conf-test] +      -- If all the errors are missing capability errors, return
[opt-env-conf-test] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf-test] +      let mMissingCaps =
[opt-env-conf-test] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf-test] +            -- ALL errors are missing capability errors
[opt-env-conf-test] +            mapM
[opt-env-conf-test] +              ( \case
[opt-env-conf-test] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf-test] +                  _ -> Nothing
[opt-env-conf-test] +              )
[opt-env-conf-test] +              errs
[opt-env-conf-test] +       in case mMissingCaps of
[opt-env-conf-test] +            Just ne -> CheckIncapable ne
[opt-env-conf-test] +            Nothing -> CheckFailed errs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:81:10-40
[opt-env-conf-test] @@ -78,20 +78,20 @@
[opt-env-conf-test]    IO (CheckResult a)
[opt-env-conf-test]  runSettingsCheckOn capabilities debugMode p args envVars mConfig = do
[opt-env-conf-test]    errOrSets <- runParserOn capabilities (Just debugMode) p args envVars mConfig
[opt-env-conf-test] -  pure $ case errOrSets of
[opt-env-conf-test] -    Right a -> CheckSucceeded a
[opt-env-conf-test] -    Left errs ->
[opt-env-conf-test] -      -- If all the errors are missing capability errors, return
[opt-env-conf-test] -      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf-test] -      let mMissingCaps =
[opt-env-conf-test] -            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf-test] -            -- ALL errors are missing capability errors
[opt-env-conf-test] -            mapM
[opt-env-conf-test] -              ( \case
[opt-env-conf-test] -                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf-test] -                  _ -> Nothing
[opt-env-conf-test] -              )
[opt-env-conf-test] -              errs
[opt-env-conf-test] -       in case mMissingCaps of
[opt-env-conf-test] -            Just ne -> CheckIncapable ne
[opt-env-conf-test] -            Nothing -> CheckFailed errs
[opt-env-conf-test] +  pure $ case errOrSets of
[opt-env-conf-test] +    Right a -> CheckSucceeded a
[opt-env-conf-test] +    Left errs ->
[opt-env-conf-test] +      -- If all the errors are missing capability errors, return
[opt-env-conf-test] +      -- CheckIncapable, otherwise CheckFailed
[opt-env-conf-test] +      let mMissingCaps =
[opt-env-conf-test] +            -- This MUST be mapM instead of mapMaybe because we need to ensure
[opt-env-conf-test] +            -- ALL errors are missing capability errors
[opt-env-conf-test] +            mapM
[opt-env-conf-test] +              ( \case
[opt-env-conf-test] +                  ParseError mLoc (ParseErrorMissingCapability cap) -> Just (MissingCapability mLoc cap)
[opt-env-conf-test] +                  _ -> Nothing
[opt-env-conf-test] +              )
[opt-env-conf-test] +              errs
[opt-env-conf-test] +       in case mMissingCaps of
[opt-env-conf-test] +            Just ne -> CheckIncapable ne
[opt-env-conf-test] +            Nothing -> CheckFailed errs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Check.hs:95:11-40
[opt-env-conf-test] @@ -92,6 +92,6 @@
[opt-env-conf-test]                    _ -> Nothing
[opt-env-conf-test]                )
[opt-env-conf-test]                errs
[opt-env-conf-test] -       in case mMissingCaps of
[opt-env-conf-test] -            Just ne -> CheckIncapable ne
[opt-env-conf-test] -            Nothing -> CheckFailed errs
[opt-env-conf-test] +       in case mMissingCaps of
[opt-env-conf-test] +            Just ne -> CheckIncapable ne
[opt-env-conf-test] +            Nothing -> CheckFailed errs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf-test] @@ -142,7 +142,4 @@
[opt-env-conf-test]  
[opt-env-conf-test]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf-test]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf-test] -  [ commandChunk commandDocArgument,
[opt-env-conf-test] -    ": ",
[opt-env-conf-test] -    helpChunk commandDocHelp
[opt-env-conf-test] -  ]
[opt-env-conf-test] +  []
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf-test] @@ -142,7 +142,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf-test]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf-test] -  [ commandChunk commandDocArgument,
[opt-env-conf-test] -    ": ",
[opt-env-conf-test] -    helpChunk commandDocHelp
[opt-env-conf-test] -  ]
[opt-env-conf-test] +  [ commandChunk commandDocArgument,
[opt-env-conf-test] +    ": ",
[opt-env-conf-test] +    helpChunk commandDocHelp
[opt-env-conf-test] +  ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:145:3-4
[opt-env-conf-test] @@ -142,7 +142,6 @@
[opt-env-conf-test]  
[opt-env-conf-test]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf-test]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf-test] -  [ commandChunk commandDocArgument,
[opt-env-conf-test] -    ": ",
[opt-env-conf-test] -    helpChunk commandDocHelp
[opt-env-conf-test] -  ]
[opt-env-conf-test] +  [ commandChunk commandDocArgument,
[opt-env-conf-test] +    ": "
[opt-env-conf-test] +]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf-test] @@ -90,7 +90,7 @@
[opt-env-conf-test]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test]          ParseErrorMissingArgument o ->
[opt-env-conf-test]            [ "Missing argument: "
[opt-env-conf-test]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:93:11-53
[opt-env-conf-test] @@ -90,7 +90,7 @@
[opt-env-conf-test]              ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +          []
[opt-env-conf-test]          ParseErrorMissingArgument o ->
[opt-env-conf-test]            [ "Missing argument: "
[opt-env-conf-test]                : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf-test] @@ -86,9 +86,7 @@
[opt-env-conf-test]          ParseErrorEmptySetting ->
[opt-env-conf-test]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test]          ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          ParseErrorCheckFailed _ err ->
[opt-env-conf-test]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test]          ParseErrorMissingArgument o ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]            ["Missing command, available commands:"]
[opt-env-conf-test]              : availableCommandsLines cs
[opt-env-conf-test]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              [fore blue "available commands:"]
[opt-env-conf-test]            ]
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:13-80
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]            ["Missing command, available commands:"]
[opt-env-conf-test]              : availableCommandsLines cs
[opt-env-conf-test]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test]              [fore blue "available commands:"]
[opt-env-conf-test]            ]
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf-test] @@ -124,9 +124,7 @@
[opt-env-conf-test]            ["Missing command, available commands:"]
[opt-env-conf-test]              : availableCommandsLines cs
[opt-env-conf-test]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test]          ParseErrorAllOrNothing locs ->
[opt-env-conf-test]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:127:11-12
[opt-env-conf-test] @@ -124,9 +124,9 @@
[opt-env-conf-test]            ["Missing command, available commands:"]
[opt-env-conf-test]              : availableCommandsLines cs
[opt-env-conf-test]          ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test]          ParseErrorAllOrNothing locs ->
[opt-env-conf-test]            [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf-test] @@ -129,9 +129,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test]          ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test]          ParseErrorUnrecognised leftovers ->
[opt-env-conf-test]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:89:11-12
[opt-env-conf-test] @@ -86,9 +86,9 @@
[opt-env-conf-test]          ParseErrorEmptySetting ->
[opt-env-conf-test]            [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test]          ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test]          ParseErrorCheckFailed _ err ->
[opt-env-conf-test]            [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test]          ParseErrorMissingArgument o ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf-test] @@ -80,65 +80,7 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf-test]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:83:5-6
[opt-env-conf-test] @@ -80,65 +80,65 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] -      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +      maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  availableCommandsLines :: [CommandDoc a] -> [[Chunk]]
[opt-env-conf-test]  availableCommandsLines = map $ \CommandDoc {..} ->
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:52:22-26
[opt-env-conf-test] @@ -49,7 +49,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf-test]  errorMessageIsForgivable = \case
[opt-env-conf-test] -  ParseErrorEmpty -> True
[opt-env-conf-test] +  ParseErrorEmpty -> False
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:54:26-31
[opt-env-conf-test] @@ -51,7 +51,7 @@
[opt-env-conf-test]  errorMessageIsForgivable = \case
[opt-env-conf-test]    ParseErrorEmpty -> True
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test] -  ParseErrorNoReaders -> False
[opt-env-conf-test] +  ParseErrorNoReaders -> True
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:53:29-34
[opt-env-conf-test] @@ -50,7 +50,7 @@
[opt-env-conf-test]  errorMessageIsForgivable :: ParseErrorMessage -> Bool
[opt-env-conf-test]  errorMessageIsForgivable = \case
[opt-env-conf-test]    ParseErrorEmpty -> True
[opt-env-conf-test] -  ParseErrorEmptySetting -> False
[opt-env-conf-test] +  ParseErrorEmptySetting -> True
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf-test] @@ -52,7 +52,7 @@
[opt-env-conf-test]    ParseErrorEmpty -> True
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test] +  ParseErrorCheckFailed forgivable _ -> True
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf-test] @@ -52,7 +52,7 @@
[opt-env-conf-test]    ParseErrorEmpty -> True
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test] +  ParseErrorCheckFailed forgivable _ -> False
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:55:41-51
[opt-env-conf-test] @@ -52,7 +52,7 @@
[opt-env-conf-test]    ParseErrorEmpty -> True
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test] -  ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test] +  ParseErrorCheckFailed forgivable _ -> not (forgivable)
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:56:34-38
[opt-env-conf-test] @@ -53,7 +53,7 @@
[opt-env-conf-test]    ParseErrorEmptySetting -> False
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test] -  ParseErrorMissingArgument _ -> True
[opt-env-conf-test] +  ParseErrorMissingArgument _ -> False
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:57:33-38
[opt-env-conf-test] @@ -54,7 +54,7 @@
[opt-env-conf-test]    ParseErrorNoReaders -> False
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test] -  ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test] +  ParseErrorArgumentRead _ _ -> True
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:58:32-36
[opt-env-conf-test] @@ -55,7 +55,7 @@
[opt-env-conf-test]    ParseErrorCheckFailed forgivable _ -> forgivable
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingSwitch _ -> True
[opt-env-conf-test] +  ParseErrorMissingSwitch _ -> False
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:60:32-36
[opt-env-conf-test] @@ -57,7 +57,7 @@
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingOption _ -> True
[opt-env-conf-test] +  ParseErrorMissingOption _ -> False
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:59:31-36
[opt-env-conf-test] @@ -56,7 +56,7 @@
[opt-env-conf-test]    ParseErrorMissingArgument _ -> True
[opt-env-conf-test]    ParseErrorArgumentRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test] -  ParseErrorOptionRead _ _ -> False
[opt-env-conf-test] +  ParseErrorOptionRead _ _ -> True
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:62:28-33
[opt-env-conf-test] @@ -59,7 +59,7 @@
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test] -  ParseErrorEnvRead _ _ -> False
[opt-env-conf-test] +  ParseErrorEnvRead _ _ -> True
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:61:32-36
[opt-env-conf-test] @@ -58,7 +58,7 @@
[opt-env-conf-test]    ParseErrorMissingSwitch _ -> True
[opt-env-conf-test]    ParseErrorOptionRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test] -  ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test] +  ParseErrorMissingEnvVar _ -> False
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:64:31-36
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test] -  ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] +  ParseErrorConfigRead _ _ -> True
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> not $ True
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:63:33-37
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]    ParseErrorMissingOption _ -> True
[opt-env-conf-test]    ParseErrorMissingEnvVar _ -> True
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingConfVal _ -> True
[opt-env-conf-test] +  ParseErrorMissingConfVal _ -> False
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> not $ False
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> not $ not (null cs)
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> True
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> False
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> not (not $ null cs)
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:66:40-45
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] -  ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test] +  ParseErrorUnrecognisedCommand _ _ -> True
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test]    ParseErrorMissingCapability _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:67:31-36
[opt-env-conf-test] @@ -64,7 +64,7 @@
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test] -  ParseErrorAllOrNothing _ -> False
[opt-env-conf-test] +  ParseErrorAllOrNothing _ -> True
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test]    ParseErrorMissingCapability _ -> False
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:68:31-36
[opt-env-conf-test] @@ -65,7 +65,7 @@
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test] -  ParseErrorUnrecognised _ -> False
[opt-env-conf-test] +  ParseErrorUnrecognised _ -> True
[opt-env-conf-test]    ParseErrorMissingCapability _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Error.hs:69:36-41
[opt-env-conf-test] @@ -66,7 +66,7 @@
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] -  ParseErrorMissingCapability _ -> False
[opt-env-conf-test] +  ParseErrorMissingCapability _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]  eraseErrorSrcLocs :: (Functor f) => f ParseError -> f ParseError
[opt-env-conf-test]  eraseErrorSrcLocs = fmap eraseErrorSrcLoc
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf-test] @@ -75,9 +75,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf-test]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf-test] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf-test] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf-test] -  Just a -> Right a
[opt-env-conf-test] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf-test] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf-test] +  Just a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:78:41-20
[opt-env-conf-test] @@ -75,9 +75,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Turn a 'Maybe' parsing function into a 'Reader'
[opt-env-conf-test]  maybeReader :: (String -> Maybe a) -> Reader a
[opt-env-conf-test] -maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf-test] -  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf-test] -  Just a -> Right a
[opt-env-conf-test] +maybeReader func = eitherReader $ \s -> case func s of
[opt-env-conf-test] +  Nothing -> Left $ "Unparseable value: " <> show s
[opt-env-conf-test] +  Just a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Turn an 'Either' parsing function into a 'Reader'
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf-test] @@ -59,9 +59,9 @@
[opt-env-conf-test]  --
[opt-env-conf-test]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf-test]  auto :: (Read a) => Reader a
[opt-env-conf-test] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf-test] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf-test] -  Just a -> Right a
[opt-env-conf-test] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf-test] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf-test] +  Just a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Always return True
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Reader.hs:70:32-36
[opt-env-conf-test] @@ -67,7 +67,7 @@
[opt-env-conf-test]  --
[opt-env-conf-test]  -- > exists = Reader $ const $ pure True
[opt-env-conf-test]  exists :: Reader Bool
[opt-env-conf-test] -exists = Reader $ const $ pure True
[opt-env-conf-test] +exists = Reader $ const $ pure False
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Read a value as if it were specified as a 'String' and parsed via the given 'Codec'.
[opt-env-conf-test]  viaStringCodec :: (HasCodec a) => Reader a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Reader.hs:62:23-20
[opt-env-conf-test] @@ -59,9 +59,9 @@
[opt-env-conf-test]  --
[opt-env-conf-test]  -- You cannot use this for bare strings, because 'Read' for strings parses quotes.
[opt-env-conf-test]  auto :: (Read a) => Reader a
[opt-env-conf-test] -auto = Reader $ \s -> case readMaybe s of
[opt-env-conf-test] -  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf-test] -  Just a -> Right a
[opt-env-conf-test] +auto = Reader $ \s -> case readMaybe s of
[opt-env-conf-test] +  Nothing -> Left $ "Un-Read-able value: " <> show s
[opt-env-conf-test] +  Just a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Always return True
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:819:51-71
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (True)],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not True],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:819:50-72
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not not ((null confDocExamples))],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (not (null confDocExamples))],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:819:46-72
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | True],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:819:7-73
[opt-env-conf-test] @@ -816,7 +816,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf-test] @@ -821,7 +821,7 @@
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test]                [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test]                ls ->
[opt-env-conf-test]                  [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:824:18-42
[opt-env-conf-test] @@ -821,7 +821,7 @@
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test]              case jsonSchemaChunkLines schema of
[opt-env-conf-test]                [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                [[] ++ line]
[opt-env-conf-test]                ls ->
[opt-env-conf-test]                  [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf-test] @@ -823,7 +823,7 @@
[opt-env-conf-test]                [line] ->
[opt-env-conf-test]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf-test]                ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +                [] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test]          (NE.toList confDocKeys)
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Error.hs:132:11-12
[opt-env-conf-test] @@ -129,9 +129,9 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]              ++ availableCommandsLines cs
[opt-env-conf-test]          ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test]              ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test]          ParseErrorUnrecognised leftovers ->
[opt-env-conf-test]            ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf-test] @@ -819,11 +819,11 @@
[opt-env-conf-test]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +            case jsonSchemaChunkLines schema of
[opt-env-conf-test] +              [line] ->
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +              ls ->
[opt-env-conf-test] +                [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test]          (NE.toList confDocKeys)
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf-test] @@ -819,11 +819,11 @@
[opt-env-conf-test]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +            case jsonSchemaChunkLines schema of
[opt-env-conf-test] +              [line] ->
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +              ls ->
[opt-env-conf-test] +                [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test]          (NE.toList confDocKeys)
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf-test] @@ -814,16 +814,4 @@
[opt-env-conf-test]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf-test]  renderConfDoc ConfDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] -      concatMap
[opt-env-conf-test] -        ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] -        )
[opt-env-conf-test] -        (NE.toList confDocKeys)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:826:17-40
[opt-env-conf-test] @@ -823,7 +823,7 @@
[opt-env-conf-test]                [line] ->
[opt-env-conf-test]                  [[confValChunk key, ": "] ++ line]
[opt-env-conf-test]                ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +                [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test]          (NE.toList confDocKeys)
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf-test] @@ -814,16 +814,16 @@
[opt-env-conf-test]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf-test]  renderConfDoc ConfDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] -      concatMap
[opt-env-conf-test] -        ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] -        )
[opt-env-conf-test] -        (NE.toList confDocKeys)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      concatMap
[opt-env-conf-test] +        ( \(key, schema) ->
[opt-env-conf-test] +            case jsonSchemaChunkLines schema of
[opt-env-conf-test] +              [line] ->
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +              ls ->
[opt-env-conf-test] +                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +        )
[opt-env-conf-test] +        (NE.toList confDocKeys)
[opt-env-conf-test] +    ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:817:5-6
[opt-env-conf-test] @@ -814,16 +814,14 @@
[opt-env-conf-test]  renderConfDoc :: ConfDoc -> [[Chunk]]
[opt-env-conf-test]  renderConfDoc ConfDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] -      concatMap
[opt-env-conf-test] -        ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] -        )
[opt-env-conf-test] -        (NE.toList confDocKeys)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [[mHelpChunk confDocHelp]],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList confDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test] +      concatMap
[opt-env-conf-test] +        ( \(key, schema) ->
[opt-env-conf-test] +            case jsonSchemaChunkLines schema of
[opt-env-conf-test] +              [line] ->
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +              ls ->
[opt-env-conf-test] +                [confValChunk key
[opt-env-conf-test] +]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf-test] @@ -766,10 +766,10 @@
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ envVarChunksNE envDocVars,
[opt-env-conf-test] +            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ],
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:769:11-12
[opt-env-conf-test] @@ -766,10 +766,7 @@
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf-test] @@ -765,13 +765,7 @@
[opt-env-conf-test]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        [mHelpChunk envDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] +    [ [],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (True)]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:776:50-69
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not True]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:768:7-8
[opt-env-conf-test] @@ -765,13 +765,13 @@
[opt-env-conf-test]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        [mHelpChunk envDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ envVarChunksNE envDocVars,
[opt-env-conf-test] +            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ],
[opt-env-conf-test] +        [mHelpChunk envDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test]        [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:776:49-70
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not not ((null envDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | True]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:776:45-70
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (not (null envDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:776:7-71
[opt-env-conf-test] @@ -773,7 +773,7 @@
[opt-env-conf-test]          [mHelpChunk envDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf-test] @@ -765,16 +765,7 @@
[opt-env-conf-test]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        [mHelpChunk envDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf-test] @@ -765,16 +765,16 @@
[opt-env-conf-test]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        [mHelpChunk envDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ envVarChunksNE envDocVars,
[opt-env-conf-test] +            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ],
[opt-env-conf-test] +        [mHelpChunk envDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:768:5-6
[opt-env-conf-test] @@ -765,16 +765,16 @@
[opt-env-conf-test]  renderEnvDoc :: EnvDoc -> [[Chunk]]
[opt-env-conf-test]  renderEnvDoc EnvDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ envVarChunksNE envDocVars,
[opt-env-conf-test] -            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -        [mHelpChunk envDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ envVarChunksNE envDocVars,
[opt-env-conf-test] +            [ mMetavarChunk envDocMetavar
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ],
[opt-env-conf-test] +        [mHelpChunk envDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList envDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks envDocExamples | not (null envDocExamples)]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserConfDocs :: Parser a -> AnyDocs ConfDoc
[opt-env-conf-test]  parserConfDocs = docsToConfDocs . parserDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf-test] @@ -724,7 +724,7 @@
[opt-env-conf-test]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ]
[opt-env-conf-test]              ],
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:727:17-34
[opt-env-conf-test] @@ -724,7 +724,7 @@
[opt-env-conf-test]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test]                [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] +              | not (optDocTryArgument)
[opt-env-conf-test]                ]
[opt-env-conf-test]              ],
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:725:15-16
[opt-env-conf-test] @@ -722,10 +722,10 @@
[opt-env-conf-test]      [ [ unwordsChunks $
[opt-env-conf-test]            concat
[opt-env-conf-test]              [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | optDocTryArgument
[opt-env-conf-test] +              ]
[opt-env-conf-test]              ],
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf-test] @@ -721,12 +721,7 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks $
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] +            [],
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:724:13-14
[opt-env-conf-test] @@ -721,12 +721,12 @@
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks $
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | optDocTryArgument
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ],
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf-test] @@ -719,16 +719,7 @@
[opt-env-conf-test]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf-test]  renderOptDocLong OptDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks $
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] -        [mHelpChunk optDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] +    [ [],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:722:7-8
[opt-env-conf-test] @@ -719,16 +719,16 @@
[opt-env-conf-test]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf-test]  renderOptDocLong OptDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks $
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] -        [mHelpChunk optDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] +    [ [ unwordsChunks $
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | optDocTryArgument
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ],
[opt-env-conf-test] +        [mHelpChunk optDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test]        [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (True)]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not True]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:733:50-69
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:733:49-70
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not not ((null optDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | True]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:733:45-70
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (not (null optDocExamples))]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:733:7-71
[opt-env-conf-test] @@ -730,7 +730,7 @@
[opt-env-conf-test]          [mHelpChunk optDocHelp]
[opt-env-conf-test]        ],
[opt-env-conf-test]        [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf-test] @@ -719,19 +719,7 @@
[opt-env-conf-test]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf-test]  renderOptDocLong OptDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks $
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] -        [mHelpChunk optDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf-test] @@ -719,19 +719,19 @@
[opt-env-conf-test]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf-test]  renderOptDocLong OptDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks $
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] -        [mHelpChunk optDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks $
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | optDocTryArgument
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ],
[opt-env-conf-test] +        [mHelpChunk optDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:722:5-6
[opt-env-conf-test] @@ -719,19 +719,19 @@
[opt-env-conf-test]  renderOptDocLong :: OptDoc -> [[Chunk]]
[opt-env-conf-test]  renderOptDocLong OptDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks $
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | optDocTryArgument
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ],
[opt-env-conf-test] -        [mHelpChunk optDocHelp]
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] -      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks $
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +              [ [ mMetavarChunk optDocMetavar
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | optDocTryArgument
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ],
[opt-env-conf-test] +        [mHelpChunk optDocHelp]
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [defaultValueChunks d | d <- maybeToList optDocDefault],
[opt-env-conf-test] +      [exampleValuesChunks optDocExamples | not (null optDocExamples)]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  parserEnvDocs :: Parser a -> AnyDocs EnvDoc
[opt-env-conf-test]  parserEnvDocs = docsToEnvDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf-test] @@ -629,7 +629,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf-test] +renderShortOptDocs progname = unwordsChunks . (\cs -> []) . fromMaybe [] . go False
[opt-env-conf-test]    where
[opt-env-conf-test]      withoutNothings =
[opt-env-conf-test]        filter
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:632:55-85
[opt-env-conf-test] @@ -629,7 +629,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf-test] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf-test]    where
[opt-env-conf-test]      withoutNothings =
[opt-env-conf-test]        filter
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:632:107-112
[opt-env-conf-test] @@ -629,7 +629,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] -renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go False
[opt-env-conf-test] +renderShortOptDocs progname = unwordsChunks . (\cs -> [[progNameChunk progname], cs]) . fromMaybe [] . go True
[opt-env-conf-test]    where
[opt-env-conf-test]      withoutNothings =
[opt-env-conf-test]        filter
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:637:38-43
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]      withoutNothings =
[opt-env-conf-test]        filter
[opt-env-conf-test]          ( \case
[opt-env-conf-test] -            AnyDocsSingle Nothing -> False
[opt-env-conf-test] +            AnyDocsSingle Nothing -> True
[opt-env-conf-test]              AnyDocsAnd [] -> False
[opt-env-conf-test]              AnyDocsOr [] -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:638:30-35
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]        filter
[opt-env-conf-test]          ( \case
[opt-env-conf-test]              AnyDocsSingle Nothing -> False
[opt-env-conf-test] -            AnyDocsAnd [] -> False
[opt-env-conf-test] +            AnyDocsAnd [] -> True
[opt-env-conf-test]              AnyDocsOr [] -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test]          )
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:639:29-34
[opt-env-conf-test] @@ -636,7 +636,7 @@
[opt-env-conf-test]          ( \case
[opt-env-conf-test]              AnyDocsSingle Nothing -> False
[opt-env-conf-test]              AnyDocsAnd [] -> False
[opt-env-conf-test] -            AnyDocsOr [] -> False
[opt-env-conf-test] +            AnyDocsOr [] -> True
[opt-env-conf-test]              _ -> True
[opt-env-conf-test]          )
[opt-env-conf-test]      go ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf-test] @@ -646,9 +646,9 @@
[opt-env-conf-test]        Maybe [Chunk]
[opt-env-conf-test]      go b =
[opt-env-conf-test]        \case
[opt-env-conf-test] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf-test] -          Nothing -> Just ["COMMAND"]
[opt-env-conf-test] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf-test] +          Nothing -> Just ["COMMAND"]
[opt-env-conf-test] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:640:18-22
[opt-env-conf-test] @@ -637,7 +637,7 @@
[opt-env-conf-test]              AnyDocsSingle Nothing -> False
[opt-env-conf-test]              AnyDocsAnd [] -> False
[opt-env-conf-test]              AnyDocsOr [] -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +            _ -> False
[opt-env-conf-test]          )
[opt-env-conf-test]      go ::
[opt-env-conf-test]        -- Need parens
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:649:39-39
[opt-env-conf-test] @@ -646,9 +646,9 @@
[opt-env-conf-test]        Maybe [Chunk]
[opt-env-conf-test]      go b =
[opt-env-conf-test]        \case
[opt-env-conf-test] -        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf-test] -          Nothing -> Just ["COMMAND"]
[opt-env-conf-test] -          Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test] +        AnyDocsCommands mDefault _ -> case mDefault of
[opt-env-conf-test] +          Nothing -> Just ["COMMAND"]
[opt-env-conf-test] +          Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:653:29-34
[opt-env-conf-test] @@ -650,7 +650,7 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf-test] @@ -653,7 +653,7 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +            cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf-test] @@ -653,7 +653,7 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +            cs -> Just $ (if True then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:656:27-57
[opt-env-conf-test] @@ -653,7 +653,7 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf-test] @@ -653,7 +653,7 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +            cs -> Just $ (if not (b) then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf-test] @@ -650,10 +650,10 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            [c] -> Just c
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf-test] @@ -650,10 +650,10 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            [c] -> Just c
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf-test] @@ -650,10 +650,10 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            [c] -> Just c
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:658:29-34
[opt-env-conf-test] @@ -655,7 +655,7 @@
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +          case mapMaybe (go True) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf-test] @@ -655,9 +655,9 @@
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:658:11-79
[opt-env-conf-test] @@ -655,9 +655,9 @@
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test]              cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test]          AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf-test] @@ -662,7 +662,7 @@
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test]              Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] +              $ ( if True
[opt-env-conf-test]                      then bracketise
[opt-env-conf-test]                      else id
[opt-env-conf-test]                  )
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf-test] @@ -662,7 +662,7 @@
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test]              Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] +              $ ( if False
[opt-env-conf-test]                      then bracketise
[opt-env-conf-test]                      else id
[opt-env-conf-test]                  )
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:665:22-42
[opt-env-conf-test] @@ -662,7 +662,7 @@
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test]              Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] +              $ ( if not (isJust optDocDefault)
[opt-env-conf-test]                      then bracketise
[opt-env-conf-test]                      else id
[opt-env-conf-test]                  )
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:665:19-28
[opt-env-conf-test] @@ -662,9 +662,9 @@
[opt-env-conf-test]            Nothing -> Nothing
[opt-env-conf-test]            Just OptDoc {..} ->
[opt-env-conf-test]              Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] -                    then bracketise
[opt-env-conf-test] -                    else id
[opt-env-conf-test] +              $ ( if isJust optDocDefault
[opt-env-conf-test] +                    then bracketise
[opt-env-conf-test] +                    else id
[opt-env-conf-test]                  )
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] +                  | True
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:671:19-20
[opt-env-conf-test] @@ -668,9 +668,9 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test]                    ],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf-test] @@ -672,7 +672,7 @@
[opt-env-conf-test]                    | optDocTryArgument
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] +                  | True
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:674:19-20
[opt-env-conf-test] @@ -671,9 +671,9 @@
[opt-env-conf-test]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test]                    | optDocTryArgument
[opt-env-conf-test]                    ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:672:21-38
[opt-env-conf-test] @@ -669,7 +669,7 @@
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test]                  [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] +                  | not (optDocTryArgument)
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:675:21-36
[opt-env-conf-test] @@ -672,7 +672,7 @@
[opt-env-conf-test]                    | optDocTryArgument
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] +                  | not (optDocTrySwitch)
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] +                  | not (optDocTryOption)
[opt-env-conf-test]                    ]
[opt-env-conf-test]                  ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:681:21-36
[opt-env-conf-test] @@ -678,7 +678,7 @@
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test]                          [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test]                        ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] +                  | True
[opt-env-conf-test]                    ]
[opt-env-conf-test]                  ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf-test] @@ -676,7 +676,7 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                        []
[opt-env-conf-test]                        ]
[opt-env-conf-test]                    | optDocTryOption
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:679:25-59
[opt-env-conf-test] @@ -676,7 +676,7 @@
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test]                        ]
[opt-env-conf-test]                    | optDocTryOption
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf-test] @@ -675,9 +675,7 @@
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      []
[opt-env-conf-test]                    | optDocTryOption
[opt-env-conf-test]                    ]
[opt-env-conf-test]                  ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:678:23-24
[opt-env-conf-test] @@ -675,9 +675,9 @@
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test]                    ],
[opt-env-conf-test]                    [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test]                    | optDocTryOption
[opt-env-conf-test]                    ]
[opt-env-conf-test]                  ]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:677:19-20
[opt-env-conf-test] @@ -674,12 +674,12 @@
[opt-env-conf-test]                    [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test]                    | optDocTrySwitch
[opt-env-conf-test]                    ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test] +                  | optDocTryOption
[opt-env-conf-test] +                  ]
[opt-env-conf-test]                  ]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf-test] @@ -668,19 +668,7 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                []
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf-test] @@ -668,19 +668,19 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test] +                  | optDocTryOption
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +                ]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:671:17-18
[opt-env-conf-test] @@ -668,19 +668,16 @@
[opt-env-conf-test]                  )
[opt-env-conf-test]                $ unwordsChunks
[opt-env-conf-test]                $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" "
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf-test] @@ -658,29 +658,29 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] -          Nothing -> Nothing
[opt-env-conf-test] -          Just OptDoc {..} ->
[opt-env-conf-test] -            Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] -                    then bracketise
[opt-env-conf-test] -                    else id
[opt-env-conf-test] -                )
[opt-env-conf-test] -              $ unwordsChunks
[opt-env-conf-test] -              $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] +          Nothing -> Nothing
[opt-env-conf-test] +          Just OptDoc {..} ->
[opt-env-conf-test] +            Just
[opt-env-conf-test] +              $ ( if isJust optDocDefault
[opt-env-conf-test] +                    then bracketise
[opt-env-conf-test] +                    else id
[opt-env-conf-test] +                )
[opt-env-conf-test] +              $ unwordsChunks
[opt-env-conf-test] +              $ concat
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test] +                  | optDocTryOption
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +                ]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf-test] @@ -658,29 +658,29 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] -          Nothing -> Nothing
[opt-env-conf-test] -          Just OptDoc {..} ->
[opt-env-conf-test] -            Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] -                    then bracketise
[opt-env-conf-test] -                    else id
[opt-env-conf-test] -                )
[opt-env-conf-test] -              $ unwordsChunks
[opt-env-conf-test] -              $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] +          Nothing -> Nothing
[opt-env-conf-test] +          Just OptDoc {..} ->
[opt-env-conf-test] +            Just
[opt-env-conf-test] +              $ ( if isJust optDocDefault
[opt-env-conf-test] +                    then bracketise
[opt-env-conf-test] +                    else id
[opt-env-conf-test] +                )
[opt-env-conf-test] +              $ unwordsChunks
[opt-env-conf-test] +              $ concat
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test] +                  | optDocTryOption
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +                ]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:476:31-36
[opt-env-conf-test] @@ -473,7 +473,7 @@
[opt-env-conf-test]    AnyDocsSingle $
[opt-env-conf-test]      Just
[opt-env-conf-test]        SetDoc
[opt-env-conf-test] -        { setDocTryArgument = False,
[opt-env-conf-test] +        { setDocTryArgument = True,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test]            setDocDasheds = ["--version"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:628:16-18
[opt-env-conf-test] @@ -625,7 +625,7 @@
[opt-env-conf-test]        optDocExamples = setDocExamples
[opt-env-conf-test]        optDocMetavar = setDocMetavar
[opt-env-conf-test]        optDocHelp = setDocHelp
[opt-env-conf-test] -  pure OptDoc {..}
[opt-env-conf-test] +  pure OptDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render short-form documentation of options
[opt-env-conf-test]  renderShortOptDocs :: String -> AnyDocs (Maybe OptDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:478:29-34
[opt-env-conf-test] @@ -475,7 +475,7 @@
[opt-env-conf-test]        SetDoc
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test] -          setDocTryOption = False,
[opt-env-conf-test] +          setDocTryOption = True,
[opt-env-conf-test]            setDocDasheds = ["--version"],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test]            setDocConfKeys = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:477:29-33
[opt-env-conf-test] @@ -474,7 +474,7 @@
[opt-env-conf-test]      Just
[opt-env-conf-test]        SetDoc
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test] -          setDocTrySwitch = True,
[opt-env-conf-test] +          setDocTrySwitch = False,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test]            setDocDasheds = ["--version"],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf-test] @@ -482,9 +482,9 @@
[opt-env-conf-test]            setDocDefault = Nothing,
[opt-env-conf-test]            setDocExamples = [],
[opt-env-conf-test]            setDocMetavar = Nothing,
[opt-env-conf-test] -          setDocHelp = Just $ case mVersion of
[opt-env-conf-test] -            Nothing -> "Output version information"
[opt-env-conf-test] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf-test] +          setDocHelp = Just $ case mVersion of
[opt-env-conf-test] +            Nothing -> "Output version information"
[opt-env-conf-test] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf-test]          }
[opt-env-conf-test]  
[opt-env-conf-test]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:485:31-82
[opt-env-conf-test] @@ -482,9 +482,9 @@
[opt-env-conf-test]            setDocDefault = Nothing,
[opt-env-conf-test]            setDocExamples = [],
[opt-env-conf-test]            setDocMetavar = Nothing,
[opt-env-conf-test] -          setDocHelp = Just $ case mVersion of
[opt-env-conf-test] -            Nothing -> "Output version information"
[opt-env-conf-test] -            Just version -> "Output version information: " <> showVersion version
[opt-env-conf-test] +          setDocHelp = Just $ case mVersion of
[opt-env-conf-test] +            Nothing -> "Output version information"
[opt-env-conf-test] +            Just version -> "Output version information: " <> showVersion version
[opt-env-conf-test]          }
[opt-env-conf-test]  
[opt-env-conf-test]  renderSetDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:459:31-36
[opt-env-conf-test] @@ -456,7 +456,7 @@
[opt-env-conf-test]    AnyDocsSingle $
[opt-env-conf-test]      Just
[opt-env-conf-test]        SetDoc
[opt-env-conf-test] -        { setDocTryArgument = False,
[opt-env-conf-test] +        { setDocTryArgument = True,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test]            setDocDasheds = ["-h", "--help"],
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:460:29-33
[opt-env-conf-test] @@ -457,7 +457,7 @@
[opt-env-conf-test]      Just
[opt-env-conf-test]        SetDoc
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test] -          setDocTrySwitch = True,
[opt-env-conf-test] +          setDocTrySwitch = False,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test]            setDocDasheds = ["-h", "--help"],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf-test] @@ -459,7 +459,7 @@
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf-test] +          setDocDasheds = [],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test]            setDocConfKeys = Nothing,
[opt-env-conf-test]            setDocDefault = Nothing,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf-test] @@ -402,10 +402,7 @@
[opt-env-conf-test]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf-test]  renderVersionPage progname version =
[opt-env-conf-test]    unwordsChunks
[opt-env-conf-test] -    [ [progNameChunk progname],
[opt-env-conf-test] -      [versionChunk version],
[opt-env-conf-test] -      ["\n"]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render the output of top-level @--help@
[opt-env-conf-test]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:461:29-34
[opt-env-conf-test] @@ -458,7 +458,7 @@
[opt-env-conf-test]        SetDoc
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test] -          setDocTryOption = False,
[opt-env-conf-test] +          setDocTryOption = True,
[opt-env-conf-test]            setDocDasheds = ["-h", "--help"],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test]            setDocConfKeys = Nothing,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:462:27-43
[opt-env-conf-test] @@ -459,7 +459,7 @@
[opt-env-conf-test]          { setDocTryArgument = False,
[opt-env-conf-test]            setDocTrySwitch = True,
[opt-env-conf-test]            setDocTryOption = False,
[opt-env-conf-test] -          setDocDasheds = ["-h", "--help"],
[opt-env-conf-test] +          setDocDasheds = ["-h", "--help"],
[opt-env-conf-test]            setDocEnvVars = Nothing,
[opt-env-conf-test]            setDocConfKeys = Nothing,
[opt-env-conf-test]            setDocDefault = Nothing,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf-test] @@ -402,10 +402,10 @@
[opt-env-conf-test]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf-test]  renderVersionPage progname version =
[opt-env-conf-test]    unwordsChunks
[opt-env-conf-test] -    [ [progNameChunk progname],
[opt-env-conf-test] -      [versionChunk version],
[opt-env-conf-test] -      ["\n"]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [progNameChunk progname],
[opt-env-conf-test] +      [versionChunk version],
[opt-env-conf-test] +      ["\n"]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render the output of top-level @--help@
[opt-env-conf-test]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:405:5-6
[opt-env-conf-test] @@ -402,10 +402,10 @@
[opt-env-conf-test]  renderVersionPage :: String -> Version -> [Chunk]
[opt-env-conf-test]  renderVersionPage progname version =
[opt-env-conf-test]    unwordsChunks
[opt-env-conf-test] -    [ [progNameChunk progname],
[opt-env-conf-test] -      [versionChunk version],
[opt-env-conf-test] -      ["\n"]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [progNameChunk progname],
[opt-env-conf-test] +      [versionChunk version],
[opt-env-conf-test] +      ["\n"]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render the output of top-level @--help@
[opt-env-conf-test]  renderHelpPage :: String -> Version -> String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf-test] @@ -388,7 +388,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test] +  AnyDocsCommands _ cs -> True
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf-test] @@ -388,7 +388,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test] +  AnyDocsCommands _ cs -> False
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:391:27-48
[opt-env-conf-test] @@ -388,7 +388,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] -  AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test] +  AnyDocsCommands _ cs -> not (all nullCommandDoc cs)
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:392:19-23
[opt-env-conf-test] @@ -389,7 +389,7 @@
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test] -  AnyDocsOr [] -> True
[opt-env-conf-test] +  AnyDocsOr [] -> False
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test]    AnyDocsAnd _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:393:18-23
[opt-env-conf-test] @@ -390,7 +390,7 @@
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test] -  AnyDocsOr _ -> False
[opt-env-conf-test] +  AnyDocsOr _ -> True
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test]    AnyDocsAnd _ -> False
[opt-env-conf-test]    AnyDocsSingle _ -> False
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:395:19-24
[opt-env-conf-test] @@ -392,7 +392,7 @@
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test] -  AnyDocsAnd _ -> False
[opt-env-conf-test] +  AnyDocsAnd _ -> True
[opt-env-conf-test]    AnyDocsSingle _ -> False
[opt-env-conf-test]    where
[opt-env-conf-test]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:396:22-27
[opt-env-conf-test] @@ -393,7 +393,7 @@
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test]    AnyDocsAnd [] -> True
[opt-env-conf-test]    AnyDocsAnd _ -> False
[opt-env-conf-test] -  AnyDocsSingle _ -> False
[opt-env-conf-test] +  AnyDocsSingle _ -> True
[opt-env-conf-test]    where
[opt-env-conf-test]      nullCommandDoc :: CommandDoc a -> Bool
[opt-env-conf-test]      nullCommandDoc = nullDocs . commandDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf-test] @@ -229,7 +229,7 @@
[opt-env-conf-test]            [ ["argument:"],
[opt-env-conf-test]              [mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] +      | True
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["switch:"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf-test] @@ -226,9 +226,7 @@
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        | setDocTryArgument
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:232:9-26
[opt-env-conf-test] @@ -229,7 +229,7 @@
[opt-env-conf-test]            [ ["argument:"],
[opt-env-conf-test]              [mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] +      | not (setDocTryArgument)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["switch:"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:229:11-12
[opt-env-conf-test] @@ -226,9 +226,9 @@
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["argument:"],
[opt-env-conf-test] +            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test]        | setDocTryArgument
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:228:7-8
[opt-env-conf-test] @@ -225,12 +225,12 @@
[opt-env-conf-test]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] -      ],
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ ["argument:"],
[opt-env-conf-test] +            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryArgument
[opt-env-conf-test] +      ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["switch:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]            [ ["switch:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] +      | True,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:394:20-24
[opt-env-conf-test] @@ -391,7 +391,7 @@
[opt-env-conf-test]    AnyDocsCommands _ cs -> all nullCommandDoc cs
[opt-env-conf-test]    AnyDocsOr [] -> True
[opt-env-conf-test]    AnyDocsOr _ -> False
[opt-env-conf-test] -  AnyDocsAnd [] -> True
[opt-env-conf-test] +  AnyDocsAnd [] -> False
[opt-env-conf-test]    AnyDocsAnd _ -> False
[opt-env-conf-test]    AnyDocsSingle _ -> False
[opt-env-conf-test]    where
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:238:9-24
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]            [ ["switch:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] +      | not (setDocTrySwitch),
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf-test] @@ -232,9 +232,7 @@
[opt-env-conf-test]        | setDocTryArgument
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        | setDocTrySwitch,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:234:7-8
[opt-env-conf-test] @@ -231,13 +231,13 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]        | setDocTryArgument
[opt-env-conf-test]        ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["switch:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTrySwitch,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["option:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] +      | not (setDocTryOption),
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:246:9-24
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test]                ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] +      | True,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf-test] @@ -241,7 +241,7 @@
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["option:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +              ++ []
[opt-env-conf-test]            ]
[opt-env-conf-test]        | setDocTryOption,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:244:18-52
[opt-env-conf-test] @@ -241,7 +241,7 @@
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["option:"],
[opt-env-conf-test]              dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test]        | setDocTryOption,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:235:11-12
[opt-env-conf-test] @@ -232,9 +232,9 @@
[opt-env-conf-test]        | setDocTryArgument
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["switch:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +          ]
[opt-env-conf-test]        | setDocTrySwitch,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf-test] @@ -239,10 +239,7 @@
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        | setDocTryOption,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["env:"],
[opt-env-conf-test]              envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +              ++ []
[opt-env-conf-test]            ]
[opt-env-conf-test]        | vars <- maybeToList setDocEnvVars
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:242:11-12
[opt-env-conf-test] @@ -239,10 +239,10 @@
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["option:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test]        | setDocTryOption,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:252:18-52
[opt-env-conf-test] @@ -249,7 +249,7 @@
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["env:"],
[opt-env-conf-test]              envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test]            ]
[opt-env-conf-test]        | vars <- maybeToList setDocEnvVars
[opt-env-conf-test]        ],
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:241:7-8
[opt-env-conf-test] @@ -238,14 +238,14 @@
[opt-env-conf-test]        | setDocTrySwitch,
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["option:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryOption,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test]            [ ["env:"],
[opt-env-conf-test]              envVarChunksNE vars
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf-test] @@ -247,10 +247,7 @@
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["env:"],
[opt-env-conf-test] -            envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]        | vars <- maybeToList setDocEnvVars
[opt-env-conf-test]        ],
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:250:11-12
[opt-env-conf-test] @@ -247,10 +247,10 @@
[opt-env-conf-test]          dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ unwordsChunks
[opt-env-conf-test] -          [ ["env:"],
[opt-env-conf-test] -            envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ ["env:"],
[opt-env-conf-test] +            envVarChunksNE vars
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test]        | vars <- maybeToList setDocEnvVars
[opt-env-conf-test]        ],
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf-test] @@ -258,7 +258,7 @@
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test]                  case jsonSchemaChunkLines schema of
[opt-env-conf-test]                    [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                    [[] ++ line]
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf-test] @@ -258,7 +258,7 @@
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test]                  case jsonSchemaChunkLines schema of
[opt-env-conf-test]                    [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:261:22-58
[opt-env-conf-test] @@ -258,7 +258,8 @@
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test]                  case jsonSchemaChunkLines schema of
[opt-env-conf-test]                    [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                    [["config: ", confValChunk key
[opt-env-conf-test] +] ++ line]
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf-test] @@ -265,7 +265,7 @@
[opt-env-conf-test]                          ( case ls of
[opt-env-conf-test]                              [] -> [["TODO"]]
[opt-env-conf-test]                              (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                              ([] ++ l)
[opt-env-conf-test]                                  : indent ll
[opt-env-conf-test]                          )
[opt-env-conf-test]              )
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf-test] @@ -262,11 +262,11 @@
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test]                          )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:268:32-56
[opt-env-conf-test] @@ -265,7 +265,7 @@
[opt-env-conf-test]                          ( case ls of
[opt-env-conf-test]                              [] -> [["TODO"]]
[opt-env-conf-test]                              (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test]                                  : indent ll
[opt-env-conf-test]                          )
[opt-env-conf-test]              )
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf-test] @@ -256,18 +256,18 @@
[opt-env-conf-test]        concat
[opt-env-conf-test]          [ concatMap
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                case jsonSchemaChunkLines schema of
[opt-env-conf-test] +                  [line] ->
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                  ls ->
[opt-env-conf-test] +                    ["config:"]
[opt-env-conf-test] +                      : indent
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test] +                        )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test]          | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf-test] @@ -262,11 +262,11 @@
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test]                          )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf-test] @@ -256,18 +256,18 @@
[opt-env-conf-test]        concat
[opt-env-conf-test]          [ concatMap
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                case jsonSchemaChunkLines schema of
[opt-env-conf-test] +                  [line] ->
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                  ls ->
[opt-env-conf-test] +                    ["config:"]
[opt-env-conf-test] +                      : indent
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test] +                        )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test]          | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | not (True)
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:279:14-33
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | not (not (null setDocExamples))
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | not True
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:279:13-34
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | not not ((null setDocExamples))
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | True
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:279:9-34
[opt-env-conf-test] @@ -276,7 +276,7 @@
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test]        [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] +      | not (not (null setDocExamples))
[opt-env-conf-test]        ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:278:7-8
[opt-env-conf-test] @@ -275,9 +275,9 @@
[opt-env-conf-test]        [ defaultValueChunks dv
[opt-env-conf-test]        | dv <- maybeToList setDocDefault
[opt-env-conf-test]        ],
[opt-env-conf-test] -      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] +      | not (null setDocExamples)
[opt-env-conf-test] +      ]
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  helpLines :: Help -> [[Chunk]]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf-test] @@ -225,60 +225,7 @@
[opt-env-conf-test]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["env:"],
[opt-env-conf-test] -            envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      concat
[opt-env-conf-test] -        [ concatMap
[opt-env-conf-test] -            ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] -            )
[opt-env-conf-test] -            (NE.toList confs)
[opt-env-conf-test] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      [ defaultValueChunks dv
[opt-env-conf-test] -      | dv <- maybeToList setDocDefault
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] -      ]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  helpLines :: Help -> [[Chunk]]
[opt-env-conf-test]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf-test] @@ -225,60 +225,60 @@
[opt-env-conf-test]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["env:"],
[opt-env-conf-test] -            envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      concat
[opt-env-conf-test] -        [ concatMap
[opt-env-conf-test] -            ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] -            )
[opt-env-conf-test] -            (NE.toList confs)
[opt-env-conf-test] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      [ defaultValueChunks dv
[opt-env-conf-test] -      | dv <- maybeToList setDocDefault
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] -      ]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ ["argument:"],
[opt-env-conf-test] +            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryArgument
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["switch:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTrySwitch,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["option:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryOption,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["env:"],
[opt-env-conf-test] +            envVarChunksNE vars
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      concat
[opt-env-conf-test] +        [ concatMap
[opt-env-conf-test] +            ( \(key, schema) ->
[opt-env-conf-test] +                case jsonSchemaChunkLines schema of
[opt-env-conf-test] +                  [line] ->
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                  ls ->
[opt-env-conf-test] +                    ["config:"]
[opt-env-conf-test] +                      : indent
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test] +                        )
[opt-env-conf-test] +            )
[opt-env-conf-test] +            (NE.toList confs)
[opt-env-conf-test] +        | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      [ defaultValueChunks dv
[opt-env-conf-test] +      | dv <- maybeToList setDocDefault
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] +      | not (null setDocExamples)
[opt-env-conf-test] +      ]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  helpLines :: Help -> [[Chunk]]
[opt-env-conf-test]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:228:5-6
[opt-env-conf-test] @@ -225,60 +225,48 @@
[opt-env-conf-test]  renderSetDocWithoutHeader :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDocWithoutHeader SetDoc {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [ unwordsChunks
[opt-env-conf-test] -          [ ["argument:"],
[opt-env-conf-test] -            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryArgument
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["switch:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTrySwitch,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["option:"],
[opt-env-conf-test] -            dashedChunksNE dasheds
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | setDocTryOption,
[opt-env-conf-test] -        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ unwordsChunks
[opt-env-conf-test] -          [ ["env:"],
[opt-env-conf-test] -            envVarChunksNE vars
[opt-env-conf-test] -              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      | vars <- maybeToList setDocEnvVars
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      concat
[opt-env-conf-test] -        [ concatMap
[opt-env-conf-test] -            ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] -            )
[opt-env-conf-test] -            (NE.toList confs)
[opt-env-conf-test] -        | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      [ defaultValueChunks dv
[opt-env-conf-test] -      | dv <- maybeToList setDocDefault
[opt-env-conf-test] -      ],
[opt-env-conf-test] -      [ exampleValuesChunks setDocExamples
[opt-env-conf-test] -      | not (null setDocExamples)
[opt-env-conf-test] -      ]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [ unwordsChunks
[opt-env-conf-test] +          [ ["argument:"],
[opt-env-conf-test] +            [mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryArgument
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["switch:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTrySwitch,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["option:"],
[opt-env-conf-test] +            dashedChunksNE dasheds
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | setDocTryOption,
[opt-env-conf-test] +        dasheds <- maybeToList (NE.nonEmpty setDocDasheds)
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      [ unwordsChunks
[opt-env-conf-test] +          [ ["env:"],
[opt-env-conf-test] +            envVarChunksNE vars
[opt-env-conf-test] +              ++ [" ", mMetavarChunk setDocMetavar]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      | vars <- maybeToList setDocEnvVars
[opt-env-conf-test] +      ],
[opt-env-conf-test] +      concat
[opt-env-conf-test] +        [ concatMap
[opt-env-conf-test] +            ( \(key, schema) ->
[opt-env-conf-test] +                case jsonSchemaChunkLines schema of
[opt-env-conf-test] +                  [line] ->
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                  ls ->
[opt-env-conf-test] +                    ["config:"]
[opt-env-conf-test] +                      : indent
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  helpLines :: Help -> [[Chunk]]
[opt-env-conf-test]  helpLines = map (map (fore blue)) . stringLines
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf-test] @@ -214,10 +214,7 @@
[opt-env-conf-test]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDoc setDoc =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf-test] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf-test] -      [[]]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf-test]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf-test] @@ -214,10 +214,10 @@
[opt-env-conf-test]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDoc setDoc =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf-test] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf-test] -      [[]]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf-test] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf-test] +      [[]]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf-test]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:217:5-6
[opt-env-conf-test] @@ -214,10 +214,10 @@
[opt-env-conf-test]  renderSetDoc :: SetDoc -> [[Chunk]]
[opt-env-conf-test]  renderSetDoc setDoc =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf-test] -      renderSetDocWithoutHeader setDoc,
[opt-env-conf-test] -      [[]]
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ renderSetDocHeader (setDocHelp setDoc),
[opt-env-conf-test] +      renderSetDocWithoutHeader setDoc,
[opt-env-conf-test] +      [[]]
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSetDocHeader :: Maybe Help -> [[Chunk]]
[opt-env-conf-test]  renderSetDocHeader = maybe [[fore red "undocumented"]] helpLines
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {True}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {not (..)}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:209:16-18
[opt-env-conf-test] @@ -206,7 +206,7 @@
[opt-env-conf-test]    let setDocExamples = settingExamples
[opt-env-conf-test]    let setDocMetavar = settingMetavar
[opt-env-conf-test]    let setDocHelp = settingHelp
[opt-env-conf-test] -  pure SetDoc {..}
[opt-env-conf-test] +  pure SetDoc {False}
[opt-env-conf-test]  
[opt-env-conf-test]  settingOptDoc :: Setting a -> Maybe OptDoc
[opt-env-conf-test]  settingOptDoc = settingSetDoc >=> setDocOptDoc
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf-test] @@ -136,9 +136,9 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf-test] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf-test] -        [a] -> a
[opt-env-conf-test] -        as -> AnyDocsAnd as
[opt-env-conf-test] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf-test] +        [a] -> a
[opt-env-conf-test] +        as -> AnyDocsAnd as
[opt-env-conf-test]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf-test]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:139:24-28
[opt-env-conf-test] @@ -136,9 +136,9 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> AnyDocsCommands mDefault $ map goDoc cs
[opt-env-conf-test] -      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf-test] -        [a] -> a
[opt-env-conf-test] -        as -> AnyDocsAnd as
[opt-env-conf-test] +      AnyDocsAnd ds -> case concatMap goAnd ds of
[opt-env-conf-test] +        [a] -> a
[opt-env-conf-test] +        as -> AnyDocsAnd as
[opt-env-conf-test]        AnyDocsOr ds -> AnyDocsOr $ concatMap goOr ds
[opt-env-conf-test]        AnyDocsSingle v -> AnyDocsSingle v
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf-test] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test] +      ParserAp pf pa -> AnyDocsAnd []
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf-test]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test] +      ParserSelect p1 p2 -> AnyDocsAnd []
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:168:36-50
[opt-env-conf-test] @@ -165,7 +165,7 @@
[opt-env-conf-test]      go :: Parser a -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf-test] -      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test] +      ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:169:40-54
[opt-env-conf-test] @@ -166,7 +166,7 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        ParserPure _ -> AnyDocsSingle Nothing
[opt-env-conf-test]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test] -      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test] +      ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf-test] @@ -168,7 +168,7 @@
[opt-env-conf-test]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] +      ParserAlt p1 p2 -> AnyDocsOr []
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf-test] @@ -169,7 +169,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] +      ParserMany _ p -> AnyDocsOr []
[opt-env-conf-test]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:171:36-50
[opt-env-conf-test] @@ -168,7 +168,7 @@
[opt-env-conf-test]        ParserAp pf pa -> AnyDocsAnd [go pf, go pa]
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test] -      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] +      ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:172:35-64
[opt-env-conf-test] @@ -169,7 +169,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> AnyDocsAnd [go p1, go p2]
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test] -      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] +      ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test]        ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf-test] @@ -170,7 +170,7 @@
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test] +      ParserSome mLoc p -> AnyDocsAnd [] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:173:39-69
[opt-env-conf-test] @@ -170,7 +170,7 @@
[opt-env-conf-test]        ParserEmpty _ -> AnyDocsOr []
[opt-env-conf-test]        ParserAlt p1 p2 -> AnyDocsOr [go p1, go p2]
[opt-env-conf-test]        ParserMany _ p -> AnyDocsOr [go p, AnyDocsSingle Nothing]
[opt-env-conf-test] -      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test] +      ParserSome mLoc p -> AnyDocsAnd [go p, go (ParserMany mLoc p)] -- TODO: is this right?
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf-test] @@ -174,7 +174,7 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf-test] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf-test] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf-test]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf-test]  
[opt-env-conf-test]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf-test] @@ -446,7 +446,7 @@
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:177:46-60
[opt-env-conf-test] @@ -174,7 +174,7 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands _ mDefault cs -> AnyDocsCommands mDefault $ map commandParserDocs cs
[opt-env-conf-test] -      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf-test] +      ParserWithConfig _ p1 p2 -> AnyDocsAnd [go p1, go p2] -- TODO: is this right? Maybe we want to document that it's not a pure parser?
[opt-env-conf-test]        ParserSetting _ set -> AnyDocsSingle $ settingSetDoc set
[opt-env-conf-test]  
[opt-env-conf-test]  commandParserDocs :: Command a -> CommandDoc (Maybe SetDoc)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf-test] @@ -446,7 +446,8 @@
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:449:66-102
[opt-env-conf-test] @@ -446,7 +446,7 @@
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] -withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] +withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf-test] @@ -449,7 +449,7 @@
[opt-env-conf-test]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr []
[opt-env-conf-test]  
[opt-env-conf-test]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  helpDocs =
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:452:47-61
[opt-env-conf-test] @@ -449,7 +449,7 @@
[opt-env-conf-test]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpDocs :: AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] -withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test] +withHelpDocs sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, sd]
[opt-env-conf-test]  
[opt-env-conf-test]  helpDocs :: AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  helpDocs =
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf-test] @@ -507,7 +507,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf-test] @@ -507,7 +507,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:510:12-34
[opt-env-conf-test] @@ -507,7 +507,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if not (setDocHelp d == Just h)
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:510:9-42
[opt-env-conf-test] @@ -507,11 +507,11 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] -          then
[opt-env-conf-test] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -             in (d : sds, rest)
[opt-env-conf-test] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf-test] +        if setDocHelp d == Just h
[opt-env-conf-test] +          then
[opt-env-conf-test] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +             in (d : sds, rest)
[opt-env-conf-test] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf-test]        ds -> ([], ds)
[opt-env-conf-test]  
[opt-env-conf-test]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf-test] @@ -529,12 +529,12 @@
[opt-env-conf-test]            [] -> []
[opt-env-conf-test]            [d] -> [go' d]
[opt-env-conf-test]            (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -            case setDocHelp d of
[opt-env-conf-test] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] -              Just h ->
[opt-env-conf-test] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -                    ne = d :| sds
[opt-env-conf-test] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test] +            case setDocHelp d of
[opt-env-conf-test] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] +              Just h ->
[opt-env-conf-test] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +                    ne = d :| sds
[opt-env-conf-test] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test]            (d : ds) -> go' d : goOr' ds
[opt-env-conf-test]  
[opt-env-conf-test]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf-test] @@ -529,12 +529,12 @@
[opt-env-conf-test]            [] -> []
[opt-env-conf-test]            [d] -> [go' d]
[opt-env-conf-test]            (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -            case setDocHelp d of
[opt-env-conf-test] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] -              Just h ->
[opt-env-conf-test] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -                    ne = d :| sds
[opt-env-conf-test] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test] +            case setDocHelp d of
[opt-env-conf-test] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] +              Just h ->
[opt-env-conf-test] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +                    ne = d :| sds
[opt-env-conf-test] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test]            (d : ds) -> go' d : goOr' ds
[opt-env-conf-test]  
[opt-env-conf-test]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf-test] @@ -498,9 +498,7 @@
[opt-env-conf-test]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf-test]        AnyDocsSingle (d :| ds) ->
[opt-env-conf-test]          [ concat
[opt-env-conf-test] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf-test] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:541:40-44
[opt-env-conf-test] @@ -538,7 +538,7 @@
[opt-env-conf-test]            (d : ds) -> go' d : goOr' ds
[opt-env-conf-test]  
[opt-env-conf-test]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] -renderCommandDocs = unlinesChunks . go True . withoutHiddenDocs
[opt-env-conf-test] +renderCommandDocs = unlinesChunks . go False . withoutHiddenDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf-test] @@ -585,7 +585,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf-test] @@ -585,7 +585,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf-test] @@ -585,7 +585,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if not (setDocHelp d == Just h)
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:588:9-42
[opt-env-conf-test] @@ -585,11 +585,11 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] -          then
[opt-env-conf-test] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -             in (d : sds, rest)
[opt-env-conf-test] -          else ([], AnyDocsSingle d : ds)
[opt-env-conf-test] +        if setDocHelp d == Just h
[opt-env-conf-test] +          then
[opt-env-conf-test] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +             in (d : sds, rest)
[opt-env-conf-test] +          else ([], AnyDocsSingle d : ds)
[opt-env-conf-test]        ds -> ([], ds)
[opt-env-conf-test]  
[opt-env-conf-test]  renderCommandDocsShort :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf-test]      goOr isTopLevel = \case
[opt-env-conf-test]        [] -> []
[opt-env-conf-test] -      [d] -> go isTopLevel d
[opt-env-conf-test] +      [d] -> go True d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf-test]      goOr isTopLevel = \case
[opt-env-conf-test]        [] -> []
[opt-env-conf-test] -      [d] -> go isTopLevel d
[opt-env-conf-test] +      [d] -> go False d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf-test]      goOr isTopLevel = \case
[opt-env-conf-test]        [] -> []
[opt-env-conf-test] -      [d] -> go isTopLevel d
[opt-env-conf-test] +      [d] -> go not (isTopLevel) d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go True (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go False (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:569:25-35
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go not (isTopLevel) (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr True ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:501:13-14
[opt-env-conf-test] @@ -498,9 +498,9 @@
[opt-env-conf-test]        AnyDocsOr ds -> concatMap go ds
[opt-env-conf-test]        AnyDocsSingle (d :| ds) ->
[opt-env-conf-test]          [ concat
[opt-env-conf-test] -            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf-test] -              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ indent $ renderSetDocHeader (setDocHelp d),
[opt-env-conf-test] +              indent $ concatMap renderSetDocWithoutHeader (d : ds)
[opt-env-conf-test] +            ]
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr not (isTopLevel) ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:569:62-72
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr False ds
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf-test] @@ -576,7 +576,7 @@
[opt-env-conf-test]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test]                              [[]]
[opt-env-conf-test]                            ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] +                      | not True
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:579:29-39
[opt-env-conf-test] @@ -576,7 +576,7 @@
[opt-env-conf-test]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test]                              [[]]
[opt-env-conf-test]                            ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] +                      | not not (isTopLevel)
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf-test] @@ -576,7 +576,7 @@
[opt-env-conf-test]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test]                              [[]]
[opt-env-conf-test]                            ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] +                      | True
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:579:25-39
[opt-env-conf-test] @@ -576,7 +576,7 @@
[opt-env-conf-test]                              indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test]                              [[]]
[opt-env-conf-test]                            ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] +                      | not (not isTopLevel)
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf-test] @@ -572,10 +572,7 @@
[opt-env-conf-test]               in concat
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                          []
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf-test] @@ -572,10 +572,10 @@
[opt-env-conf-test]               in concat
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:575:27-28
[opt-env-conf-test] @@ -572,10 +572,10 @@
[opt-env-conf-test]               in concat
[opt-env-conf-test]                    [ concat
[opt-env-conf-test]                        [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:574:23-24
[opt-env-conf-test] @@ -571,13 +571,13 @@
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test]                    [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] +                      [ concat
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                      | not isTopLevel
[opt-env-conf-test] +                      ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]                            ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] +                    goOr True rest
[opt-env-conf-test]                    ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]                            ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] +                    goOr False rest
[opt-env-conf-test]                    ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]                            ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] +                    goOr not (isTopLevel) rest
[opt-env-conf-test]                    ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf-test] @@ -570,16 +570,7 @@
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  []
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:573:19-20
[opt-env-conf-test] @@ -570,16 +570,16 @@
[opt-env-conf-test]            Just h ->
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in concat
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                      | not isTopLevel
[opt-env-conf-test] +                      ],
[opt-env-conf-test] +                    goOr isTopLevel rest
[opt-env-conf-test] +                  ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf-test] @@ -565,21 +565,21 @@
[opt-env-conf-test]        [] -> []
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] -          Just h ->
[opt-env-conf-test] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -             in concat
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +        case setDocHelp d of
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Just h ->
[opt-env-conf-test] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +             in concat
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                      | not isTopLevel
[opt-env-conf-test] +                      ],
[opt-env-conf-test] +                    goOr isTopLevel rest
[opt-env-conf-test] +                  ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go True d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf-test] @@ -565,21 +565,21 @@
[opt-env-conf-test]        [] -> []
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] -          Just h ->
[opt-env-conf-test] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -             in concat
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +        case setDocHelp d of
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Just h ->
[opt-env-conf-test] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +             in concat
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                      | not isTopLevel
[opt-env-conf-test] +                      ],
[opt-env-conf-test] +                    goOr isTopLevel rest
[opt-env-conf-test] +                  ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go not (isTopLevel) d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:583:22-32
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go False d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go isTopLevel d ++ goOr True ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go isTopLevel d ++ goOr False ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:583:43-53
[opt-env-conf-test] @@ -580,7 +580,7 @@
[opt-env-conf-test]                        ],
[opt-env-conf-test]                      goOr isTopLevel rest
[opt-env-conf-test]                    ]
[opt-env-conf-test] -      (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test] +      (d : ds) -> go isTopLevel d ++ goOr not (isTopLevel) ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf-test] @@ -552,7 +552,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +        let isDefault = True
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf-test] @@ -552,7 +552,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +        let isDefault = False
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:555:25-60
[opt-env-conf-test] @@ -552,7 +552,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test] -        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +        let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf-test] @@ -553,7 +553,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +            suffix = if True then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf-test] @@ -553,7 +553,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +            suffix = if False then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:556:25-34
[opt-env-conf-test] @@ -553,7 +553,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +            suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:556:22-60
[opt-env-conf-test] @@ -553,7 +553,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        indent $
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf-test] @@ -555,7 +555,7 @@
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] +              : []
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test]                ++ [[]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf-test] @@ -555,7 +555,8 @@
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] +              : ["command: ", commandChunk commandDocArgument
[opt-env-conf-test] +]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test]                ++ [[]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:558:17-71
[opt-env-conf-test] @@ -555,7 +555,7 @@
[opt-env-conf-test]          let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test] -              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] +              : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test]                : go False commandDocs
[opt-env-conf-test]                ++ [[]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Doc.hs:559:20-25
[opt-env-conf-test] @@ -556,7 +556,7 @@
[opt-env-conf-test]              suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]           in [helpChunk commandDocHelp]
[opt-env-conf-test]                : ["command: ", commandChunk commandDocArgument, suffix]
[opt-env-conf-test] -              : go False commandDocs
[opt-env-conf-test] +              : go True commandDocs
[opt-env-conf-test]                ++ [[]]
[opt-env-conf-test]  
[opt-env-conf-test]      -- Group together settings with the same help (produced by combinators like enableDisableSwitch)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] +      AnyDocsAnd ds -> concatMap (go True) ds
[opt-env-conf-test]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] +      AnyDocsAnd ds -> concatMap (go False) ds
[opt-env-conf-test]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:546:38-48
[opt-env-conf-test] @@ -543,7 +543,7 @@
[opt-env-conf-test]      go :: Bool -> AnyDocs SetDoc -> [[Chunk]]
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test] -      AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] +      AnyDocsAnd ds -> concatMap (go not (isTopLevel)) ds
[opt-env-conf-test]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test] +      AnyDocsOr ds -> goOr False ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test] +      AnyDocsOr ds -> goOr not (isTopLevel) ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test] -        | isTopLevel -> []
[opt-env-conf-test] +        | True -> []
[opt-env-conf-test]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf-test]  
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:549:11-21
[opt-env-conf-test] @@ -546,7 +546,7 @@
[opt-env-conf-test]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test]        AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test] -        | isTopLevel -> []
[opt-env-conf-test] +        | not (isTopLevel) -> []
[opt-env-conf-test]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf-test]  
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[Chunk]]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf-test] @@ -604,7 +604,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +      let isDefault = True
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf-test] @@ -604,7 +604,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +      let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:607:23-58
[opt-env-conf-test] @@ -604,7 +604,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test] -      let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +      let isDefault = False
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +          suffix = if True then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +          suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:608:23-32
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +          suffix = if False then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:608:20-58
[opt-env-conf-test] @@ -605,7 +605,7 @@
[opt-env-conf-test]      goCommand :: Maybe String -> CommandDoc SetDoc -> [[[Chunk]]]
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -          suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +          suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]         in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test] +       in [indent [[], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:609:20-61
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test] +       in [indent []]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:609:19-90
[opt-env-conf-test] @@ -606,7 +606,7 @@
[opt-env-conf-test]      goCommand mDefault CommandDoc {..} =
[opt-env-conf-test]        let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]            suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] -       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test] +       in [indent [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]]
[opt-env-conf-test]  
[opt-env-conf-test]  parserOptDocs :: Parser a -> AnyDocs (Maybe OptDoc)
[opt-env-conf-test]  parserOptDocs = docsToOptDocs . parserDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]        AnyDocsCommands mDefault cs ->
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +              let isDefault = True
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:547:28-38
[opt-env-conf-test] @@ -544,7 +544,7 @@
[opt-env-conf-test]      go isTopLevel = \case
[opt-env-conf-test]        AnyDocsCommands mDefault cs -> concatMap (goCommand mDefault) cs
[opt-env-conf-test]        AnyDocsAnd ds -> concatMap (go isTopLevel) ds
[opt-env-conf-test] -      AnyDocsOr ds -> goOr isTopLevel ds
[opt-env-conf-test] +      AnyDocsOr ds -> goOr True ds
[opt-env-conf-test]        AnyDocsSingle d
[opt-env-conf-test]          | isTopLevel -> []
[opt-env-conf-test]          | otherwise -> indent (renderSetDoc d)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]        AnyDocsCommands mDefault cs ->
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +              let isDefault = False
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:697:31-66
[opt-env-conf-test] @@ -694,7 +694,7 @@
[opt-env-conf-test]        AnyDocsCommands mDefault cs ->
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test] -              let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] +              let isDefault = not (mDefault == Just commandDocArgument)
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +                  suffix = if False then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +                  suffix = if True then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:698:31-40
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +                  suffix = if not (isDefault) then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:698:28-66
[opt-env-conf-test] @@ -695,7 +695,7 @@
[opt-env-conf-test]          concatMap
[opt-env-conf-test]            ( \CommandDoc {..} ->
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test] -                  suffix = if isDefault then " (default)" else ""
[opt-env-conf-test] +                  suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test]                      unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] +                    unwordsChunks [[], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:700:36-77
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] +                    unwordsChunks []
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:700:35-106
[opt-env-conf-test] @@ -697,7 +697,7 @@
[opt-env-conf-test]                let isDefault = mDefault == Just commandDocArgument
[opt-env-conf-test]                    suffix = if isDefault then " (default)" else ""
[opt-env-conf-test]                 in indent $
[opt-env-conf-test] -                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test] +                    unwordsChunks [[commandChunk commandDocArgument, suffix], [helpChunk commandDocHelp]]
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf-test] @@ -701,9 +701,9 @@
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test] -        Nothing -> concatMap go ds
[opt-env-conf-test] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test] +        Nothing -> concatMap go ds
[opt-env-conf-test] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test]          Nothing -> concatMap go ds
[opt-env-conf-test]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:704:24-54
[opt-env-conf-test] @@ -701,9 +701,9 @@
[opt-env-conf-test]                        : indent (go commandDocs)
[opt-env-conf-test]            )
[opt-env-conf-test]            cs
[opt-env-conf-test] -      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test] -        Nothing -> concatMap go ds
[opt-env-conf-test] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] +      AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test] +        Nothing -> concatMap go ds
[opt-env-conf-test] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test]        AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test]          Nothing -> concatMap go ds
[opt-env-conf-test]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf-test] @@ -704,9 +704,9 @@
[opt-env-conf-test]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test]          Nothing -> concatMap go ds
[opt-env-conf-test]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test] -        Nothing -> concatMap go ds
[opt-env-conf-test] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test] +        Nothing -> concatMap go ds
[opt-env-conf-test] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf-test]  
[opt-env-conf-test]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Doc.hs:707:23-54
[opt-env-conf-test] @@ -704,9 +704,9 @@
[opt-env-conf-test]        AnyDocsAnd ds -> case goTable (AnyDocsAnd ds) of
[opt-env-conf-test]          Nothing -> concatMap go ds
[opt-env-conf-test]          Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] -      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test] -        Nothing -> concatMap go ds
[opt-env-conf-test] -        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test] +      AnyDocsOr ds -> case goTable (AnyDocsOr ds) of
[opt-env-conf-test] +        Nothing -> concatMap go ds
[opt-env-conf-test] +        Just csss -> indent $ layoutAsTableLines csss
[opt-env-conf-test]        AnyDocsSingle vs -> indent $ layoutAsTableLines [renderOptDocLong vs]
[opt-env-conf-test]  
[opt-env-conf-test]      goTable :: AnyDocs OptDoc -> Maybe [[[Chunk]]]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf-test] @@ -426,11 +426,7 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] +      [ [],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test]              if null commandPath
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf-test] @@ -426,11 +426,11 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] +          [],
[opt-env-conf-test] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] +        ],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test]              if null commandPath
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:9-10
[opt-env-conf-test] @@ -426,11 +426,10 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] +          []
[opt-env-conf-test] +],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test]              if null commandPath
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf-test] @@ -433,7 +433,7 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] +            if True
[opt-env-conf-test]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf-test] @@ -433,7 +433,7 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] +            if False
[opt-env-conf-test]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:436:16-32
[opt-env-conf-test] @@ -433,7 +433,7 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] +            if not (null commandPath)
[opt-env-conf-test]                then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Doc.hs:436:13-37
[opt-env-conf-test] @@ -433,9 +433,9 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]          [ headerChunks "Available settings",
[opt-env-conf-test]            renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] +            if null commandPath
[opt-env-conf-test] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] +              else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test]          concat
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf-test] @@ -431,12 +431,7 @@
[opt-env-conf-test]            [],
[opt-env-conf-test]            unlinesChunks $ progDescLines progDesc
[opt-env-conf-test]          ],
[opt-env-conf-test] -        [ headerChunks "Available settings",
[opt-env-conf-test] -          renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [],
[opt-env-conf-test]          concat
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:434:9-10
[opt-env-conf-test] @@ -431,12 +431,12 @@
[opt-env-conf-test]            [],
[opt-env-conf-test]            unlinesChunks $ progDescLines progDesc
[opt-env-conf-test]          ],
[opt-env-conf-test] -        [ headerChunks "Available settings",
[opt-env-conf-test] -          renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ headerChunks "Available settings",
[opt-env-conf-test] +          renderSetDocs $
[opt-env-conf-test] +            if null commandPath
[opt-env-conf-test] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] +              else withHelpDocs docs
[opt-env-conf-test] +        ],
[opt-env-conf-test]          concat
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | not (True)
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:444:18-47
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | not True
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | True
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:444:17-48
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | not not ((null (docsToCommandDocs docs)))
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:444:13-48
[opt-env-conf-test] @@ -441,7 +441,7 @@
[opt-env-conf-test]            [ [ headerChunks "Available commands",
[opt-env-conf-test]                renderCommandDocsShort docs
[opt-env-conf-test]              ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          | not (not (null (docsToCommandDocs docs)))
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf-test] @@ -438,9 +438,7 @@
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            | not (null (docsToCommandDocs docs))
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:441:13-14
[opt-env-conf-test] @@ -438,9 +438,9 @@
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ headerChunks "Available commands",
[opt-env-conf-test] +              renderCommandDocsShort docs
[opt-env-conf-test] +            ]
[opt-env-conf-test]            | not (null (docsToCommandDocs docs))
[opt-env-conf-test]            ]
[opt-env-conf-test]        ]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:441:11-12
[opt-env-conf-test] @@ -438,11 +438,11 @@
[opt-env-conf-test]                else withHelpDocs docs
[opt-env-conf-test]          ],
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ headerChunks "Available commands",
[opt-env-conf-test] +              renderCommandDocsShort docs
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          ]
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf-test] @@ -426,24 +426,7 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        [ headerChunks "Available settings",
[opt-env-conf-test] -          renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf-test] @@ -426,24 +426,24 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        [ headerChunks "Available settings",
[opt-env-conf-test] -          renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] +          [],
[opt-env-conf-test] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] +        ],
[opt-env-conf-test] +        [ headerChunks "Available settings",
[opt-env-conf-test] +          renderSetDocs $
[opt-env-conf-test] +            if null commandPath
[opt-env-conf-test] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] +              else withHelpDocs docs
[opt-env-conf-test] +        ],
[opt-env-conf-test] +        concat
[opt-env-conf-test] +          [ [ headerChunks "Available commands",
[opt-env-conf-test] +              renderCommandDocsShort docs
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:429:7-8
[opt-env-conf-test] @@ -426,24 +426,24 @@
[opt-env-conf-test]  renderHelpPageHelper progname' commandPath mVersion progDesc docs =
[opt-env-conf-test]    unlinesChunks $
[opt-env-conf-test]      concat
[opt-env-conf-test] -      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] -           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] -          [],
[opt-env-conf-test] -          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        [ headerChunks "Available settings",
[opt-env-conf-test] -          renderSetDocs $
[opt-env-conf-test] -            if null commandPath
[opt-env-conf-test] -              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] -              else withHelpDocs docs
[opt-env-conf-test] -        ],
[opt-env-conf-test] -        concat
[opt-env-conf-test] -          [ [ headerChunks "Available commands",
[opt-env-conf-test] -              renderCommandDocsShort docs
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] -          ]
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ [ let progname = unwords $ progname' : commandPath
[opt-env-conf-test] +           in usageChunk : renderShortOptDocs progname (docsToOptDocs docs),
[opt-env-conf-test] +          [],
[opt-env-conf-test] +          unlinesChunks $ progDescLines progDesc
[opt-env-conf-test] +        ],
[opt-env-conf-test] +        [ headerChunks "Available settings",
[opt-env-conf-test] +          renderSetDocs $
[opt-env-conf-test] +            if null commandPath
[opt-env-conf-test] +              then withHelpAndVersionDocs mVersion docs
[opt-env-conf-test] +              else withHelpDocs docs
[opt-env-conf-test] +        ],
[opt-env-conf-test] +        concat
[opt-env-conf-test] +          [ [ headerChunks "Available commands",
[opt-env-conf-test] +              renderCommandDocsShort docs
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          | not (null (docsToCommandDocs docs))
[opt-env-conf-test] +          ]
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  withHelpAndVersionDocs :: Maybe Version -> AnyDocs (Maybe SetDoc) -> AnyDocs (Maybe SetDoc)
[opt-env-conf-test]  withHelpAndVersionDocs mVersion sd = simplifyAnyDocs $ AnyDocsOr [helpDocs, versionDocs mVersion, sd]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf-test] @@ -305,7 +305,7 @@
[opt-env-conf-test]            [ [ -- Document date
[opt-env-conf-test]                [".Dd $Mdocdate$"],
[opt-env-conf-test]                -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test]                -- Operating system footer
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf-test] @@ -305,7 +305,8 @@
[opt-env-conf-test]            [ [ -- Document date
[opt-env-conf-test]                [".Dd $Mdocdate$"],
[opt-env-conf-test]                -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              [".Dt ", progNameChunk progname
[opt-env-conf-test] +],
[opt-env-conf-test]                -- Operating system footer
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]                -- Operating system footer
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:312:15-31
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]                -- Operating system footer
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] +              [".Sh ", "NAME"],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf-test] @@ -310,7 +310,7 @@
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:313:15-47
[opt-env-conf-test] @@ -310,7 +310,7 @@
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [".Nm ", progNameChunk progname],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:308:15-53
[opt-env-conf-test] @@ -305,7 +305,7 @@
[opt-env-conf-test]            [ [ -- Document date
[opt-env-conf-test]                [".Dd $Mdocdate$"],
[opt-env-conf-test]                -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                -- Operating system footer
[opt-env-conf-test]                [".Os"],
[opt-env-conf-test]                -- Section header
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf-test] @@ -311,7 +311,7 @@
[opt-env-conf-test]                -- Section header
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:314:15-48
[opt-env-conf-test] @@ -311,7 +311,7 @@
[opt-env-conf-test]                -- Section header
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf-test] @@ -312,7 +312,7 @@
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:315:15-34
[opt-env-conf-test] @@ -312,7 +312,7 @@
[opt-env-conf-test]                [".Sh ", "NAME"],
[opt-env-conf-test]                [".Nm ", progNameChunk progname],
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf-test] @@ -314,7 +314,7 @@
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test]                [".Sh ", "SETTINGS"],
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:317:15-35
[opt-env-conf-test] @@ -314,7 +314,7 @@
[opt-env-conf-test]                [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test]                [".Sh ", "VERSION"],
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test]                [".Sh ", "SETTINGS"],
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] +              [],
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:319:15-35
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]                [versionChunk version],
[opt-env-conf-test]                [".Sh ", "SYNOPSIS"],
[opt-env-conf-test]                renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] +              [".Sh ", "SETTINGS"],
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf-test] @@ -302,23 +302,7 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf-test] @@ -302,23 +302,23 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ -- Document date
[opt-env-conf-test] +              [".Dd $Mdocdate$"],
[opt-env-conf-test] +              -- Document title
[opt-env-conf-test] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              -- Operating system footer
[opt-env-conf-test] +              [".Os"],
[opt-env-conf-test] +              -- Section header
[opt-env-conf-test] +              [".Sh ", "NAME"],
[opt-env-conf-test] +              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [versionChunk version],
[opt-env-conf-test] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] +              [".Sh ", "SETTINGS"],
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:13-14
[opt-env-conf-test] @@ -302,23 +302,22 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ -- Document date
[opt-env-conf-test] +              [".Dd $Mdocdate$"],
[opt-env-conf-test] +              -- Document title
[opt-env-conf-test] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              -- Operating system footer
[opt-env-conf-test] +              [".Os"],
[opt-env-conf-test] +              -- Section header
[opt-env-conf-test] +              [".Sh ", "NAME"],
[opt-env-conf-test] +              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [versionChunk version],
[opt-env-conf-test] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] +              [".Sh ", "SETTINGS"]
[opt-env-conf-test] +],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (not (null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:326:22-38
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:326:21-39
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not not ((null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:326:17-39
[opt-env-conf-test] @@ -323,7 +323,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (not (null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf-test] @@ -320,7 +320,7 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:323:19-39
[opt-env-conf-test] @@ -320,7 +320,7 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +              [ [ [],
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf-test] @@ -320,9 +320,7 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:323:17-18
[opt-env-conf-test] @@ -320,9 +320,9 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:323:15-16
[opt-env-conf-test] @@ -320,11 +320,11 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:332:22-38
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (not (nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:332:21-39
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not not ((nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (not (nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf-test] @@ -326,7 +326,7 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +              [ [ [],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:329:19-38
[opt-env-conf-test] @@ -326,7 +326,7 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf-test] @@ -326,9 +326,7 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:329:17-18
[opt-env-conf-test] @@ -326,9 +326,9 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
[opt-env-conf-test] @@ -326,11 +326,11 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:338:22-38
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (not (nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:338:21-39
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not not ((nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:338:17-39
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (not (nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf-test] @@ -332,7 +332,7 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:335:19-52
[opt-env-conf-test] @@ -332,7 +332,7 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +              [ [ [],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf-test] @@ -332,9 +332,9 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:335:17-18
[opt-env-conf-test] @@ -332,9 +332,7 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:335:15-16
[opt-env-conf-test] @@ -332,11 +332,11 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:344:22-39
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (not (nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:344:21-40
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not not ((nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:344:17-40
[opt-env-conf-test] @@ -341,7 +341,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (not (nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf-test] @@ -338,7 +338,7 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] +              [ [ [],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:341:19-51
[opt-env-conf-test] @@ -338,7 +338,7 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf-test] @@ -338,9 +338,7 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:341:17-18
[opt-env-conf-test] @@ -338,9 +338,9 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:341:15-16
[opt-env-conf-test] @@ -338,11 +338,11 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs confDocs)
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render reference documentation
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf-test] @@ -302,48 +302,7 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render reference documentation
[opt-env-conf-test]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf-test] @@ -302,48 +302,48 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ -- Document date
[opt-env-conf-test] +              [".Dd $Mdocdate$"],
[opt-env-conf-test] +              -- Document title
[opt-env-conf-test] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              -- Operating system footer
[opt-env-conf-test] +              [".Os"],
[opt-env-conf-test] +              -- Section header
[opt-env-conf-test] +              [".Sh ", "NAME"],
[opt-env-conf-test] +              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [versionChunk version],
[opt-env-conf-test] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] +              [".Sh ", "SETTINGS"],
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs confDocs)
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render reference documentation
[opt-env-conf-test]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:305:11-12
[opt-env-conf-test] @@ -302,48 +302,44 @@
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          -- See https://man.openbsd.org/mdoc#MACRO_OVERVIEW
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ -- Document date
[opt-env-conf-test] -              [".Dd $Mdocdate$"],
[opt-env-conf-test] -              -- Document title
[opt-env-conf-test] -              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] -              -- Operating system footer
[opt-env-conf-test] -              [".Os"],
[opt-env-conf-test] -              -- Section header
[opt-env-conf-test] -              [".Sh ", "NAME"],
[opt-env-conf-test] -              [".Nm ", progNameChunk progname],
[opt-env-conf-test] -              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] -              [".Sh ", "VERSION"],
[opt-env-conf-test] -              [versionChunk version],
[opt-env-conf-test] -              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] -              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] -              [".Sh ", "SETTINGS"],
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ [".Sh ", "CONFIGURATION VALUES"],
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ -- Document date
[opt-env-conf-test] +              [".Dd $Mdocdate$"],
[opt-env-conf-test] +              -- Document title
[opt-env-conf-test] +              [".Dt ", progNameChunk progname, " 1"],
[opt-env-conf-test] +              -- Operating system footer
[opt-env-conf-test] +              [".Os"],
[opt-env-conf-test] +              -- Section header
[opt-env-conf-test] +              [".Sh ", "NAME"],
[opt-env-conf-test] +              [".Nm ", progNameChunk progname],
[opt-env-conf-test] +              [".Nd ", chunk $ T.pack progDesc],
[opt-env-conf-test] +              [".Sh ", "VERSION"],
[opt-env-conf-test] +              [versionChunk version],
[opt-env-conf-test] +              [".Sh ", "SYNOPSIS"],
[opt-env-conf-test] +              renderShortOptDocs progname $ docsToOptDocs docs',
[opt-env-conf-test] +              [".Sh ", "SETTINGS"],
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "COMMANDS"],
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ [".Sh ", "CONFIGURATION VALUES"]
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Render reference documentation
[opt-env-conf-test]  renderReferenceDocumentation :: String -> AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf-test] @@ -355,11 +355,7 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf-test] @@ -355,11 +355,11 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] +              [],
[opt-env-conf-test] +              headerChunks "All settings",
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:13-14
[opt-env-conf-test] @@ -355,11 +355,10 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] +              [],
[opt-env-conf-test] +              headerChunks "All settings"
[opt-env-conf-test] +],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:367:22-38
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (not (null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:367:21-39
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not not ((null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:367:17-39
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]                [ [ headerChunks "All commands",
[opt-env-conf-test]                    renderCommandDocs docs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] +              | not (not (null commandDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf-test] @@ -361,9 +361,7 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:364:17-18
[opt-env-conf-test] @@ -361,9 +361,9 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ headerChunks "All commands",
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:364:15-16
[opt-env-conf-test] @@ -361,11 +361,11 @@
[opt-env-conf-test]                renderSetDocs docs
[opt-env-conf-test]              ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ headerChunks "All commands",
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:373:22-38
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (not (nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:373:21-39
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not not ((nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | not (not (nullDocs optDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf-test] @@ -367,9 +367,7 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
[opt-env-conf-test] @@ -367,11 +367,11 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ headerChunks "Options",
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:370:17-18
[opt-env-conf-test] @@ -367,9 +367,9 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ headerChunks "Options",
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:379:22-38
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (not (nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:379:21-39
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not not ((nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf-test] @@ -373,9 +373,7 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:379:17-39
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] +              | not (not (nullDocs envDocs))
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:376:17-18
[opt-env-conf-test] @@ -373,9 +373,9 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:376:15-16
[opt-env-conf-test] @@ -373,11 +373,11 @@
[opt-env-conf-test]                | not (nullDocs optDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (True)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:385:22-39
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (not (nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not True
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:385:21-40
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not not ((nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:385:17-40
[opt-env-conf-test] @@ -382,7 +382,7 @@
[opt-env-conf-test]                [ [ headerChunks "Configuration Values",
[opt-env-conf-test]                    renderConfDocs confDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] +              | not (not (nullDocs confDocs))
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf-test] @@ -379,9 +379,7 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:382:17-18
[opt-env-conf-test] @@ -379,9 +379,9 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test]                | not (nullDocs confDocs)
[opt-env-conf-test]                ]
[opt-env-conf-test]            ]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Doc.hs:382:15-16
[opt-env-conf-test] @@ -379,11 +379,11 @@
[opt-env-conf-test]                | not (nullDocs envDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs confDocs)
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf-test] @@ -355,36 +355,7 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf-test] @@ -355,36 +355,36 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] +              [],
[opt-env-conf-test] +              headerChunks "All settings",
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "All commands",
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Options",
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] +                  renderConfDocs confDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs confDocs)
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Doc.hs:358:11-12
[opt-env-conf-test] @@ -355,36 +355,32 @@
[opt-env-conf-test]        commandDocs = docsToCommandDocs docs
[opt-env-conf-test]     in unlinesChunks $
[opt-env-conf-test]          concat
[opt-env-conf-test] -          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] -              [],
[opt-env-conf-test] -              headerChunks "All settings",
[opt-env-conf-test] -              renderSetDocs docs
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "All commands",
[opt-env-conf-test] -                  renderCommandDocs docs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (null commandDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] -                  renderEnvDocs envDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs envDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] -            concat
[opt-env-conf-test] -              [ [ headerChunks "Configuration Values",
[opt-env-conf-test] -                  renderConfDocs confDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs confDocs)
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ usageChunk : renderShortOptDocs progname (docsToOptDocs docs'),
[opt-env-conf-test] +              [],
[opt-env-conf-test] +              headerChunks "All settings",
[opt-env-conf-test] +              renderSetDocs docs
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "All commands",
[opt-env-conf-test] +                  renderCommandDocs docs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (null commandDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Options",
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Environment Variables",
[opt-env-conf-test] +                  renderEnvDocs envDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs envDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test] +            concat
[opt-env-conf-test] +              [ [ headerChunks "Configuration Values"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  nullDocs :: AnyDocs a -> Bool
[opt-env-conf-test]  nullDocs = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test] -  { optDocTryArgument :: !Bool,
[opt-env-conf-test] +  { True :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test] -  { optDocTryArgument :: !Bool,
[opt-env-conf-test] +  { False :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:77:5-22
[opt-env-conf-test] @@ -74,7 +74,7 @@
[opt-env-conf-test]    deriving (Show)
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test] -  { optDocTryArgument :: !Bool,
[opt-env-conf-test] +  { not (optDocTryArgument) :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test] -    optDocTrySwitch :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test] -    optDocTrySwitch :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf-test] @@ -76,7 +76,7 @@
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test] -    optDocTryOption :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test]      optDocExamples :: ![String],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:78:5-20
[opt-env-conf-test] @@ -75,7 +75,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test] -    optDocTrySwitch :: !Bool,
[opt-env-conf-test] +    not (optDocTrySwitch) :: !Bool,
[opt-env-conf-test]      optDocTryOption :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf-test] @@ -76,7 +76,7 @@
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test] -    optDocTryOption :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test]      optDocExamples :: ![String],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:79:5-20
[opt-env-conf-test] @@ -76,7 +76,7 @@
[opt-env-conf-test]  data OptDoc = OptDoc
[opt-env-conf-test]    { optDocTryArgument :: !Bool,
[opt-env-conf-test]      optDocTrySwitch :: !Bool,
[opt-env-conf-test] -    optDocTryOption :: !Bool,
[opt-env-conf-test] +    not (optDocTryOption) :: !Bool,
[opt-env-conf-test]      optDocDasheds :: ![Dashed],
[opt-env-conf-test]      optDocDefault :: !(Maybe String),
[opt-env-conf-test]      optDocExamples :: ![String],
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  import Text.Colour.Layout
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test] -  { setDocTryArgument :: !Bool,
[opt-env-conf-test] +  { not (setDocTryArgument) :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  import Text.Colour.Layout
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test] -  { setDocTryArgument :: !Bool,
[opt-env-conf-test] +  { False :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test] -    setDocTrySwitch :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test] -    setDocTrySwitch :: !Bool,
[opt-env-conf-test] +    not (setDocTrySwitch) :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:64:5-20
[opt-env-conf-test] @@ -61,7 +61,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test] -    setDocTrySwitch :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test] -    setDocTryOption :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test] -    setDocTryOption :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Doc.hs:65:5-20
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test]    { setDocTryArgument :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test] -    setDocTryOption :: !Bool,
[opt-env-conf-test] +    not (setDocTryOption) :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test]      setDocEnvVars :: !(Maybe (NonEmpty String)),
[opt-env-conf-test]      setDocConfKeys :: !(Maybe (NonEmpty (NonEmpty String, JSONSchema))),
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf-test] @@ -304,9 +304,9 @@
[opt-env-conf-test]          Nothing -> pure Nothing
[opt-env-conf-test]          Just cs1 -> do
[opt-env-conf-test]            p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -          pure $ case p2s of
[opt-env-conf-test] -            Nothing -> Nothing
[opt-env-conf-test] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf-test] +          pure $ case p2s of
[opt-env-conf-test] +            Nothing -> Nothing
[opt-env-conf-test] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      -- Nothing means "this branch was not valid"
[opt-env-conf-test]      -- Just [] means "no completions"
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf-test] @@ -291,11 +291,11 @@
[opt-env-conf-test]      orCompletions p1 p2 = do
[opt-env-conf-test]        p1s <- tryOrRestore $ go p1
[opt-env-conf-test]        p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -      pure $ case (p1s, p2s) of
[opt-env-conf-test] -        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] -        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] -        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test] +      pure $ case (p1s, p2s) of
[opt-env-conf-test] +        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] +        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] +        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test]      andCompletions p1 p2 = do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Doc.hs:63:5-22
[opt-env-conf-test] @@ -60,7 +60,7 @@
[opt-env-conf-test]  import Text.Colour.Layout
[opt-env-conf-test]  
[opt-env-conf-test]  data SetDoc = SetDoc
[opt-env-conf-test] -  { setDocTryArgument :: !Bool,
[opt-env-conf-test] +  { True :: !Bool,
[opt-env-conf-test]      setDocTrySwitch :: !Bool,
[opt-env-conf-test]      setDocTryOption :: !Bool,
[opt-env-conf-test]      setDocDasheds :: ![Dashed],
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf-test] @@ -291,11 +291,11 @@
[opt-env-conf-test]      orCompletions p1 p2 = do
[opt-env-conf-test]        p1s <- tryOrRestore $ go p1
[opt-env-conf-test]        p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -      pure $ case (p1s, p2s) of
[opt-env-conf-test] -        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] -        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] -        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test] +      pure $ case (p1s, p2s) of
[opt-env-conf-test] +        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] +        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] +        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test]      andCompletions p1 p2 = do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf-test] @@ -291,11 +291,11 @@
[opt-env-conf-test]      orCompletions p1 p2 = do
[opt-env-conf-test]        p1s <- tryOrRestore $ go p1
[opt-env-conf-test]        p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -      pure $ case (p1s, p2s) of
[opt-env-conf-test] -        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] -        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] -        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test] +      pure $ case (p1s, p2s) of
[opt-env-conf-test] +        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] +        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] +        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test]      andCompletions p1 p2 = do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          Nothing -> pure Nothing
[opt-env-conf-test]          Just os -> do
[opt-env-conf-test]            after <- get
[opt-env-conf-test] -          if after == before
[opt-env-conf-test] +          if True
[opt-env-conf-test]              then -- State did not advance; return these completions.
[opt-env-conf-test]                pure $ Just os
[opt-env-conf-test]              else -- State advanced: something was consumed. Try the
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:307:18-42
[opt-env-conf-test] @@ -304,9 +304,9 @@
[opt-env-conf-test]          Nothing -> pure Nothing
[opt-env-conf-test]          Just cs1 -> do
[opt-env-conf-test]            p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -          pure $ case p2s of
[opt-env-conf-test] -            Nothing -> Nothing
[opt-env-conf-test] -            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf-test] +          pure $ case p2s of
[opt-env-conf-test] +            Nothing -> Nothing
[opt-env-conf-test] +            Just cs2 -> pure $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      -- Nothing means "this branch was not valid"
[opt-env-conf-test]      -- Just [] means "no completions"
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          Nothing -> pure Nothing
[opt-env-conf-test]          Just os -> do
[opt-env-conf-test]            after <- get
[opt-env-conf-test] -          if after == before
[opt-env-conf-test] +          if not (after == before)
[opt-env-conf-test]              then -- State did not advance; return these completions.
[opt-env-conf-test]                pure $ Just os
[opt-env-conf-test]              else -- State advanced: something was consumed. Try the
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf-test] @@ -284,7 +284,7 @@
[opt-env-conf-test]                      -- dashed suggestions (state didn't advance
[opt-env-conf-test]                      -- further), prefer our completions which came
[opt-env-conf-test]                      -- from the advancing iteration.
[opt-env-conf-test] -                    | null os -> pure $ Just more
[opt-env-conf-test] +                    | not (null os) -> pure $ Just more
[opt-env-conf-test]                      | otherwise -> pure $ Just os
[opt-env-conf-test]  
[opt-env-conf-test]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf-test]              case mArg of
[opt-env-conf-test]                Nothing -> do
[opt-env-conf-test] -                if argsAtEnd rest
[opt-env-conf-test] +                if True
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf-test]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:294:14-50
[opt-env-conf-test] @@ -291,11 +291,11 @@
[opt-env-conf-test]      orCompletions p1 p2 = do
[opt-env-conf-test]        p1s <- tryOrRestore $ go p1
[opt-env-conf-test]        p2s <- tryOrRestore $ go p2
[opt-env-conf-test] -      pure $ case (p1s, p2s) of
[opt-env-conf-test] -        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] -        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] -        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] -        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test] +      pure $ case (p1s, p2s) of
[opt-env-conf-test] +        (Nothing, Nothing) -> Nothing
[opt-env-conf-test] +        (Just cs, Nothing) -> Just cs
[opt-env-conf-test] +        (Nothing, Just cs) -> Just cs
[opt-env-conf-test] +        (Just cs1, Just cs2) -> Just $ cs1 ++ cs2
[opt-env-conf-test]  
[opt-env-conf-test]      andCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test]      andCompletions p1 p2 = do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:272:14-29
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          Nothing -> pure Nothing
[opt-env-conf-test]          Just os -> do
[opt-env-conf-test]            after <- get
[opt-env-conf-test] -          if after == before
[opt-env-conf-test] +          if False
[opt-env-conf-test]              then -- State did not advance; return these completions.
[opt-env-conf-test]                pure $ Just os
[opt-env-conf-test]              else -- State advanced: something was consumed. Try the
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf-test] @@ -357,11 +357,11 @@
[opt-env-conf-test]                    -- name then the remaining args have nowhere to go.
[opt-env-conf-test]                      pure Nothing
[opt-env-conf-test]                Just arg ->
[opt-env-conf-test] -                case find ((== arg) . commandArg) cs of
[opt-env-conf-test] -                  Just c -> do
[opt-env-conf-test] -                    put rest
[opt-env-conf-test] -                    goCommand c
[opt-env-conf-test] -                  Nothing -> pure Nothing
[opt-env-conf-test] +                case find ((== arg) . commandArg) cs of
[opt-env-conf-test] +                  Just c -> do
[opt-env-conf-test] +                    put rest
[opt-env-conf-test] +                    goCommand c
[opt-env-conf-test] +                  Nothing -> pure Nothing
[opt-env-conf-test]          -- If there is a default command, also try completing within
[opt-env-conf-test]          -- the default command's parser, since that is what would run
[opt-env-conf-test]          -- if the user provides no command.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf-test] @@ -375,7 +375,7 @@
[opt-env-conf-test]                  -- If no args were consumed (we were already at end),
[opt-env-conf-test]                  -- combine the explicit command listing with the default
[opt-env-conf-test]                  -- command's completions.
[opt-env-conf-test] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test] +                | True -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test]                  | otherwise -> do
[opt-env-conf-test]                      -- The default command consumed args, so its
[opt-env-conf-test]                      -- completions are valid.  But we must restore
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:360:17-42
[opt-env-conf-test] @@ -357,11 +357,11 @@
[opt-env-conf-test]                    -- name then the remaining args have nowhere to go.
[opt-env-conf-test]                      pure Nothing
[opt-env-conf-test]                Just arg ->
[opt-env-conf-test] -                case find ((== arg) . commandArg) cs of
[opt-env-conf-test] -                  Just c -> do
[opt-env-conf-test] -                    put rest
[opt-env-conf-test] -                    goCommand c
[opt-env-conf-test] -                  Nothing -> pure Nothing
[opt-env-conf-test] +                case find ((== arg) . commandArg) cs of
[opt-env-conf-test] +                  Just c -> do
[opt-env-conf-test] +                    put rest
[opt-env-conf-test] +                    goCommand c
[opt-env-conf-test] +                  Nothing -> pure Nothing
[opt-env-conf-test]          -- If there is a default command, also try completing within
[opt-env-conf-test]          -- the default command's parser, since that is what would run
[opt-env-conf-test]          -- if the user provides no command.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf-test] @@ -375,7 +375,7 @@
[opt-env-conf-test]                  -- If no args were consumed (we were already at end),
[opt-env-conf-test]                  -- combine the explicit command listing with the default
[opt-env-conf-test]                  -- command's completions.
[opt-env-conf-test] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test] +                | argsAtEnd as -> pure $ combineOptions []
[opt-env-conf-test]                  | otherwise -> do
[opt-env-conf-test]                      -- The default command consumed args, so its
[opt-env-conf-test]                      -- completions are valid.  But we must restore
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:378:19-31
[opt-env-conf-test] @@ -375,7 +375,7 @@
[opt-env-conf-test]                  -- If no args were consumed (we were already at end),
[opt-env-conf-test]                  -- combine the explicit command listing with the default
[opt-env-conf-test]                  -- command's completions.
[opt-env-conf-test] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test] +                | not (argsAtEnd as) -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test]                  | otherwise -> do
[opt-env-conf-test]                      -- The default command consumed args, so its
[opt-env-conf-test]                      -- completions are valid.  But we must restore
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:378:57-95
[opt-env-conf-test] @@ -375,7 +375,7 @@
[opt-env-conf-test]                  -- If no args were consumed (we were already at end),
[opt-env-conf-test]                  -- combine the explicit command listing with the default
[opt-env-conf-test]                  -- command's completions.
[opt-env-conf-test] -                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test] +                | argsAtEnd as -> pure $ combineOptions [explicitCommandCompletions, Just dcs]
[opt-env-conf-test]                  | otherwise -> do
[opt-env-conf-test]                      -- The default command consumed args, so its
[opt-env-conf-test]                      -- completions are valid.  But we must restore
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:287:23-30
[opt-env-conf-test] @@ -284,7 +284,7 @@
[opt-env-conf-test]                      -- dashed suggestions (state didn't advance
[opt-env-conf-test]                      -- further), prefer our completions which came
[opt-env-conf-test]                      -- from the advancing iteration.
[opt-env-conf-test] -                    | null os -> pure $ Just more
[opt-env-conf-test] +                    | True -> pure $ Just more
[opt-env-conf-test]                      | otherwise -> pure $ Just os
[opt-env-conf-test]  
[opt-env-conf-test]      orCompletions :: Parser x -> Parser y -> State Args (Maybe [Completion Suggestion])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf-test]              case mArg of
[opt-env-conf-test]                Nothing -> do
[opt-env-conf-test] -                if argsAtEnd rest
[opt-env-conf-test] +                if False
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf-test]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf-test] @@ -395,7 +395,7 @@
[opt-env-conf-test]                pure Completion {..}
[opt-env-conf-test]          let completeWithCompleterAtEnd = do
[opt-env-conf-test]                as <- get
[opt-env-conf-test] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf-test] +              if True then completeWithCompleter else pure $ Just []
[opt-env-conf-test]          let completeWithDasheds = do
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf-test] @@ -395,7 +395,7 @@
[opt-env-conf-test]                pure Completion {..}
[opt-env-conf-test]          let completeWithCompleterAtEnd = do
[opt-env-conf-test]                as <- get
[opt-env-conf-test] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf-test] +              if False then completeWithCompleter else pure $ Just []
[opt-env-conf-test]          let completeWithDasheds = do
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:401:37-41
[opt-env-conf-test] @@ -398,7 +398,7 @@
[opt-env-conf-test]                if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf-test]          let completeWithDasheds = do
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test] -                    DashedLong _ -> True
[opt-env-conf-test] +                    DashedLong _ -> False
[opt-env-conf-test]                      DashedShort _ -> False
[opt-env-conf-test]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completion.hs:402:38-43
[opt-env-conf-test] @@ -399,7 +399,7 @@
[opt-env-conf-test]          let completeWithDasheds = do
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test] -                    DashedShort _ -> False
[opt-env-conf-test] +                    DashedShort _ -> True
[opt-env-conf-test]                let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test]                let completions =
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf-test] @@ -400,7 +400,7 @@
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test]                      DashedShort _ -> False
[opt-env-conf-test] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test] +              let favorableDasheds = if True then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test]                let completions =
[opt-env-conf-test]                      map
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf-test] @@ -400,7 +400,7 @@
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test]                      DashedShort _ -> False
[opt-env-conf-test] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test] +              let favorableDasheds = if False then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test]                let completions =
[opt-env-conf-test]                      map
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completion.hs:403:38-120
[opt-env-conf-test] @@ -400,7 +400,7 @@
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test]                      DashedShort _ -> False
[opt-env-conf-test] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test] +              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test]                let completions =
[opt-env-conf-test]                      map
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:398:18-30
[opt-env-conf-test] @@ -395,7 +395,7 @@
[opt-env-conf-test]                pure Completion {..}
[opt-env-conf-test]          let completeWithCompleterAtEnd = do
[opt-env-conf-test]                as <- get
[opt-env-conf-test] -              if argsAtEnd as then completeWithCompleter else pure $ Just []
[opt-env-conf-test] +              if not (argsAtEnd as) then completeWithCompleter else pure $ Just []
[opt-env-conf-test]          let completeWithDasheds = do
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                        )
[opt-env-conf-test]                        suggestions
[opt-env-conf-test]                pure $ Just completions
[opt-env-conf-test] -        if settingHidden
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                        )
[opt-env-conf-test]                        suggestions
[opt-env-conf-test]                pure $ Just completions
[opt-env-conf-test] -        if settingHidden
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:403:41-66
[opt-env-conf-test] @@ -400,7 +400,7 @@
[opt-env-conf-test]                let isLong = \case
[opt-env-conf-test]                      DashedLong _ -> True
[opt-env-conf-test]                      DashedShort _ -> False
[opt-env-conf-test] -              let favorableDasheds = if any isLong settingDasheds then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test] +              let favorableDasheds = if not (any isLong settingDasheds) then filter isLong settingDasheds else settingDasheds
[opt-env-conf-test]                let suggestions = filter (arg `isPrefixOf`) (map Args.renderDashed favorableDasheds)
[opt-env-conf-test]                let completions =
[opt-env-conf-test]                      map
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:414:12-25
[opt-env-conf-test] @@ -411,7 +411,7 @@
[opt-env-conf-test]                        )
[opt-env-conf-test]                        suggestions
[opt-env-conf-test]                pure $ Just completions
[opt-env-conf-test] -        if settingHidden
[opt-env-conf-test] +        if not (settingHidden)
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf-test] @@ -415,7 +415,7 @@
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if False
[opt-env-conf-test]                then do
[opt-env-conf-test]                  let possibilities = Args.consumeArgument as
[opt-env-conf-test]                  -- Try all possible consumptions of the argument.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf-test] @@ -432,11 +432,11 @@
[opt-env-conf-test]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf-test]                      -- fallback matched.  In both cases, offer the
[opt-env-conf-test]                      -- completer if we are at the end.
[opt-env-conf-test] -                    case possibilities of
[opt-env-conf-test] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] -                      (_, as') : _ -> do
[opt-env-conf-test] -                        put as'
[opt-env-conf-test] -                        completeWithCompleterAtEnd
[opt-env-conf-test] +                    case possibilities of
[opt-env-conf-test] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] +                      (_, as') : _ -> do
[opt-env-conf-test] +                        put as'
[opt-env-conf-test] +                        completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test]                  if isJust settingSwitchValue
[opt-env-conf-test]                    then do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf-test] @@ -432,11 +432,11 @@
[opt-env-conf-test]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf-test]                      -- fallback matched.  In both cases, offer the
[opt-env-conf-test]                      -- completer if we are at the end.
[opt-env-conf-test] -                    case possibilities of
[opt-env-conf-test] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] -                      (_, as') : _ -> do
[opt-env-conf-test] -                        put as'
[opt-env-conf-test] -                        completeWithCompleterAtEnd
[opt-env-conf-test] +                    case possibilities of
[opt-env-conf-test] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] +                      (_, as') : _ -> do
[opt-env-conf-test] +                        put as'
[opt-env-conf-test] +                        completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test]                  if isJust settingSwitchValue
[opt-env-conf-test]                    then do
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf-test] @@ -415,7 +415,7 @@
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if not (settingTryArgument)
[opt-env-conf-test]                then do
[opt-env-conf-test]                  let possibilities = Args.consumeArgument as
[opt-env-conf-test]                  -- Try all possible consumptions of the argument.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf-test] @@ -438,7 +438,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test] -                if isJust settingSwitchValue
[opt-env-conf-test] +                if True
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf-test]                      -- it's already been parsed.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf-test] @@ -438,7 +438,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test] -                if isJust settingSwitchValue
[opt-env-conf-test] +                if not (isJust settingSwitchValue)
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf-test]                      -- it's already been parsed.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf-test] @@ -450,7 +450,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          pure $ Just []
[opt-env-conf-test]                    else do
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if True
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test]                          case Args.consumeOption settingDasheds as of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf-test] @@ -450,7 +450,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          pure $ Just []
[opt-env-conf-test]                    else do
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if False
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test]                          case Args.consumeOption settingDasheds as of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:418:16-34
[opt-env-conf-test] @@ -415,7 +415,7 @@
[opt-env-conf-test]            then pure $ Just []
[opt-env-conf-test]            else do
[opt-env-conf-test]              as <- get
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if True
[opt-env-conf-test]                then do
[opt-env-conf-test]                  let possibilities = Args.consumeArgument as
[opt-env-conf-test]                  -- Try all possible consumptions of the argument.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf-test] @@ -450,7 +450,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          pure $ Just []
[opt-env-conf-test]                    else do
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if not (settingTryOption)
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test]                          case Args.consumeOption settingDasheds as of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf-test] @@ -458,7 +458,7 @@
[opt-env-conf-test]                              put as'
[opt-env-conf-test]                              pure $ Just []
[opt-env-conf-test]                            Nothing -> do
[opt-env-conf-test] -                            if argsAtEnd as
[opt-env-conf-test] +                            if True
[opt-env-conf-test]                                then completeWithDasheds
[opt-env-conf-test]                                else do
[opt-env-conf-test]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:441:20-45
[opt-env-conf-test] @@ -438,7 +438,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test] -                if isJust settingSwitchValue
[opt-env-conf-test] +                if False
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf-test]                      -- it's already been parsed.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf-test] @@ -458,7 +458,7 @@
[opt-env-conf-test]                              put as'
[opt-env-conf-test]                              pure $ Just []
[opt-env-conf-test]                            Nothing -> do
[opt-env-conf-test] -                            if argsAtEnd as
[opt-env-conf-test] +                            if False
[opt-env-conf-test]                                then completeWithDasheds
[opt-env-conf-test]                                else do
[opt-env-conf-test]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completion.hs:441:17-39
[opt-env-conf-test] @@ -438,50 +438,50 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test] -                if isJust settingSwitchValue
[opt-env-conf-test] -                  then do
[opt-env-conf-test] -                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf-test] -                    -- it's already been parsed.
[opt-env-conf-test] -                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf-test] -                      Nothing ->
[opt-env-conf-test] -                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf-test] -                        completeWithDasheds
[opt-env-conf-test] -                      Just as' -> do
[opt-env-conf-test] -                        put as'
[opt-env-conf-test] -                        pure $ Just []
[opt-env-conf-test] -                  else do
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test] -                        case Args.consumeOption settingDasheds as of
[opt-env-conf-test] -                          Just (_, as') -> do
[opt-env-conf-test] -                            put as'
[opt-env-conf-test] -                            pure $ Just []
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            if argsAtEnd as
[opt-env-conf-test] -                              then completeWithDasheds
[opt-env-conf-test] -                              else do
[opt-env-conf-test] -                                -- If we're not at the end, we may be between an option's
[opt-env-conf-test] -                                -- dashed an the option value being tab-completed In that case
[opt-env-conf-test] -                                -- we need to parse the dashed as normal and check if that
[opt-env-conf-test] -                                -- brings us to the end.
[opt-env-conf-test] -                                --
[opt-env-conf-test] -                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf-test] -                                -- the option because consumeOption would try to
[opt-env-conf-test] -                                -- consume the option argument too.
[opt-env-conf-test] -                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf-test] -                                  Nothing -> pure $ Just []
[opt-env-conf-test] -                                  Just as' -> do
[opt-env-conf-test] -                                    put as'
[opt-env-conf-test] -                                    completeWithCompleterAtEnd
[opt-env-conf-test] -                      else do
[opt-env-conf-test] -                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf-test] -                        -- or config values, but this path is still valid.
[opt-env-conf-test] -                        --
[opt-env-conf-test] -                        -- If we checked whether the env var is set or the
[opt-env-conf-test] -                        -- config val is present, we could return Nothing when
[opt-env-conf-test] -                        -- they are absent. That would let alternatives reject
[opt-env-conf-test] -                        -- this branch, improving completions when one branch
[opt-env-conf-test] -                        -- is env/conf-only and the other has args/options.
[opt-env-conf-test] -                        -- This would require IO or an environment parameter.
[opt-env-conf-test] -                        pure $ Just []
[opt-env-conf-test] +                if isJust settingSwitchValue
[opt-env-conf-test] +                  then do
[opt-env-conf-test] +                    -- Try to parse the switch first, so we don't suggest it if
[opt-env-conf-test] +                    -- it's already been parsed.
[opt-env-conf-test] +                    case Args.consumeSwitch settingDasheds as of
[opt-env-conf-test] +                      Nothing ->
[opt-env-conf-test] +                        -- A switch can be anywhere, doesn't need to be at the end.
[opt-env-conf-test] +                        completeWithDasheds
[opt-env-conf-test] +                      Just as' -> do
[opt-env-conf-test] +                        put as'
[opt-env-conf-test] +                        pure $ Just []
[opt-env-conf-test] +                  else do
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test] +                        case Args.consumeOption settingDasheds as of
[opt-env-conf-test] +                          Just (_, as') -> do
[opt-env-conf-test] +                            put as'
[opt-env-conf-test] +                            pure $ Just []
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            if argsAtEnd as
[opt-env-conf-test] +                              then completeWithDasheds
[opt-env-conf-test] +                              else do
[opt-env-conf-test] +                                -- If we're not at the end, we may be between an option's
[opt-env-conf-test] +                                -- dashed an the option value being tab-completed In that case
[opt-env-conf-test] +                                -- we need to parse the dashed as normal and check if that
[opt-env-conf-test] +                                -- brings us to the end.
[opt-env-conf-test] +                                --
[opt-env-conf-test] +                                -- We use 'consumeSwitch' to consume the dashed part of
[opt-env-conf-test] +                                -- the option because consumeOption would try to
[opt-env-conf-test] +                                -- consume the option argument too.
[opt-env-conf-test] +                                case Args.consumeSwitch settingDasheds as of
[opt-env-conf-test] +                                  Nothing -> pure $ Just []
[opt-env-conf-test] +                                  Just as' -> do
[opt-env-conf-test] +                                    put as'
[opt-env-conf-test] +                                    completeWithCompleterAtEnd
[opt-env-conf-test] +                      else do
[opt-env-conf-test] +                        -- We can't auto-complete settings parsed from env vars
[opt-env-conf-test] +                        -- or config values, but this path is still valid.
[opt-env-conf-test] +                        --
[opt-env-conf-test] +                        -- If we checked whether the env var is set or the
[opt-env-conf-test] +                        -- config val is present, we could return Nothing when
[opt-env-conf-test] +                        -- they are absent. That would let alternatives reject
[opt-env-conf-test] +                        -- this branch, improving completions when one branch
[opt-env-conf-test] +                        -- is env/conf-only and the other has args/options.
[opt-env-conf-test] +                        -- This would require IO or an environment parameter.
[opt-env-conf-test] +                        pure $ Just []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf-test] @@ -168,7 +168,7 @@
[opt-env-conf-test]    -- import System.IO
[opt-env-conf-test]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf-test]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf-test] -  if enriched
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then
[opt-env-conf-test]        putStr $
[opt-env-conf-test]          unlines $
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf-test] @@ -168,7 +168,7 @@
[opt-env-conf-test]    -- import System.IO
[opt-env-conf-test]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf-test]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf-test] -  if enriched
[opt-env-conf-test] +  if not (enriched)
[opt-env-conf-test]      then
[opt-env-conf-test]        putStr $
[opt-env-conf-test]          unlines $
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]    --
[opt-env-conf-test]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf-test]    let index = pred index'
[opt-env-conf-test] -  let ws = drop 1 ws'
[opt-env-conf-test] +  let ws = drop 0 ws'
[opt-env-conf-test]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf-test]    let completions = pureCompletionQuery parser index ws
[opt-env-conf-test]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]            map
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] +                    notFinal = False
[opt-env-conf-test]                   in case (notFinal, completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]            map
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] +                    notFinal = not (completionResultFinality completionSuggestion == CompletionNotFinal)
[opt-env-conf-test]                   in case (notFinal, completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                 in case (True, completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:461:32-44
[opt-env-conf-test] @@ -458,7 +458,7 @@
[opt-env-conf-test]                              put as'
[opt-env-conf-test]                              pure $ Just []
[opt-env-conf-test]                            Nothing -> do
[opt-env-conf-test] -                            if argsAtEnd as
[opt-env-conf-test] +                            if not (argsAtEnd as)
[opt-env-conf-test]                                then completeWithDasheds
[opt-env-conf-test]                                else do
[opt-env-conf-test]                                  -- If we're not at the end, we may be between an option's
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completion.hs:163:17-18
[opt-env-conf-test] @@ -160,7 +160,7 @@
[opt-env-conf-test]    --
[opt-env-conf-test]    -- We use 'drop 1' here because we don't care about the progname anymore.
[opt-env-conf-test]    let index = pred index'
[opt-env-conf-test] -  let ws = drop 1 ws'
[opt-env-conf-test] +  let ws = drop -1 ws'
[opt-env-conf-test]    let arg = fromMaybe "" $ listToMaybe $ drop index ws
[opt-env-conf-test]    let completions = pureCompletionQuery parser index ws
[opt-env-conf-test]    evaluatedCompletions <- evalCompletions arg completions
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                 in case (False, completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:171:6-14
[opt-env-conf-test] @@ -168,7 +168,7 @@
[opt-env-conf-test]    -- import System.IO
[opt-env-conf-test]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf-test]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf-test] -  if enriched
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then
[opt-env-conf-test]        putStr $
[opt-env-conf-test]          unlines $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] -                      (False, Nothing) -> val
[opt-env-conf-test] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] +                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                      (False, Nothing) -> val
[opt-env-conf-test] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test]              )
[opt-env-conf-test]              evaluatedCompletions
[opt-env-conf-test]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:179:27-35
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                 in case (not (notFinal), completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test]                        (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completion.hs:178:32-99
[opt-env-conf-test] @@ -175,7 +175,7 @@
[opt-env-conf-test]            map
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] +                    notFinal = True
[opt-env-conf-test]                   in case (notFinal, completionDescription) of
[opt-env-conf-test]                        (False, Nothing) -> val
[opt-env-conf-test]                        (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] -                      (False, Nothing) -> val
[opt-env-conf-test] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] +                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                      (False, Nothing) -> val
[opt-env-conf-test] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test]              )
[opt-env-conf-test]              evaluatedCompletions
[opt-env-conf-test]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] -                      (False, Nothing) -> val
[opt-env-conf-test] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] +                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                      (False, Nothing) -> val
[opt-env-conf-test] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test]              )
[opt-env-conf-test]              evaluatedCompletions
[opt-env-conf-test]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completion.hs:179:21-66
[opt-env-conf-test] @@ -176,11 +176,11 @@
[opt-env-conf-test]              ( \Completion {..} ->
[opt-env-conf-test]                  let val = completionResultValue completionSuggestion
[opt-env-conf-test]                      notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] -                      (False, Nothing) -> val
[opt-env-conf-test] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] +                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                      (False, Nothing) -> val
[opt-env-conf-test] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test]              )
[opt-env-conf-test]              evaluatedCompletions
[opt-env-conf-test]      else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completion.hs:171:3-100
[opt-env-conf-test] @@ -168,22 +168,22 @@
[opt-env-conf-test]    -- import System.IO
[opt-env-conf-test]    -- hPutStrLn stderr $ show (enriched, index, ws)
[opt-env-conf-test]    -- hPutStrLn stderr $ show evaluatedCompletions
[opt-env-conf-test] -  if enriched
[opt-env-conf-test] -    then
[opt-env-conf-test] -      putStr $
[opt-env-conf-test] -        unlines $
[opt-env-conf-test] -          map
[opt-env-conf-test] -            ( \Completion {..} ->
[opt-env-conf-test] -                let val = completionResultValue completionSuggestion
[opt-env-conf-test] -                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] -                 in case (notFinal, completionDescription) of
[opt-env-conf-test] -                      (False, Nothing) -> val
[opt-env-conf-test] -                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] -                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] -                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] -            )
[opt-env-conf-test] -            evaluatedCompletions
[opt-env-conf-test] -    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test] +  if enriched
[opt-env-conf-test] +    then
[opt-env-conf-test] +      putStr $
[opt-env-conf-test] +        unlines $
[opt-env-conf-test] +          map
[opt-env-conf-test] +            ( \Completion {..} ->
[opt-env-conf-test] +                let val = completionResultValue completionSuggestion
[opt-env-conf-test] +                    notFinal = completionResultFinality completionSuggestion == CompletionNotFinal
[opt-env-conf-test] +                 in case (notFinal, completionDescription) of
[opt-env-conf-test] +                      (False, Nothing) -> val
[opt-env-conf-test] +                      (False, Just d) -> val <> "\t" <> d
[opt-env-conf-test] +                      (True, Nothing) -> val <> "\t\tN"
[opt-env-conf-test] +                      (True, Just d) -> val <> "\t" <> d <> "\tN"
[opt-env-conf-test] +            )
[opt-env-conf-test] +            evaluatedCompletions
[opt-env-conf-test] +    else putStr $ unlines $ map (completionResultValue . completionSuggestion) evaluatedCompletions
[opt-env-conf-test]    pure ()
[opt-env-conf-test]  
[opt-env-conf-test]  -- Because the first arg has already been skipped we get input like this here:
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf-test] @@ -113,27 +113,27 @@
[opt-env-conf-test]  fishCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ " function " ++ functionName,
[opt-env-conf-test] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf-test] -          "    # Hack around fish issue #3934",
[opt-env-conf-test] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf-test] -          "    set -l cn (count $cn)",
[opt-env-conf-test] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf-test] -          "    for arg in $cl",
[opt-env-conf-test] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf-test] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf-test] -          "      if test -d $val",
[opt-env-conf-test] -          "        echo -E \"$val/\"",
[opt-env-conf-test] -          "      else",
[opt-env-conf-test] -          "        echo -E \"$val\"",
[opt-env-conf-test] -          "      end",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "end",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ " function " ++ functionName,
[opt-env-conf-test] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf-test] +          "    # Hack around fish issue #3934",
[opt-env-conf-test] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf-test] +          "    set -l cn (count $cn)",
[opt-env-conf-test] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf-test] +          "    for arg in $cl",
[opt-env-conf-test] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf-test] +          "    end",
[opt-env-conf-test] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf-test] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf-test] +          "      if test -d $val",
[opt-env-conf-test] +          "        echo -E \"$val/\"",
[opt-env-conf-test] +          "      else",
[opt-env-conf-test] +          "        echo -E \"$val\"",
[opt-env-conf-test] +          "      end",
[opt-env-conf-test] +          "    end",
[opt-env-conf-test] +          "end",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf-test]  progNameToFunctionName :: String -> String
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf-test] @@ -40,22 +40,7 @@
[opt-env-conf-test]  bashCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ functionName ++ "()",
[opt-env-conf-test] -          "{",
[opt-env-conf-test] -          "    local CMDLINE",
[opt-env-conf-test] -          "    local IFS=$'\\n'",
[opt-env-conf-test] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf-test] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf-test] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf-test] -          "    done",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf-test] -          "}",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf-test] @@ -40,22 +40,22 @@
[opt-env-conf-test]  bashCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ functionName ++ "()",
[opt-env-conf-test] -          "{",
[opt-env-conf-test] -          "    local CMDLINE",
[opt-env-conf-test] -          "    local IFS=$'\\n'",
[opt-env-conf-test] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf-test] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf-test] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf-test] -          "    done",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf-test] -          "}",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ functionName ++ "()",
[opt-env-conf-test] +          "{",
[opt-env-conf-test] +          "    local CMDLINE",
[opt-env-conf-test] +          "    local IFS=$'\\n'",
[opt-env-conf-test] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf-test] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf-test] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf-test] +          "    done",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf-test] +          "}",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf-test] @@ -64,46 +64,45 @@
[opt-env-conf-test]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf-test]  zshCompletionScript progPath progname =
[opt-env-conf-test]    unlines
[opt-env-conf-test] -    [ "#compdef " ++ progname,
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "local request",
[opt-env-conf-test] -      "local completions",
[opt-env-conf-test] -      "local word",
[opt-env-conf-test] -      "local index=$((CURRENT - 1))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf-test] -      "for arg in ${words[@]}; do",
[opt-env-conf-test] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf-test] -      "done",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "for word in $completions; do",
[opt-env-conf-test] -      "  local -a parts",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  # Split the line at a tab if there is one.",
[opt-env-conf-test] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf-test] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf-test] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf-test] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf-test] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf-test] -      "     else",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf-test] -      "     fi",
[opt-env-conf-test] -      "  else",
[opt-env-conf-test] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf-test] -      "    else",
[opt-env-conf-test] -      "      compadd -f -- $parts[1]",
[opt-env-conf-test] -      "    fi",
[opt-env-conf-test] -      "  fi",
[opt-env-conf-test] -      "done"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ "#compdef " ++ progname,
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "local request",
[opt-env-conf-test] +      "local completions",
[opt-env-conf-test] +      "local word",
[opt-env-conf-test] +      "local index=$((CURRENT - 1))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf-test] +      "for arg in ${words[@]}; do",
[opt-env-conf-test] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf-test] +      "done",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "for word in $completions; do",
[opt-env-conf-test] +      "  local -a parts",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "  # Split the line at a tab if there is one.",
[opt-env-conf-test] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf-test] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf-test] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf-test] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf-test] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf-test] +      "     else",
[opt-env-conf-test] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf-test] +      "     fi",
[opt-env-conf-test] +      "  else",
[opt-env-conf-test] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf-test] +      "    else",
[opt-env-conf-test] +      "      compadd -f -- $parts[1]",
[opt-env-conf-test] +      "    fi",
[opt-env-conf-test] +      "  fi"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf-test] @@ -113,27 +113,27 @@
[opt-env-conf-test]  fishCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ " function " ++ functionName,
[opt-env-conf-test] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf-test] -          "    # Hack around fish issue #3934",
[opt-env-conf-test] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf-test] -          "    set -l cn (count $cn)",
[opt-env-conf-test] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf-test] -          "    for arg in $cl",
[opt-env-conf-test] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf-test] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf-test] -          "      if test -d $val",
[opt-env-conf-test] -          "        echo -E \"$val/\"",
[opt-env-conf-test] -          "      else",
[opt-env-conf-test] -          "        echo -E \"$val\"",
[opt-env-conf-test] -          "      end",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "end",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ " function " ++ functionName,
[opt-env-conf-test] +          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf-test] +          "    # Hack around fish issue #3934",
[opt-env-conf-test] +          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf-test] +          "    set -l cn (count $cn)",
[opt-env-conf-test] +          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf-test] +          "    for arg in $cl",
[opt-env-conf-test] +          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf-test] +          "    end",
[opt-env-conf-test] +          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf-test] +          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf-test] +          "      if test -d $val",
[opt-env-conf-test] +          "        echo -E \"$val/\"",
[opt-env-conf-test] +          "      else",
[opt-env-conf-test] +          "        echo -E \"$val\"",
[opt-env-conf-test] +          "      end",
[opt-env-conf-test] +          "    end",
[opt-env-conf-test] +          "end",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf-test]  progNameToFunctionName :: String -> String
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:116:9-10
[opt-env-conf-test] @@ -113,27 +113,7 @@
[opt-env-conf-test]  fishCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ " function " ++ functionName,
[opt-env-conf-test] -          "    set -l cl (commandline --tokenize --current-process)",
[opt-env-conf-test] -          "    # Hack around fish issue #3934",
[opt-env-conf-test] -          "    set -l cn (commandline --tokenize --cut-at-cursor --current-process)",
[opt-env-conf-test] -          "    set -l cn (count $cn)",
[opt-env-conf-test] -          "    set -l tmpline --query-opt-env-conf-completion --completion-enriched --completion-index $cn",
[opt-env-conf-test] -          "    for arg in $cl",
[opt-env-conf-test] -          "      set tmpline $tmpline --completion-word $arg",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "    for opt in (" ++ fromAbsFile progPath ++ " $tmpline)",
[opt-env-conf-test] -          "      set -l val (string split \\t -- $opt)[1]",
[opt-env-conf-test] -          "      if test -d $val",
[opt-env-conf-test] -          "        echo -E \"$val/\"",
[opt-env-conf-test] -          "      else",
[opt-env-conf-test] -          "        echo -E \"$val\"",
[opt-env-conf-test] -          "      end",
[opt-env-conf-test] -          "    end",
[opt-env-conf-test] -          "end",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete --no-files --command " ++ fromAbsFile progPath ++ " --arguments '(" ++ functionName ++ ")'"
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  -- This should be a name that a normal user would never want to define themselves.
[opt-env-conf-test]  progNameToFunctionName :: String -> String
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:43:9-10
[opt-env-conf-test] @@ -40,22 +40,21 @@
[opt-env-conf-test]  bashCompletionScript progPath progname =
[opt-env-conf-test]    let functionName = progNameToFunctionName progname
[opt-env-conf-test]     in unlines
[opt-env-conf-test] -        [ functionName ++ "()",
[opt-env-conf-test] -          "{",
[opt-env-conf-test] -          "    local CMDLINE",
[opt-env-conf-test] -          "    local IFS=$'\\n'",
[opt-env-conf-test] -          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf-test] -          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf-test] -          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf-test] -          "    done",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf-test] -          "}",
[opt-env-conf-test] -          "",
[opt-env-conf-test] -          "complete -o filenames -F " ++ functionName ++ " " ++ progname
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ functionName ++ "()",
[opt-env-conf-test] +          "{",
[opt-env-conf-test] +          "    local CMDLINE",
[opt-env-conf-test] +          "    local IFS=$'\\n'",
[opt-env-conf-test] +          "    CMDLINE=(--query-opt-env-conf-completion)",
[opt-env-conf-test] +          "    CMDLINE+=(--completion-index $COMP_CWORD)",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "    for arg in ${COMP_WORDS[@]}; do",
[opt-env-conf-test] +          "        CMDLINE=(${CMDLINE[@]} --completion-word $arg)",
[opt-env-conf-test] +          "    done",
[opt-env-conf-test] +          "",
[opt-env-conf-test] +          "    COMPREPLY=( $(" ++ fromAbsFile progPath ++ " \"${CMDLINE[@]}\") )",
[opt-env-conf-test] +          "}",
[opt-env-conf-test] +          ""
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  generateZshCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateZshCompletionScript progPath progname = putStrLn $ zshCompletionScript progPath progname
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf-test] @@ -64,46 +64,46 @@
[opt-env-conf-test]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf-test]  zshCompletionScript progPath progname =
[opt-env-conf-test]    unlines
[opt-env-conf-test] -    [ "#compdef " ++ progname,
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "local request",
[opt-env-conf-test] -      "local completions",
[opt-env-conf-test] -      "local word",
[opt-env-conf-test] -      "local index=$((CURRENT - 1))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf-test] -      "for arg in ${words[@]}; do",
[opt-env-conf-test] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf-test] -      "done",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "for word in $completions; do",
[opt-env-conf-test] -      "  local -a parts",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  # Split the line at a tab if there is one.",
[opt-env-conf-test] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf-test] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf-test] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf-test] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf-test] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf-test] -      "     else",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf-test] -      "     fi",
[opt-env-conf-test] -      "  else",
[opt-env-conf-test] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf-test] -      "    else",
[opt-env-conf-test] -      "      compadd -f -- $parts[1]",
[opt-env-conf-test] -      "    fi",
[opt-env-conf-test] -      "  fi",
[opt-env-conf-test] -      "done"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ "#compdef " ++ progname,
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "local request",
[opt-env-conf-test] +      "local completions",
[opt-env-conf-test] +      "local word",
[opt-env-conf-test] +      "local index=$((CURRENT - 1))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf-test] +      "for arg in ${words[@]}; do",
[opt-env-conf-test] +      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf-test] +      "done",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "for word in $completions; do",
[opt-env-conf-test] +      "  local -a parts",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "  # Split the line at a tab if there is one.",
[opt-env-conf-test] +      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf-test] +      "",
[opt-env-conf-test] +      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf-test] +      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf-test] +      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf-test] +      "       compadd -d desc -- $parts[1]",
[opt-env-conf-test] +      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] +      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf-test] +      "     else",
[opt-env-conf-test] +      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] +      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf-test] +      "     fi",
[opt-env-conf-test] +      "  else",
[opt-env-conf-test] +      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] +      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf-test] +      "    else",
[opt-env-conf-test] +      "      compadd -f -- $parts[1]",
[opt-env-conf-test] +      "    fi",
[opt-env-conf-test] +      "  fi",
[opt-env-conf-test] +      "done"
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completion.hs:67:5-6
[opt-env-conf-test] @@ -64,46 +64,7 @@
[opt-env-conf-test]  zshCompletionScript :: Path Abs File -> String -> String
[opt-env-conf-test]  zshCompletionScript progPath progname =
[opt-env-conf-test]    unlines
[opt-env-conf-test] -    [ "#compdef " ++ progname,
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "local request",
[opt-env-conf-test] -      "local completions",
[opt-env-conf-test] -      "local word",
[opt-env-conf-test] -      "local index=$((CURRENT - 1))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "request=(--query-opt-env-conf-completion --completion-enriched --completion-index $index)",
[opt-env-conf-test] -      "for arg in ${words[@]}; do",
[opt-env-conf-test] -      "  request=(${request[@]} --completion-word $arg)",
[opt-env-conf-test] -      "done",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "IFS=$'\\n' completions=($( " ++ fromAbsFile progPath ++ " \"${request[@]}\" ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "for word in $completions; do",
[opt-env-conf-test] -      "  local -a parts",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  # Split the line at a tab if there is one.",
[opt-env-conf-test] -      "  IFS=$'\\t' parts=($( echo $word ))",
[opt-env-conf-test] -      "",
[opt-env-conf-test] -      "  if [[ -n $parts[2] ]]; then",
[opt-env-conf-test] -      "     if [[ $word[1] == \"-\" ]]; then",
[opt-env-conf-test] -      "       local desc=(\"$parts[1] ($parts[2])\")",
[opt-env-conf-test] -      "       compadd -d desc -- $parts[1]",
[opt-env-conf-test] -      "     elif [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -S '' -d desc -- $parts[1]",
[opt-env-conf-test] -      "     else",
[opt-env-conf-test] -      "       local desc=($(print -f  \"%-019s -- %s\" $parts[1] $parts[2]))",
[opt-env-conf-test] -      "       compadd -f -l -d desc -- $parts[1]",
[opt-env-conf-test] -      "     fi",
[opt-env-conf-test] -      "  else",
[opt-env-conf-test] -      "    if [[ $parts[3] == 'N' ]]; then",
[opt-env-conf-test] -      "      compadd -f -S '' -- $parts[1]",
[opt-env-conf-test] -      "    else",
[opt-env-conf-test] -      "      compadd -f -- $parts[1]",
[opt-env-conf-test] -      "    fi",
[opt-env-conf-test] -      "  fi",
[opt-env-conf-test] -      "done"
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  generateFishCompletionScript :: Path Abs File -> String -> IO ()
[opt-env-conf-test]  generateFishCompletionScript progPath progname = putStrLn $ fishCompletionScript progPath progname
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf-test] @@ -269,9 +269,9 @@
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test]  applyComponent d ".." = parent d
[opt-env-conf-test] -applyComponent d c = case parseRelDir c of
[opt-env-conf-test] -  Nothing -> d
[opt-env-conf-test] -  Just rd -> d </> rd
[opt-env-conf-test] +applyComponent d c = case parseRelDir c of
[opt-env-conf-test] +  Nothing -> d
[opt-env-conf-test] +  Just rd -> d </> rd
[opt-env-conf-test]  
[opt-env-conf-test]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf-test]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:272:22-22
[opt-env-conf-test] @@ -269,9 +269,9 @@
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test]  applyComponent d ".." = parent d
[opt-env-conf-test] -applyComponent d c = case parseRelDir c of
[opt-env-conf-test] -  Nothing -> d
[opt-env-conf-test] -  Just rd -> d </> rd
[opt-env-conf-test] +applyComponent d c = case parseRelDir c of
[opt-env-conf-test] +  Nothing -> d
[opt-env-conf-test] +  Just rd -> d </> rd
[opt-env-conf-test]  
[opt-env-conf-test]  filterPrefix :: String -> [CompletionResult] -> [CompletionResult]
[opt-env-conf-test]  filterPrefix s = filter ((s `isPrefixOf`) . completionResultValue)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not (True)]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:27-35
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not (not (null seg))]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not True]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | True]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:266:15-37
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not (null seg)]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:22-36
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not (not (null seg))]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not (True)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:34-42
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not True] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:33-43
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not not ((null seg))] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not (not (null seg))] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:267:22-44
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:266:26-36
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        [] -> [seg | not not ((null seg))]
[opt-env-conf-test]          _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf-test] @@ -262,9 +262,9 @@
[opt-env-conf-test]  splitOnSlash [] = []
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test] -   in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +   in case rest of
[opt-env-conf-test] +        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:265:7-66
[opt-env-conf-test] @@ -262,9 +262,9 @@
[opt-env-conf-test]  splitOnSlash [] = []
[opt-env-conf-test]  splitOnSlash s =
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test] -   in case rest of
[opt-env-conf-test] -        [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +   in case rest of
[opt-env-conf-test] +        [] -> [seg | not (null seg)]
[opt-env-conf-test] +        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, True] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completer.hs:244:15-16
[opt-env-conf-test] @@ -241,7 +241,7 @@
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] -        [] -> 0
[opt-env-conf-test] +        [] -> 1
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Completer.hs:243:28-76
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:243:66-75
[opt-env-conf-test] @@ -240,7 +240,7 @@
[opt-env-conf-test]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, not (c == "..")] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf-test] @@ -240,9 +240,9 @@
[opt-env-conf-test]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] -        [] -> 0
[opt-env-conf-test] -        ixs -> maximum ixs
[opt-env-conf-test] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] +        [] -> 0
[opt-env-conf-test] +        ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Completer.hs:246:27-28
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test] -   in if lastDotDotIdx == 0
[opt-env-conf-test] +   in if lastDotDotIdx == 1
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test] -   in if lastDotDotIdx == 0
[opt-env-conf-test] +   in if False
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test] -   in if lastDotDotIdx == 0
[opt-env-conf-test] +   in if True
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | True, not (null remainderComponents) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:246:10-28
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test] -   in if lastDotDotIdx == 0
[opt-env-conf-test] +   in if not (lastDotDotIdx == 0)
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test]            let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not (True) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:215:16-20
[opt-env-conf-test] @@ -212,7 +212,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test]  hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] +  ('.' : _) -> False
[opt-env-conf-test]    _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:54-78
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not (not (null remainderComponents)) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not not ((null remainderComponents)) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:216:8-13
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test]  hiddenRel p = case toFilePath p of
[opt-env-conf-test]    ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +  _ -> True
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:49-79
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, True = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf-test] @@ -211,9 +211,7 @@
[opt-env-conf-test]      }
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test] -hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +hiddenRel p = True
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf-test] @@ -211,9 +211,7 @@
[opt-env-conf-test]      }
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test] -hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +hiddenRel p = False
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:243:23-27
[opt-env-conf-test] @@ -240,9 +240,9 @@
[opt-env-conf-test]    let (curDirPrefix, afterCurDir) = stripCurDir fp'
[opt-env-conf-test]        components = splitOnSlash afterCurDir
[opt-env-conf-test]        -- Find the index after the last "../" component
[opt-env-conf-test] -      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] -        [] -> 0
[opt-env-conf-test] -        ixs -> maximum ixs
[opt-env-conf-test] +      lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test] +        [] -> 0
[opt-env-conf-test] +        ixs -> maximum ixs
[opt-env-conf-test]     in if lastDotDotIdx == 0
[opt-env-conf-test]          then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test]          else
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:254:53-79
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not True = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:246:7-43
[opt-env-conf-test] @@ -243,19 +243,19 @@
[opt-env-conf-test]        lastDotDotIdx = case [i | (i, c) <- zip [1 ..] components, c == ".."] of
[opt-env-conf-test]          [] -> 0
[opt-env-conf-test]          ixs -> maximum ixs
[opt-env-conf-test] -   in if lastDotDotIdx == 0
[opt-env-conf-test] -        then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test] -        else
[opt-env-conf-test] -          let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] -              remainderComponents = drop lastDotDotIdx components
[opt-env-conf-test] -              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test] -              -- Preserve trailing slash from the original input
[opt-env-conf-test] -              trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] -                | otherwise = ""
[opt-env-conf-test] -              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test] -              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] -           in (prefix, remainder, baseDir)
[opt-env-conf-test] +   in if lastDotDotIdx == 0
[opt-env-conf-test] +        then (curDirPrefix, afterCurDir, here)
[opt-env-conf-test] +        else
[opt-env-conf-test] +          let prefixComponents = take lastDotDotIdx components
[opt-env-conf-test] +              remainderComponents = drop lastDotDotIdx components
[opt-env-conf-test] +              prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test] +              -- Preserve trailing slash from the original input
[opt-env-conf-test] +              trailingSlash
[opt-env-conf-test] +                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | otherwise = ""
[opt-env-conf-test] +              remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test] +              baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] +           in (prefix, remainder, baseDir)
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Split a filepath on @\/@ separators, dropping empty segments.
[opt-env-conf-test]  splitOnSlash :: FilePath -> [String]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:267:29-43
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]    let (seg, rest) = break (== '/') s
[opt-env-conf-test]     in case rest of
[opt-env-conf-test]          [] -> [seg | not (null seg)]
[opt-env-conf-test] -        _ : rest' -> [seg | not (null seg)] <> splitOnSlash rest'
[opt-env-conf-test] +        _ : rest' -> [seg | True] <> splitOnSlash rest'
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Apply a single path component to an absolute directory.
[opt-env-conf-test]  applyComponent :: Path Abs Dir -> String -> Path Abs Dir
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:254:19-47
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]                prefix = curDirPrefix <> concatMap (<> "/") prefixComponents
[opt-env-conf-test]                -- Preserve trailing slash from the original input
[opt-env-conf-test]                trailingSlash
[opt-env-conf-test] -                | "/" `isSuffixOf` afterCurDir, not (null remainderComponents) = "/"
[opt-env-conf-test] +                | not ("/" `isSuffixOf` afterCurDir), not (null remainderComponents) = "/"
[opt-env-conf-test]                  | otherwise = ""
[opt-env-conf-test]                remainder = intercalate "/" remainderComponents <> trailingSlash
[opt-env-conf-test]                baseDir = foldl' applyComponent here prefixComponents
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf-test] @@ -211,9 +211,9 @@
[opt-env-conf-test]      }
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test] -hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +hiddenRel p = not (case toFilePath p of
[opt-env-conf-test] +  ('.' : _) -> True
[opt-env-conf-test] +  _ -> False)
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf-test] @@ -211,9 +211,9 @@
[opt-env-conf-test]      }
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test] -hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +hiddenRel p = case toFilePath p of
[opt-env-conf-test] +  ('.' : _) -> True
[opt-env-conf-test] +  _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:214:15-13
[opt-env-conf-test] @@ -211,9 +211,9 @@
[opt-env-conf-test]      }
[opt-env-conf-test]  
[opt-env-conf-test]  hiddenRel :: Path Rel f -> Bool
[opt-env-conf-test] -hiddenRel p = case toFilePath p of
[opt-env-conf-test] -  ('.' : _) -> True
[opt-env-conf-test] -  _ -> False
[opt-env-conf-test] +hiddenRel p = case toFilePath p of
[opt-env-conf-test] +  ('.' : _) -> True
[opt-env-conf-test] +  _ -> False
[opt-env-conf-test]  
[opt-env-conf-test]  stripCurDir :: FilePath -> (FilePath, FilePath)
[opt-env-conf-test]  stripCurDir = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf-test] @@ -155,11 +155,11 @@
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test]        Just (Abs ad) -> do
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf-test] @@ -155,11 +155,11 @@
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test]        Just (Abs ad) -> do
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf-test] @@ -154,19 +154,19 @@
[opt-env-conf-test]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf-test] @@ -154,19 +154,19 @@
[opt-env-conf-test]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf-test] @@ -154,19 +154,19 @@
[opt-env-conf-test]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, _) <- listDirRel baseDir
[opt-env-conf-test]              pure (map fromRelDir ds)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, _) <- listDirRel baseDir
[opt-env-conf-test]              pure (map fromRelDir ds)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if not (fp == ".")
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, _) <- listDirRel baseDir
[opt-env-conf-test]              pure (map fromRelDir ds)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:175:28-91
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:186:32-85
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:179:9-66
[opt-env-conf-test] @@ -176,16 +176,16 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -            pure (map fromRelDir ds)
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            let dir = parent rf
[opt-env-conf-test] -            let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +            pure (map fromRelDir ds)
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            let dir = parent rf
[opt-env-conf-test] +            let ad = baseDir </> dir
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf-test] @@ -168,24 +168,24 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> pure []
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] -      Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -            pure (map fromRelDir ds)
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            let dir = parent rf
[opt-env-conf-test] -            let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> pure []
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +      Just (Rel rf) ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +            pure (map fromRelDir ds)
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            let dir = parent rf
[opt-env-conf-test] +            let ad = baseDir </> dir
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:175:31-53
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if not (hiddenRel (dirname af)) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf-test] @@ -168,24 +168,24 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> pure []
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] -      Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -            pure (map fromRelDir ds)
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            let dir = parent rf
[opt-env-conf-test] -            let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> pure []
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +      Just (Rel rf) ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +            pure (map fromRelDir ds)
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            let dir = parent rf
[opt-env-conf-test] +            let ad = baseDir </> dir
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf-test] @@ -168,24 +168,24 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> pure []
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] -      Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -            pure (map fromRelDir ds)
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            let dir = parent rf
[opt-env-conf-test] -            let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> pure []
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +      Just (Rel rf) ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +            pure (map fromRelDir ds)
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            let dir = parent rf
[opt-env-conf-test] +            let ad = baseDir </> dir
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf-test] @@ -189,9 +189,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] -        [ dirsFromPartialListing,
[opt-env-conf-test] -          dirsFromParentListing
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]    where
[opt-env-conf-test]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf-test]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:192:9-10
[opt-env-conf-test] @@ -189,9 +189,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] -        [ dirsFromPartialListing,
[opt-env-conf-test] -          dirsFromParentListing
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ dirsFromPartialListing,
[opt-env-conf-test] +          dirsFromParentListing
[opt-env-conf-test] +        ]
[opt-env-conf-test]    where
[opt-env-conf-test]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf-test]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf-test] @@ -71,14 +71,14 @@
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -          pure
[opt-env-conf-test] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] -            )
[opt-env-conf-test] -        _ -> pure ([], [])
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +          pure
[opt-env-conf-test] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] +            )
[opt-env-conf-test] +        _ -> pure ([], [])
[opt-env-conf-test]        Just (Abs ad) -> do
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:74:18-27
[opt-env-conf-test] @@ -71,14 +71,14 @@
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test]      (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -          pure
[opt-env-conf-test] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] -            )
[opt-env-conf-test] -        _ -> pure ([], [])
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +          pure
[opt-env-conf-test] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] +            )
[opt-env-conf-test] +        _ -> pure ([], [])
[opt-env-conf-test]        Just (Abs ad) -> do
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf-test] @@ -70,28 +70,28 @@
[opt-env-conf-test]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -          pure
[opt-env-conf-test] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] -            )
[opt-env-conf-test] -        _ -> pure ([], [])
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +          pure
[opt-env-conf-test] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] +            )
[opt-env-conf-test] +        _ -> pure ([], [])
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf-test] @@ -70,28 +70,28 @@
[opt-env-conf-test]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -          pure
[opt-env-conf-test] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] -            )
[opt-env-conf-test] -        _ -> pure ([], [])
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +          pure
[opt-env-conf-test] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] +            )
[opt-env-conf-test] +        _ -> pure ([], [])
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:73:56-12
[opt-env-conf-test] @@ -70,28 +70,28 @@
[opt-env-conf-test]  filePathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -          pure
[opt-env-conf-test] -            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] -            )
[opt-env-conf-test] -        _ -> pure ([], [])
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] -            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromParentListing, filesFromParentListing) <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +          pure
[opt-env-conf-test] +            ( map fromRelDir $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +              map fromRelFile $ filter (not . hiddenRel) fs
[opt-env-conf-test] +            )
[opt-env-conf-test] +        _ -> pure ([], [])
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromAbsFile . (ad </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds,
[opt-env-conf-test] +            map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf-test] @@ -95,7 +95,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, fs) <- listDirRel baseDir
[opt-env-conf-test]              pure
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf-test] @@ -95,7 +95,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, fs) <- listDirRel baseDir
[opt-env-conf-test]              pure
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:98:12-21
[opt-env-conf-test] @@ -95,7 +95,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if not (fp == ".")
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, fs) <- listDirRel baseDir
[opt-env-conf-test]              pure
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:98:9-29
[opt-env-conf-test] @@ -95,14 +95,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]      (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test]        Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -            pure
[opt-env-conf-test] -              ( map fromRelDir ds,
[opt-env-conf-test] -                map fromRelFile fs
[opt-env-conf-test] -              )
[opt-env-conf-test] -          else pure ([], [])
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +            pure
[opt-env-conf-test] +              ( map fromRelDir ds,
[opt-env-conf-test] +                map fromRelFile fs
[opt-env-conf-test] +              )
[opt-env-conf-test] +          else pure ([], [])
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test]          let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf-test] @@ -105,7 +105,7 @@
[opt-env-conf-test]            else pure ([], [])
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving dir
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf-test] @@ -105,7 +105,7 @@
[opt-env-conf-test]            else pure ([], [])
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving dir
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:108:31-54
[opt-env-conf-test] @@ -105,7 +105,7 @@
[opt-env-conf-test]            else pure ([], [])
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if not (hiddenRel (filename af)) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving dir
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:117:28-81
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf-test] @@ -93,33 +93,33 @@
[opt-env-conf-test]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test]            )
[opt-env-conf-test]  
[opt-env-conf-test] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] -      Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -            pure
[opt-env-conf-test] -              ( map fromRelDir ds,
[opt-env-conf-test] -                map fromRelFile fs
[opt-env-conf-test] -              )
[opt-env-conf-test] -          else pure ([], [])
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rf) -> do
[opt-env-conf-test] -        let dir = parent rf
[opt-env-conf-test] -        let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] +      Nothing ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +            pure
[opt-env-conf-test] +              ( map fromRelDir ds,
[opt-env-conf-test] +                map fromRelFile fs
[opt-env-conf-test] +              )
[opt-env-conf-test] +          else pure ([], [])
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rf) -> do
[opt-env-conf-test] +        let dir = parent rf
[opt-env-conf-test] +        let ad = baseDir </> dir
[opt-env-conf-test] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf-test] @@ -93,33 +93,33 @@
[opt-env-conf-test]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test]            )
[opt-env-conf-test]  
[opt-env-conf-test] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] -      Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -            pure
[opt-env-conf-test] -              ( map fromRelDir ds,
[opt-env-conf-test] -                map fromRelFile fs
[opt-env-conf-test] -              )
[opt-env-conf-test] -          else pure ([], [])
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rf) -> do
[opt-env-conf-test] -        let dir = parent rf
[opt-env-conf-test] -        let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] +      Nothing ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +            pure
[opt-env-conf-test] +              ( map fromRelDir ds,
[opt-env-conf-test] +                map fromRelFile fs
[opt-env-conf-test] +              )
[opt-env-conf-test] +          else pure ([], [])
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rf) -> do
[opt-env-conf-test] +        let dir = parent rf
[opt-env-conf-test] +        let ad = baseDir </> dir
[opt-env-conf-test] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Completer.hs:108:28-92
[opt-env-conf-test] @@ -105,7 +105,7 @@
[opt-env-conf-test]            else pure ([], [])
[opt-env-conf-test]        Just (Abs af) -> do
[opt-env-conf-test]          let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving dir
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Completer.hs:96:58-12
[opt-env-conf-test] @@ -93,33 +93,33 @@
[opt-env-conf-test]              map (fromRelFile . (rd </>)) $ filter (not . hiddenRel) fs
[opt-env-conf-test]            )
[opt-env-conf-test]  
[opt-env-conf-test] -    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] -      Nothing ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] -            pure
[opt-env-conf-test] -              ( map fromRelDir ds,
[opt-env-conf-test] -                map fromRelFile fs
[opt-env-conf-test] -              )
[opt-env-conf-test] -          else pure ([], [])
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] -      Just (Rel rf) -> do
[opt-env-conf-test] -        let dir = parent rf
[opt-env-conf-test] -        let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] -        pure
[opt-env-conf-test] -          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] -            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] -          )
[opt-env-conf-test] +    (dirsFromPartialListing, filesFromPartialListing) <- case parseSomeFile fp of
[opt-env-conf-test] +      Nothing ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, fs) <- listDirRel baseDir
[opt-env-conf-test] +            pure
[opt-env-conf-test] +              ( map fromRelDir ds,
[opt-env-conf-test] +                map fromRelFile fs
[opt-env-conf-test] +              )
[opt-env-conf-test] +          else pure ([], [])
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (filename af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving dir
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromAbsDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromAbsFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test] +      Just (Rel rf) -> do
[opt-env-conf-test] +        let dir = parent rf
[opt-env-conf-test] +        let ad = baseDir </> dir
[opt-env-conf-test] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, fs) <- listDirForgiving ad
[opt-env-conf-test] +        pure
[opt-env-conf-test] +          ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] +            map (fromRelFile . (dir </>)) $ filterHidden fs
[opt-env-conf-test] +          )
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf-test] @@ -123,11 +123,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] -        [ map fileResult filesFromPartialListing,
[opt-env-conf-test] -          map fileResult filesFromParentListing,
[opt-env-conf-test] -          map dirResult dirsFromPartialListing,
[opt-env-conf-test] -          map dirResult dirsFromParentListing
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]    where
[opt-env-conf-test]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf-test]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf-test] @@ -123,11 +123,11 @@
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] -        [ map fileResult filesFromPartialListing,
[opt-env-conf-test] -          map fileResult filesFromParentListing,
[opt-env-conf-test] -          map dirResult dirsFromPartialListing,
[opt-env-conf-test] -          map dirResult dirsFromParentListing
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ map fileResult filesFromPartialListing,
[opt-env-conf-test] +          map fileResult filesFromParentListing,
[opt-env-conf-test] +          map dirResult dirsFromPartialListing,
[opt-env-conf-test] +          map dirResult dirsFromParentListing
[opt-env-conf-test] +        ]
[opt-env-conf-test]    where
[opt-env-conf-test]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf-test]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Completer.hs:126:9-10
[opt-env-conf-test] @@ -123,11 +123,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] -        [ map fileResult filesFromPartialListing,
[opt-env-conf-test] -          map fileResult filesFromParentListing,
[opt-env-conf-test] -          map dirResult dirsFromPartialListing,
[opt-env-conf-test] -          map dirResult dirsFromParentListing
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ map fileResult filesFromPartialListing,
[opt-env-conf-test] +          map fileResult filesFromParentListing,
[opt-env-conf-test] +          map dirResult dirsFromPartialListing
[opt-env-conf-test] +]
[opt-env-conf-test]    where
[opt-env-conf-test]      addPrefix :: String -> CompletionResult -> CompletionResult
[opt-env-conf-test]      addPrefix pfx cr = cr {completionResultValue = pfx <> completionResultValue cr}
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    pure $ filter matchesExtension results
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] +      | not ("/" `isSuffixOf` completionResultValue cr) = True
[opt-env-conf-test]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:144:9-50
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    pure $ filter matchesExtension results
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] +      | True = True
[opt-env-conf-test]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf-test] @@ -142,7 +142,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test] +      | otherwise = True
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test]  directoryPath = Completer $ \fp' -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf-test] @@ -142,7 +142,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test] +      | otherwise = False
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test]  directoryPath = Completer $ \fp' -> do
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completer.hs:145:21-69
[opt-env-conf-test] @@ -142,7 +142,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test]        | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] -      | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test] +      | otherwise = not (any (`isSuffixOf` completionResultValue cr) exts)
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test]  directoryPath = Completer $ \fp' -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf-test] @@ -1207,7 +1207,7 @@
[opt-env-conf-test]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf-test]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf-test]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf-test] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf-test] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc True caps f <$> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf-test]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Completer.hs:144:53-57
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    pure $ filter matchesExtension results
[opt-env-conf-test]    where
[opt-env-conf-test]      matchesExtension cr
[opt-env-conf-test] -      | "/" `isSuffixOf` completionResultValue cr = True
[opt-env-conf-test] +      | "/" `isSuffixOf` completionResultValue cr = False
[opt-env-conf-test]        | otherwise = any (`isSuffixOf` completionResultValue cr) exts
[opt-env-conf-test]  
[opt-env-conf-test]  directoryPath :: Completer
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf-test]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf-test]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf-test] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf-test] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing False caps f (go p)
[opt-env-conf-test]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf-test]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf-test] @@ -1207,7 +1207,7 @@
[opt-env-conf-test]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf-test]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf-test]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf-test] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf-test] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc False caps f <$> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf-test]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf-test]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf-test]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf-test] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf-test] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing True caps f (go p)
[opt-env-conf-test]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf-test]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Completion.hs:340:20-34
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            fmap combineOptions $ forM possibilities $ \(mArg, rest) -> do
[opt-env-conf-test]              case mArg of
[opt-env-conf-test]                Nothing -> do
[opt-env-conf-test] -                if argsAtEnd rest
[opt-env-conf-test] +                if not (argsAtEnd rest)
[opt-env-conf-test]                    then do
[opt-env-conf-test]                      let arg = fromMaybe "" mCursorArg
[opt-env-conf-test]                      let matchingCommands = filter ((arg `isPrefixOf`) . commandArg) cs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf-test] @@ -700,9 +700,9 @@
[opt-env-conf-test]        [] -> (Nothing, [])
[opt-env-conf-test]        (b : bs) ->
[opt-env-conf-test]          let (mDefault, cs) = go bs
[opt-env-conf-test] -         in case b of
[opt-env-conf-test] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf-test] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf-test] +         in case b of
[opt-env-conf-test] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf-test] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf-test] @@ -671,9 +671,9 @@
[opt-env-conf-test]  checkMapMaybeForgivable func p =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      checkMapEitherForgivable
[opt-env-conf-test] -      ( \a -> case func a of
[opt-env-conf-test] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf-test] -          Just b -> Right b
[opt-env-conf-test] +      ( \a -> case func a of
[opt-env-conf-test] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf-test] +          Just b -> Right b
[opt-env-conf-test]        )
[opt-env-conf-test]        p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:686:41-45
[opt-env-conf-test] @@ -683,7 +683,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Like 'checkMapIO', but allow trying the other side of any alternative if the result is Nothing.
[opt-env-conf-test]  checkMapIOForgivable :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf-test] -checkMapIOForgivable = ParserCheck mLoc True Set.empty
[opt-env-conf-test] +checkMapIOForgivable = ParserCheck mLoc False Set.empty
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf-test] @@ -660,7 +660,7 @@
[opt-env-conf-test]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf-test]  checkWithRequiredCapability capName = \case
[opt-env-conf-test]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf-test] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf-test] +    ParserCheck mLoc' False (Set.insert cap caps) f p
[opt-env-conf-test]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf-test]    where
[opt-env-conf-test]      cap = Capability (T.pack capName)
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:618:31-36
[opt-env-conf-test] @@ -615,7 +615,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Check a 'Parser' after the fact, allowing IO.
[opt-env-conf-test]  checkMapIO :: (HasCallStack) => (a -> IO (Either String b)) -> Parser a -> Parser b
[opt-env-conf-test] -checkMapIO = ParserCheck mLoc False Set.empty
[opt-env-conf-test] +checkMapIO = ParserCheck mLoc True Set.empty
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf-test] @@ -599,9 +599,9 @@
[opt-env-conf-test]  checkMapMaybe func p =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      checkMapEither
[opt-env-conf-test] -      ( \a -> case func a of
[opt-env-conf-test] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] -          Just b -> Right b
[opt-env-conf-test] +      ( \a -> case func a of
[opt-env-conf-test] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] +          Just b -> Right b
[opt-env-conf-test]        )
[opt-env-conf-test]        p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1173:64-74
[opt-env-conf-test] @@ -1170,7 +1170,7 @@
[opt-env-conf-test]        ParserMany _ p -> ParserMany Nothing (go p)
[opt-env-conf-test]        ParserSome _ p -> ParserSome Nothing (go p)
[opt-env-conf-test]        ParserAllOrNothing _ p -> ParserAllOrNothing Nothing (go p)
[opt-env-conf-test] -      ParserCheck _ forgivable caps f p -> ParserCheck Nothing forgivable caps f (go p)
[opt-env-conf-test] +      ParserCheck _ forgivable caps f p -> ParserCheck Nothing not (forgivable) caps f (go p)
[opt-env-conf-test]        ParserCommands _ mDefault cs -> ParserCommands Nothing mDefault $ map commandEraseSrcLocs cs
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> ParserWithConfig Nothing (go p1) (go p2)
[opt-env-conf-test]        ParserSetting _ s -> ParserSetting Nothing s
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:1210:64-74
[opt-env-conf-test] @@ -1207,7 +1207,7 @@
[opt-env-conf-test]        ParserMany mLoc p -> ParserMany mLoc <$> go p
[opt-env-conf-test]        ParserSome mLoc p -> ParserSome mLoc <$> go p
[opt-env-conf-test]        ParserAllOrNothing mLoc p -> ParserAllOrNothing mLoc <$> go p
[opt-env-conf-test] -      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc forgivable caps f <$> go p
[opt-env-conf-test] +      ParserCheck mLoc forgivable caps f p -> ParserCheck mLoc not (forgivable) caps f <$> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault <$> traverse (commandTraverseSetting func) cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 -> ParserWithConfig mLoc <$> go p1 <*> go p2
[opt-env-conf-test]        ParserSetting mLoc s -> ParserSetting mLoc <$> func s
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:703:13-68
[opt-env-conf-test] @@ -700,9 +700,9 @@
[opt-env-conf-test]        [] -> (Nothing, [])
[opt-env-conf-test]        (b : bs) ->
[opt-env-conf-test]          let (mDefault, cs) = go bs
[opt-env-conf-test] -         in case b of
[opt-env-conf-test] -              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf-test] -              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf-test] +         in case b of
[opt-env-conf-test] +              CommandsBuilderCommand c -> (mDefault, c : cs)
[opt-env-conf-test] +              CommandsBuilderDefault d -> (mDefault <|> Just d, cs)
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Declare a single command with a name, documentation and parser
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf-test] @@ -660,7 +660,7 @@
[opt-env-conf-test]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf-test]  checkWithRequiredCapability capName = \case
[opt-env-conf-test]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf-test] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf-test] +    ParserCheck mLoc' not (forgivable) (Set.insert cap caps) f p
[opt-env-conf-test]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf-test]    where
[opt-env-conf-test]      cap = Capability (T.pack capName)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:674:15-28
[opt-env-conf-test] @@ -671,9 +671,9 @@
[opt-env-conf-test]  checkMapMaybeForgivable func p =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      checkMapEitherForgivable
[opt-env-conf-test] -      ( \a -> case func a of
[opt-env-conf-test] -          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf-test] -          Just b -> Right b
[opt-env-conf-test] +      ( \a -> case func a of
[opt-env-conf-test] +          Nothing -> Left "checkMapMaybeForgivable failed without a helpful error message"
[opt-env-conf-test] +          Just b -> Right b
[opt-env-conf-test]        )
[opt-env-conf-test]        p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf-test] @@ -599,9 +599,9 @@
[opt-env-conf-test]  checkMapMaybe func p =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      checkMapEither
[opt-env-conf-test] -      ( \a -> case func a of
[opt-env-conf-test] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] -          Just b -> Right b
[opt-env-conf-test] +      ( \a -> case func a of
[opt-env-conf-test] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] +          Just b -> Right b
[opt-env-conf-test]        )
[opt-env-conf-test]        p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:664:25-30
[opt-env-conf-test] @@ -661,7 +661,7 @@
[opt-env-conf-test]  checkWithRequiredCapability capName = \case
[opt-env-conf-test]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf-test]      ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf-test] -  p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf-test] +  p -> ParserCheck mLoc True (Set.singleton cap) (pure . Right) p
[opt-env-conf-test]    where
[opt-env-conf-test]      cap = Capability (T.pack capName)
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf-test] @@ -1016,13 +1016,7 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ bareOption,
[opt-env-conf-test] -          fileOption,
[opt-env-conf-test] -          bareEnv,
[opt-env-conf-test] -          fileEnv,
[opt-env-conf-test] -          bareConf,
[opt-env-conf-test] -          fileConf
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf-test] @@ -1016,13 +1016,13 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ bareOption,
[opt-env-conf-test] -          fileOption,
[opt-env-conf-test] -          bareEnv,
[opt-env-conf-test] -          fileEnv,
[opt-env-conf-test] -          bareConf,
[opt-env-conf-test] -          fileConf
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ bareOption,
[opt-env-conf-test] +          fileOption,
[opt-env-conf-test] +          bareEnv,
[opt-env-conf-test] +          fileEnv,
[opt-env-conf-test] +          bareConf,
[opt-env-conf-test] +          fileConf
[opt-env-conf-test] +        ]
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1019:9-10
[opt-env-conf-test] @@ -1016,13 +1016,12 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ bareOption,
[opt-env-conf-test] -          fileOption,
[opt-env-conf-test] -          bareEnv,
[opt-env-conf-test] -          fileEnv,
[opt-env-conf-test] -          bareConf,
[opt-env-conf-test] -          fileConf
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ bareOption,
[opt-env-conf-test] +          fileOption,
[opt-env-conf-test] +          bareEnv,
[opt-env-conf-test] +          fileEnv,
[opt-env-conf-test] +          bareConf
[opt-env-conf-test] +]
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:663:23-33
[opt-env-conf-test] @@ -660,7 +660,7 @@
[opt-env-conf-test]  checkWithRequiredCapability :: (HasCallStack) => String -> Parser a -> Parser a
[opt-env-conf-test]  checkWithRequiredCapability capName = \case
[opt-env-conf-test]    ParserCheck mLoc' forgivable caps f p ->
[opt-env-conf-test] -    ParserCheck mLoc' forgivable (Set.insert cap caps) f p
[opt-env-conf-test] +    ParserCheck mLoc' True (Set.insert cap caps) f p
[opt-env-conf-test]    p -> ParserCheck mLoc False (Set.singleton cap) (pure . Right) p
[opt-env-conf-test]    where
[opt-env-conf-test]      cap = Capability (T.pack capName)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf-test] @@ -1027,7 +1027,7 @@
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test]      bareSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf-test] @@ -1027,7 +1027,8 @@
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test]      bareSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf-test] +]
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1030:41-92
[opt-env-conf-test] @@ -1027,7 +1027,7 @@
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      b = mconcat $ bs ++ [reader str]
[opt-env-conf-test]      bareSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "SECRET"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat []
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          -- Require the capability for the entire setting because the secret may be
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test]            T.pack <$> ParserSetting mLoc s
[opt-env-conf-test]      fileSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat []
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf-test] @@ -1035,7 +1035,7 @@
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test]            T.pack <$> ParserSetting mLoc s
[opt-env-conf-test]      fileSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:1038:41-95
[opt-env-conf-test] @@ -1035,7 +1035,8 @@
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test]            T.pack <$> ParserSetting mLoc s
[opt-env-conf-test]      fileSetting p f = do
[opt-env-conf-test] -      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str, metavar "FILE_PATH"]
[opt-env-conf-test] +      let s = completeBuilder $ mconcat [mapMaybeBuilder f b, reader str
[opt-env-conf-test] +]
[opt-env-conf-test]        guard $ p s
[opt-env-conf-test]        pure $
[opt-env-conf-test]          checkWithRequiredCapability readSecretCapability $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf-test] @@ -559,9 +559,9 @@
[opt-env-conf-test]              ParserCheck {} -> p'
[opt-env-conf-test]              ParserCommands {} -> p'
[opt-env-conf-test]              ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf-test] @@ -559,9 +559,9 @@
[opt-env-conf-test]              ParserCheck {} -> p'
[opt-env-conf-test]              ParserCommands {} -> p'
[opt-env-conf-test]              ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf-test] @@ -874,13 +874,7 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ Just parseDummy,
[opt-env-conf-test] -          Just parseDisableSwitch,
[opt-env-conf-test] -          Just parseEnableSwitch,
[opt-env-conf-test] -          parseEnv,
[opt-env-conf-test] -          parseConfigVal,
[opt-env-conf-test] -          parseDefaultVal
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      s = buildSetting builders
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf-test] @@ -874,13 +874,13 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ Just parseDummy,
[opt-env-conf-test] -          Just parseDisableSwitch,
[opt-env-conf-test] -          Just parseEnableSwitch,
[opt-env-conf-test] -          parseEnv,
[opt-env-conf-test] -          parseConfigVal,
[opt-env-conf-test] -          parseDefaultVal
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ Just parseDummy,
[opt-env-conf-test] +          Just parseDisableSwitch,
[opt-env-conf-test] +          Just parseEnableSwitch,
[opt-env-conf-test] +          parseEnv,
[opt-env-conf-test] +          parseConfigVal,
[opt-env-conf-test] +          parseDefaultVal
[opt-env-conf-test] +        ]
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      s = buildSetting builders
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:877:9-10
[opt-env-conf-test] @@ -874,13 +874,12 @@
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      choice $
[opt-env-conf-test]        catMaybes
[opt-env-conf-test] -        [ Just parseDummy,
[opt-env-conf-test] -          Just parseDisableSwitch,
[opt-env-conf-test] -          Just parseEnableSwitch,
[opt-env-conf-test] -          parseEnv,
[opt-env-conf-test] -          parseConfigVal,
[opt-env-conf-test] -          parseDefaultVal
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ Just parseDummy,
[opt-env-conf-test] +          Just parseDisableSwitch,
[opt-env-conf-test] +          Just parseEnableSwitch,
[opt-env-conf-test] +          parseEnv,
[opt-env-conf-test] +          parseConfigVal
[opt-env-conf-test] +]
[opt-env-conf-test]    where
[opt-env-conf-test]      mLoc = snd <$> listToMaybe (getCallStack callStack)
[opt-env-conf-test]      s = buildSetting builders
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf-test]      parseDefaultVal = do
[opt-env-conf-test]        (dv, _) <- settingDefaultValue s
[opt-env-conf-test] -      pure $ pure dv
[opt-env-conf-test] +      pure $ pure not (dv)
[opt-env-conf-test]  
[opt-env-conf-test]      parseEnableSwitch :: Parser Bool
[opt-env-conf-test]      parseEnableSwitch =
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:898:34-39
[opt-env-conf-test] @@ -895,7 +895,7 @@
[opt-env-conf-test]          Setting
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test] -            settingTryArgument = False,
[opt-env-conf-test] +            settingTryArgument = True,
[opt-env-conf-test]              settingSwitchValue = Just True,
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf-test]      parseDefaultVal = do
[opt-env-conf-test]        (dv, _) <- settingDefaultValue s
[opt-env-conf-test] -      pure $ pure dv
[opt-env-conf-test] +      pure $ pure True
[opt-env-conf-test]  
[opt-env-conf-test]      parseEnableSwitch :: Parser Bool
[opt-env-conf-test]      parseEnableSwitch =
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:905:29-33
[opt-env-conf-test] @@ -902,7 +902,7 @@
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test]              settingExamples = [],
[opt-env-conf-test] -            settingHidden = True,
[opt-env-conf-test] +            settingHidden = False,
[opt-env-conf-test]              settingMetavar = Nothing,
[opt-env-conf-test]              settingHelp = Nothing,
[opt-env-conf-test]              settingCompleter = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:917:34-39
[opt-env-conf-test] @@ -914,7 +914,7 @@
[opt-env-conf-test]          Setting
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test] -            settingTryArgument = False,
[opt-env-conf-test] +            settingTryArgument = True,
[opt-env-conf-test]              settingSwitchValue = Just False,
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:918:39-44
[opt-env-conf-test] @@ -915,7 +915,7 @@
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong falsePrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test] -            settingSwitchValue = Just False,
[opt-env-conf-test] +            settingSwitchValue = Just True,
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:919:32-37
[opt-env-conf-test] @@ -916,7 +916,7 @@
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test]              settingSwitchValue = Just False,
[opt-env-conf-test] -            settingTryOption = False,
[opt-env-conf-test] +            settingTryOption = True,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:900:32-37
[opt-env-conf-test] @@ -897,7 +897,7 @@
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test]              settingSwitchValue = Just True,
[opt-env-conf-test] -            settingTryOption = False,
[opt-env-conf-test] +            settingTryOption = True,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:890:19-21
[opt-env-conf-test] @@ -887,7 +887,7 @@
[opt-env-conf-test]      parseDefaultVal :: Maybe (Parser Bool)
[opt-env-conf-test]      parseDefaultVal = do
[opt-env-conf-test]        (dv, _) <- settingDefaultValue s
[opt-env-conf-test] -      pure $ pure dv
[opt-env-conf-test] +      pure $ pure False
[opt-env-conf-test]  
[opt-env-conf-test]      parseEnableSwitch :: Parser Bool
[opt-env-conf-test]      parseEnableSwitch =
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:941:34-39
[opt-env-conf-test] @@ -938,7 +938,7 @@
[opt-env-conf-test]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf-test]                settingTryArgument = False,
[opt-env-conf-test]                settingSwitchValue = Nothing,
[opt-env-conf-test] -              settingTryOption = False,
[opt-env-conf-test] +              settingTryOption = True,
[opt-env-conf-test]                settingEnvVars = Just ne,
[opt-env-conf-test]                settingConfigVals = Nothing,
[opt-env-conf-test]                settingDefaultValue = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:962:34-39
[opt-env-conf-test] @@ -959,7 +959,7 @@
[opt-env-conf-test]                settingReaders = [],
[opt-env-conf-test]                settingTryArgument = False,
[opt-env-conf-test]                settingSwitchValue = Nothing,
[opt-env-conf-test] -              settingTryOption = False,
[opt-env-conf-test] +              settingTryOption = True,
[opt-env-conf-test]                settingEnvVars = Nothing,
[opt-env-conf-test]                settingConfigVals = Just ne,
[opt-env-conf-test]                settingDefaultValue = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:967:31-36
[opt-env-conf-test] @@ -964,7 +964,7 @@
[opt-env-conf-test]                settingConfigVals = Just ne,
[opt-env-conf-test]                settingDefaultValue = Nothing,
[opt-env-conf-test]                settingExamples = [],
[opt-env-conf-test] -              settingHidden = False,
[opt-env-conf-test] +              settingHidden = True,
[opt-env-conf-test]                settingMetavar = Nothing,
[opt-env-conf-test]                settingHelp = settingHelp s,
[opt-env-conf-test]                settingCompleter = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:939:36-41
[opt-env-conf-test] @@ -936,7 +936,7 @@
[opt-env-conf-test]            Setting
[opt-env-conf-test]              { settingDasheds = [],
[opt-env-conf-test]                settingReaders = (auto :: Reader Bool) : settingReaders s,
[opt-env-conf-test] -              settingTryArgument = False,
[opt-env-conf-test] +              settingTryArgument = True,
[opt-env-conf-test]                settingSwitchValue = Nothing,
[opt-env-conf-test]                settingTryOption = False,
[opt-env-conf-test]                settingEnvVars = Just ne,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:960:36-41
[opt-env-conf-test] @@ -957,7 +957,7 @@
[opt-env-conf-test]            Setting
[opt-env-conf-test]              { settingDasheds = [],
[opt-env-conf-test]                settingReaders = [],
[opt-env-conf-test] -              settingTryArgument = False,
[opt-env-conf-test] +              settingTryArgument = True,
[opt-env-conf-test]                settingSwitchValue = Nothing,
[opt-env-conf-test]                settingTryOption = False,
[opt-env-conf-test]                settingEnvVars = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:980:39-43
[opt-env-conf-test] @@ -977,7 +977,7 @@
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test] -            settingSwitchValue = Just True, -- Unused
[opt-env-conf-test] +            settingSwitchValue = Just False, -- Unused
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:981:32-37
[opt-env-conf-test] @@ -978,7 +978,7 @@
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test]              settingSwitchValue = Just True, -- Unused
[opt-env-conf-test] -            settingTryOption = False,
[opt-env-conf-test] +            settingTryOption = True,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:946:31-36
[opt-env-conf-test] @@ -943,7 +943,7 @@
[opt-env-conf-test]                settingConfigVals = Nothing,
[opt-env-conf-test]                settingDefaultValue = Nothing,
[opt-env-conf-test]                settingExamples = [],
[opt-env-conf-test] -              settingHidden = False,
[opt-env-conf-test] +              settingHidden = True,
[opt-env-conf-test]                settingMetavar = Just "BOOL",
[opt-env-conf-test]                settingHelp = settingHelp s,
[opt-env-conf-test]                settingCompleter = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:924:29-33
[opt-env-conf-test] @@ -921,7 +921,7 @@
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test]              settingExamples = [],
[opt-env-conf-test] -            settingHidden = True,
[opt-env-conf-test] +            settingHidden = False,
[opt-env-conf-test]              settingMetavar = Nothing,
[opt-env-conf-test]              settingHelp = Nothing,
[opt-env-conf-test]              settingCompleter = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:899:39-43
[opt-env-conf-test] @@ -896,7 +896,7 @@
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong truePrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test]              settingTryArgument = False,
[opt-env-conf-test] -            settingSwitchValue = Just True,
[opt-env-conf-test] +            settingSwitchValue = Just False,
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:979:34-39
[opt-env-conf-test] @@ -976,7 +976,7 @@
[opt-env-conf-test]          Setting
[opt-env-conf-test]            { settingDasheds = mapMaybe (prefixDashedLong helpPrefix) (settingDasheds s),
[opt-env-conf-test]              settingReaders = [],
[opt-env-conf-test] -            settingTryArgument = False,
[opt-env-conf-test] +            settingTryArgument = True,
[opt-env-conf-test]              settingSwitchValue = Just True, -- Unused
[opt-env-conf-test]              settingTryOption = False,
[opt-env-conf-test]              settingEnvVars = Nothing,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf-test] @@ -480,10 +480,10 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "FILE_PATH",
[opt-env-conf-test] -               completer filePath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ [ reader str,
[opt-env-conf-test] +               metavar "FILE_PATH",
[opt-env-conf-test] +               completer filePath
[opt-env-conf-test] +             ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A setting for @Path Abs dir@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf-test] @@ -480,10 +480,9 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "FILE_PATH",
[opt-env-conf-test] -               completer filePath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ [ reader str,
[opt-env-conf-test] +               metavar "FILE_PATH"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A setting for @Path Abs dir@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf-test] @@ -826,7 +826,7 @@
[opt-env-conf-test]        long "config-file",
[opt-env-conf-test]        env "CONFIG_FILE",
[opt-env-conf-test]        help "Path to the configuration file",
[opt-env-conf-test] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf-test] @@ -822,12 +822,12 @@
[opt-env-conf-test]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf-test]  configuredConfigFile =
[opt-env-conf-test]    filePathSetting
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long "config-file",
[opt-env-conf-test] -      env "CONFIG_FILE",
[opt-env-conf-test] -      help "Path to the configuration file",
[opt-env-conf-test] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ option,
[opt-env-conf-test] +      long "config-file",
[opt-env-conf-test] +      env "CONFIG_FILE",
[opt-env-conf-test] +      help "Path to the configuration file",
[opt-env-conf-test] +      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:829:41-58
[opt-env-conf-test] @@ -826,7 +826,7 @@
[opt-env-conf-test]        long "config-file",
[opt-env-conf-test]        env "CONFIG_FILE",
[opt-env-conf-test]        help "Path to the configuration file",
[opt-env-conf-test] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] +      completer (filePathWithExtensions [])
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:483:14-15
[opt-env-conf-test] @@ -480,10 +480,7 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "FILE_PATH",
[opt-env-conf-test] -               completer filePath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A setting for @Path Abs dir@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf-test] @@ -497,10 +497,10 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "DIRECTORY_PATH",
[opt-env-conf-test] -               completer directoryPath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ [ reader str,
[opt-env-conf-test] +               metavar "DIRECTORY_PATH",
[opt-env-conf-test] +               completer directoryPath
[opt-env-conf-test] +             ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf-test] @@ -822,12 +822,12 @@
[opt-env-conf-test]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf-test]  configuredConfigFile =
[opt-env-conf-test]    filePathSetting
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long "config-file",
[opt-env-conf-test] -      env "CONFIG_FILE",
[opt-env-conf-test] -      help "Path to the configuration file",
[opt-env-conf-test] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ option,
[opt-env-conf-test] +      long "config-file",
[opt-env-conf-test] +      env "CONFIG_FILE",
[opt-env-conf-test] +      help "Path to the configuration file",
[opt-env-conf-test] +      completer (filePathWithExtensions [".yaml"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:825:5-6
[opt-env-conf-test] @@ -822,12 +822,7 @@
[opt-env-conf-test]  configuredConfigFile :: (HasCallStack) => Parser (Path Abs File)
[opt-env-conf-test]  configuredConfigFile =
[opt-env-conf-test]    filePathSetting
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long "config-file",
[opt-env-conf-test] -      env "CONFIG_FILE",
[opt-env-conf-test] -      help "Path to the configuration file",
[opt-env-conf-test] -      completer (filePathWithExtensions [".yaml", ".yml"])
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Define a setting for a 'Bool' with a given default value.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf-test] @@ -497,10 +497,9 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "DIRECTORY_PATH",
[opt-env-conf-test] -               completer directoryPath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ [ reader str,
[opt-env-conf-test] +               metavar "DIRECTORY_PATH"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf-test] @@ -785,11 +785,11 @@
[opt-env-conf-test]  xdgYamlConfigFile subdir =
[opt-env-conf-test]    mapIO
[opt-env-conf-test]      ( \mXdgDir -> do
[opt-env-conf-test] -        xdgDir <- case mXdgDir of
[opt-env-conf-test] -          Just d -> resolveDir' d
[opt-env-conf-test] -          Nothing -> do
[opt-env-conf-test] -            home <- getHomeDir
[opt-env-conf-test] -            resolveDir home ".config"
[opt-env-conf-test] +        xdgDir <- case mXdgDir of
[opt-env-conf-test] +          Just d -> resolveDir' d
[opt-env-conf-test] +          Nothing -> do
[opt-env-conf-test] +            home <- getHomeDir
[opt-env-conf-test] +            resolveDir home ".config"
[opt-env-conf-test]          configDir <- resolveDir xdgDir subdir
[opt-env-conf-test]          resolveFile configDir "config.yaml"
[opt-env-conf-test]      )
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf-test] @@ -796,12 +796,7 @@
[opt-env-conf-test]      $ optional
[opt-env-conf-test]      $ withFrozenCallStack
[opt-env-conf-test]      $ setting
[opt-env-conf-test] -      [ help "Path to the XDG configuration directory",
[opt-env-conf-test] -        reader str,
[opt-env-conf-test] -        env "XDG_CONFIG_HOME",
[opt-env-conf-test] -        metavar "DIRECTORY",
[opt-env-conf-test] -        hidden
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf-test]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:500:14-15
[opt-env-conf-test] @@ -497,10 +497,7 @@
[opt-env-conf-test]      withFrozenCallStack $
[opt-env-conf-test]        setting $
[opt-env-conf-test]          builders
[opt-env-conf-test] -          ++ [ reader str,
[opt-env-conf-test] -               metavar "DIRECTORY_PATH",
[opt-env-conf-test] -               completer directoryPath
[opt-env-conf-test] -             ]
[opt-env-conf-test] +          ++ []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'setting' with 'option', a 'reader' set to 'str', and the 'metavar' set to @STR@.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf-test] @@ -796,12 +796,12 @@
[opt-env-conf-test]      $ optional
[opt-env-conf-test]      $ withFrozenCallStack
[opt-env-conf-test]      $ setting
[opt-env-conf-test] -      [ help "Path to the XDG configuration directory",
[opt-env-conf-test] -        reader str,
[opt-env-conf-test] -        env "XDG_CONFIG_HOME",
[opt-env-conf-test] -        metavar "DIRECTORY",
[opt-env-conf-test] -        hidden
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ help "Path to the XDG configuration directory",
[opt-env-conf-test] +        reader str,
[opt-env-conf-test] +        env "XDG_CONFIG_HOME",
[opt-env-conf-test] +        metavar "DIRECTORY",
[opt-env-conf-test] +        hidden
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf-test]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Parser.hs:799:7-8
[opt-env-conf-test] @@ -796,12 +796,11 @@
[opt-env-conf-test]      $ optional
[opt-env-conf-test]      $ withFrozenCallStack
[opt-env-conf-test]      $ setting
[opt-env-conf-test] -      [ help "Path to the XDG configuration directory",
[opt-env-conf-test] -        reader str,
[opt-env-conf-test] -        env "XDG_CONFIG_HOME",
[opt-env-conf-test] -        metavar "DIRECTORY",
[opt-env-conf-test] -        hidden
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ help "Path to the XDG configuration directory",
[opt-env-conf-test] +        reader str,
[opt-env-conf-test] +        env "XDG_CONFIG_HOME",
[opt-env-conf-test] +        metavar "DIRECTORY"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Load a config file that is reconfigurable with an option and environment
[opt-env-conf-test]  -- variable but @config.yaml@ in the local working directory by default.
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > 0) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:986:29-34
[opt-env-conf-test] @@ -983,7 +983,7 @@
[opt-env-conf-test]              settingConfigVals = Nothing,
[opt-env-conf-test]              settingDefaultValue = Nothing,
[opt-env-conf-test]              settingExamples = [],
[opt-env-conf-test] -            settingHidden = False,
[opt-env-conf-test] +            settingHidden = True,
[opt-env-conf-test]              settingMetavar = Nothing,
[opt-env-conf-test]              settingHelp = settingHelp s,
[opt-env-conf-test]              settingCompleter = Nothing,
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > 1) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (True) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (False) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (not (d > 10)) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen True $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > -10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen False $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen not ((d > 10)) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf-test] @@ -305,7 +305,7 @@
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go 0 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf-test] @@ -305,7 +305,7 @@
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go 1 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf-test] @@ -307,7 +307,7 @@
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pa
[opt-env-conf-test] +            . go 0 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf-test] @@ -307,7 +307,7 @@
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pa
[opt-env-conf-test] +            . go 1 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:312:24-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:308:18-20
[opt-env-conf-test] @@ -305,7 +305,7 @@
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go -11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf-test] @@ -311,7 +311,7 @@
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] -            . go 11 pe
[opt-env-conf-test] +            . go 0 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf-test] @@ -311,7 +311,7 @@
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] -            . go 11 pe
[opt-env-conf-test] +            . go -11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf-test] @@ -313,7 +313,7 @@
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go 1 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test] -          . showsPrec 11 mLoc
[opt-env-conf-test] +          . showsPrec 0 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf-test] @@ -313,7 +313,7 @@
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go 0 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:310:18-20
[opt-env-conf-test] @@ -307,7 +307,7 @@
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pa
[opt-env-conf-test] +            . go -11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:314:18-20
[opt-env-conf-test] @@ -311,7 +311,7 @@
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test] -            . go 11 pe
[opt-env-conf-test] +            . go 1 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test] -          . showsPrec 11 mLoc
[opt-env-conf-test] +          . showsPrec -11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf-test] @@ -320,7 +320,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go 0 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf-test] @@ -320,7 +320,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go 1 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:312:19-27
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:319:23-25
[opt-env-conf-test] @@ -316,7 +316,7 @@
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test] -          . showsPrec 11 mLoc
[opt-env-conf-test] +          . showsPrec 1 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf-test] @@ -322,7 +322,7 @@
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go 0 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:323:18-20
[opt-env-conf-test] @@ -320,7 +320,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go -11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:312:20-26
[opt-env-conf-test] @@ -309,7 +309,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 pa
[opt-env-conf-test]        ParserSelect pe pf ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:316:18-20
[opt-env-conf-test] @@ -313,7 +313,7 @@
[opt-env-conf-test]            showString "Select "
[opt-env-conf-test]              . go 11 pe
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 pf
[opt-env-conf-test] +            . go -11 pf
[opt-env-conf-test]        ParserEmpty mLoc ->
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf-test] @@ -322,7 +322,7 @@
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go 1 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:325:18-20
[opt-env-conf-test] @@ -322,7 +322,7 @@
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go -11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf-test] @@ -326,7 +326,7 @@
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf-test] @@ -326,7 +326,7 @@
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:329:25-27
[opt-env-conf-test] @@ -326,7 +326,7 @@
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 0 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go -11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf-test] @@ -332,7 +332,7 @@
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:331:18-20
[opt-env-conf-test] @@ -328,7 +328,7 @@
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 1 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf-test] @@ -332,7 +332,7 @@
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:335:25-27
[opt-env-conf-test] @@ -332,7 +332,7 @@
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf-test] @@ -334,7 +334,7 @@
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 1 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf-test] @@ -334,7 +334,7 @@
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go -11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:339:24-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:20-26
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:339:19-27
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf-test] @@ -338,7 +338,7 @@
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf-test] @@ -338,7 +338,7 @@
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 0 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:341:25-27
[opt-env-conf-test] @@ -338,7 +338,7 @@
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go -11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:343:18-20
[opt-env-conf-test] @@ -340,7 +340,7 @@
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 1 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:337:18-20
[opt-env-conf-test] @@ -334,7 +334,7 @@
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 0 p
[opt-env-conf-test]        ParserAllOrNothing mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "AllOrNothing "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf-test] @@ -344,7 +344,7 @@
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf-test] @@ -344,7 +344,7 @@
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:347:25-27
[opt-env-conf-test] @@ -344,7 +344,7 @@
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec 1 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec 0 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec 11 True
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec 11 False
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf-test] @@ -348,7 +348,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 caps
[opt-env-conf-test] +            . showsPrec 0 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:349:28-38
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec 11 not (forgivable)
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf-test] @@ -348,7 +348,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 caps
[opt-env-conf-test] +            . showsPrec 1 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:351:25-27
[opt-env-conf-test] @@ -348,7 +348,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 caps
[opt-env-conf-test] +            . showsPrec -11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf-test] @@ -350,7 +350,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 0 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf-test] @@ -350,7 +350,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go 1 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:353:18-20
[opt-env-conf-test] @@ -350,7 +350,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] -            . go 11 p
[opt-env-conf-test] +            . go -11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:349:25-27
[opt-env-conf-test] @@ -346,7 +346,7 @@
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 forgivable
[opt-env-conf-test] +            . showsPrec -11 forgivable
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 caps
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf-test] @@ -354,7 +354,7 @@
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf-test] @@ -354,7 +354,7 @@
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf-test] @@ -356,7 +356,7 @@
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 mDefault
[opt-env-conf-test] +            . showsPrec 0 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showListWith
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:357:25-27
[opt-env-conf-test] @@ -354,7 +354,7 @@
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showsPrec 11 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf-test] @@ -356,7 +356,7 @@
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 mDefault
[opt-env-conf-test] +            . showsPrec -11 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showListWith
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:359:25-27
[opt-env-conf-test] @@ -356,7 +356,7 @@
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . showsPrec 11 mDefault
[opt-env-conf-test] +            . showsPrec 1 mDefault
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showListWith
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:367:25-27
[opt-env-conf-test] @@ -364,7 +364,7 @@
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf-test] @@ -366,7 +366,7 @@
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go 1 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf-test] @@ -366,7 +366,7 @@
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go -11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf-test] @@ -368,7 +368,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go 0 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf-test] @@ -368,7 +368,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go -11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:371:18-20
[opt-env-conf-test] @@ -368,7 +368,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p2
[opt-env-conf-test] +            . go 1 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:369:18-20
[opt-env-conf-test] @@ -366,7 +366,7 @@
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] -            . go 11 p1
[opt-env-conf-test] +            . go 0 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 0 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showSettingABit p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec -11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showSettingABit p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf-test] @@ -131,7 +131,7 @@
[opt-env-conf-test]  showCommandABit :: Command a -> ShowS
[opt-env-conf-test]  showCommandABit Command {..} =
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test] -    . showsPrec 11 commandArg
[opt-env-conf-test] +    . showsPrec 0 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:375:25-27
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test] -            . showsPrec 11 mLoc
[opt-env-conf-test] +            . showsPrec 1 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . showSettingABit p
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf-test] @@ -131,7 +131,7 @@
[opt-env-conf-test]  showCommandABit :: Command a -> ShowS
[opt-env-conf-test]  showCommandABit Command {..} =
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test] -    . showsPrec 11 commandArg
[opt-env-conf-test] +    . showsPrec 1 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:134:17-19
[opt-env-conf-test] @@ -131,7 +131,7 @@
[opt-env-conf-test]  showCommandABit :: Command a -> ShowS
[opt-env-conf-test]  showCommandABit Command {..} =
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test] -    . showsPrec 11 commandArg
[opt-env-conf-test] +    . showsPrec -11 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test]      . showsPrec 11 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showsPrec 11 commandHelp
[opt-env-conf-test] +    . showsPrec 1 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showParserPrec 11 commandParser
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test]      . showsPrec 11 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showsPrec 11 commandHelp
[opt-env-conf-test] +    . showsPrec -11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showParserPrec 11 commandParser
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf-test] @@ -135,7 +135,7 @@
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showParserPrec 11 commandParser
[opt-env-conf-test] +    . showParserPrec 0 commandParser
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'Parser' structure
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:136:17-19
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]    showString "Command "
[opt-env-conf-test]      . showsPrec 11 commandArg
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showsPrec 11 commandHelp
[opt-env-conf-test] +    . showsPrec 0 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showParserPrec 11 commandParser
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:255:27-32
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]    (<|>) p1 p2 =
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test] -          ParserPure _ -> False
[opt-env-conf-test] +          ParserPure _ -> True
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> False && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf-test] @@ -135,7 +135,7 @@
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showParserPrec 11 commandParser
[opt-env-conf-test] +    . showParserPrec 1 commandParser
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'Parser' structure
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> True && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:297:39-40
[opt-env-conf-test] @@ -294,7 +294,7 @@
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test]  showParserABit :: Parser a -> String
[opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
[opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
[opt-env-conf-test]  
[opt-env-conf-test]  showParserPrec :: Int -> Parser a -> ShowS
[opt-env-conf-test]  showParserPrec = go
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> True
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> False
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> not (isEmpty pf && isEmpty pa)
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> True && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Parser.hs:138:22-24
[opt-env-conf-test] @@ -135,7 +135,7 @@
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showsPrec 11 commandHelp
[opt-env-conf-test]      . showString " "
[opt-env-conf-test] -    . showParserPrec 11 commandParser
[opt-env-conf-test] +    . showParserPrec -11 commandParser
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'Parser' structure
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> False && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-43
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> not (isEmpty pe) && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> isEmpty pe && False
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> isEmpty pe && not (isEmpty pf)
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> True
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:47-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> isEmpty pe && True
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> False
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:257:33-57
[opt-env-conf-test] @@ -254,7 +254,7 @@
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] -          ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] +          ParserSelect pe pf -> not (isEmpty pe && isEmpty pf)
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:258:28-32
[opt-env-conf-test] @@ -255,7 +255,7 @@
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] -          ParserEmpty _ -> True
[opt-env-conf-test] +          ParserEmpty _ -> False
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf-test] @@ -257,7 +257,7 @@
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] -          ParserMany _ p -> isEmpty p
[opt-env-conf-test] +          ParserMany _ p -> True
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:259:28-33
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test] -          ParserAlt _ _ -> False
[opt-env-conf-test] +          ParserAlt _ _ -> True
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && True
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf-test] @@ -257,7 +257,7 @@
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] -          ParserMany _ p -> isEmpty p
[opt-env-conf-test] +          ParserMany _ p -> not (isEmpty p)
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf-test] @@ -258,7 +258,7 @@
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] -          ParserSome _ p -> isEmpty p
[opt-env-conf-test] +          ParserSome _ p -> False
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] +          ParserAllOrNothing _ p -> not (isEmpty p)
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf-test] @@ -260,7 +260,7 @@
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] +          ParserCheck _ _ _ _ p -> True
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf-test] @@ -260,7 +260,7 @@
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] +          ParserCheck _ _ _ _ p -> not (isEmpty p)
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf-test] @@ -261,7 +261,7 @@
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] -          ParserCommands _ _ cs -> null cs
[opt-env-conf-test] +          ParserCommands _ _ cs -> True
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf-test] @@ -260,7 +260,7 @@
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] +          ParserCheck _ _ _ _ p -> False
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf-test] @@ -261,7 +261,7 @@
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] -          ParserCommands _ _ cs -> null cs
[opt-env-conf-test] +          ParserCommands _ _ cs -> not (null cs)
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf-test] @@ -261,7 +261,7 @@
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] -          ParserCommands _ _ cs -> null cs
[opt-env-conf-test] +          ParserCommands _ _ cs -> False
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> False && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> isEmpty pc && True
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> not (isEmpty pc) && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-49
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> True && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> True
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf-test] @@ -257,7 +257,7 @@
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] -          ParserMany _ p -> isEmpty p
[opt-env-conf-test] +          ParserMany _ p -> False
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> isEmpty pc && not (isEmpty ps)
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] +          ParserAllOrNothing _ p -> False
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:266:32-37
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] -          ParserSetting _ _ -> False
[opt-env-conf-test] +          ParserSetting _ _ -> True
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf-test] @@ -258,7 +258,7 @@
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] -          ParserSome _ p -> isEmpty p
[opt-env-conf-test] +          ParserSome _ p -> True
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] +          ParserAllOrNothing _ p -> True
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (not (isEmpty p1), isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:53-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> isEmpty pc && False
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> False
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:788:19-38
[opt-env-conf-test] @@ -785,11 +785,11 @@
[opt-env-conf-test]  xdgYamlConfigFile subdir =
[opt-env-conf-test]    mapIO
[opt-env-conf-test]      ( \mXdgDir -> do
[opt-env-conf-test] -        xdgDir <- case mXdgDir of
[opt-env-conf-test] -          Just d -> resolveDir' d
[opt-env-conf-test] -          Nothing -> do
[opt-env-conf-test] -            home <- getHomeDir
[opt-env-conf-test] -            resolveDir home ".config"
[opt-env-conf-test] +        xdgDir <- case mXdgDir of
[opt-env-conf-test] +          Just d -> resolveDir' d
[opt-env-conf-test] +          Nothing -> do
[opt-env-conf-test] +            home <- getHomeDir
[opt-env-conf-test] +            resolveDir home ".config"
[opt-env-conf-test]          configDir <- resolveDir xdgDir subdir
[opt-env-conf-test]          resolveFile configDir "config.yaml"
[opt-env-conf-test]      )
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (True, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (isEmpty p1, True) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (isEmpty p1, False) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf-test] @@ -269,26 +269,26 @@
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test]            (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test]               in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (isEmpty p1, not (isEmpty p2)) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf-test] @@ -269,26 +269,26 @@
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test]            (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test]               in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf-test] @@ -239,10 +239,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative Parser where
[opt-env-conf-test]    pure = ParserPure
[opt-env-conf-test] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] -    -- Homomorphism law for applicative
[opt-env-conf-test] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] -    _ -> ParserAp p1 p2
[opt-env-conf-test] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] +    -- Homomorphism law for applicative
[opt-env-conf-test] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] +    _ -> ParserAp p1 p2
[opt-env-conf-test]  
[opt-env-conf-test]  instance Selective Parser where
[opt-env-conf-test]    select = ParserSelect
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf-test] @@ -239,10 +239,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative Parser where
[opt-env-conf-test]    pure = ParserPure
[opt-env-conf-test] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] -    -- Homomorphism law for applicative
[opt-env-conf-test] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] -    _ -> ParserAp p1 p2
[opt-env-conf-test] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] +    -- Homomorphism law for applicative
[opt-env-conf-test] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] +    _ -> ParserAp p1 p2
[opt-env-conf-test]  
[opt-env-conf-test]  instance Selective Parser where
[opt-env-conf-test]    select = ParserSelect
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf-test]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf-test]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf-test] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf-test] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc False caps (fmap (fmap f) . g) p
[opt-env-conf-test]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf-test]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf-test]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf-test] @@ -120,5 +120,5 @@
[opt-env-conf-test]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf-test]  
[opt-env-conf-test]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf-test] +bracketise [c] = []
[opt-env-conf-test]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Parser.hs:238:30-34
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf-test]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf-test]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf-test] -    p -> ParserCheck Nothing True Set.empty (pure . Right . f) p
[opt-env-conf-test] +    p -> ParserCheck Nothing False Set.empty (pure . Right . f) p
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative Parser where
[opt-env-conf-test]    pure = ParserPure
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:265:39-63
[opt-env-conf-test] @@ -262,7 +262,7 @@
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] -          ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] +          ParserWithConfig _ pc ps -> not (isEmpty pc && isEmpty ps)
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (False, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf-test]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf-test]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf-test] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf-test] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc True caps (fmap (fmap f) . g) p
[opt-env-conf-test]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf-test]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf-test]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf-test] @@ -120,5 +120,5 @@
[opt-env-conf-test]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf-test]  
[opt-env-conf-test]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf-test] +bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf-test]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Output.hs:112:34-39
[opt-env-conf-test] @@ -109,7 +109,7 @@
[opt-env-conf-test]      cleanPackage pkg =
[opt-env-conf-test]        T.unpack $
[opt-env-conf-test]          T.intercalate "-" $
[opt-env-conf-test] -          takeWhile (not . maybe False (Char.isDigit . fst) . T.uncons) $
[opt-env-conf-test] +          takeWhile (not . maybe True (Char.isDigit . fst) . T.uncons) $
[opt-env-conf-test]              T.splitOn "-" (T.pack pkg)
[opt-env-conf-test]  
[opt-env-conf-test]  indent :: [[Chunk]] -> [[Chunk]]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:123:18-51
[opt-env-conf-test] @@ -120,5 +120,6 @@
[opt-env-conf-test]  parenthesise cs = fore cyan "(" : cs ++ [fore cyan ")"]
[opt-env-conf-test]  
[opt-env-conf-test]  bracketise :: [Chunk] -> [Chunk]
[opt-env-conf-test] -bracketise [c] = [fore cyan "[", c, fore cyan "]"]
[opt-env-conf-test] +bracketise [c] = [fore cyan "[", c
[opt-env-conf-test] +]
[opt-env-conf-test]  bracketise cs = fore cyan "[" : cs ++ [fore cyan "]"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf-test]  
[opt-env-conf-test]  headerChunks :: Text -> [Chunk]
[opt-env-conf-test] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf-test] +headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf-test]  
[opt-env-conf-test]  syntaxChunk :: String -> Chunk
[opt-env-conf-test]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test]    [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  [val] -> []
[opt-env-conf-test]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:71:12-59
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test]    [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]    _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test]    [] -> []
[opt-env-conf-test]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +  _ -> []
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:72:8-91
[opt-env-conf-test] @@ -69,7 +69,7 @@
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test]    [] -> []
[opt-env-conf-test]    [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf-test] @@ -66,10 +66,10 @@
[opt-env-conf-test]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test] -exampleValuesChunks vals = case vals of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +exampleValuesChunks vals = case vals of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf-test] @@ -66,10 +66,10 @@
[opt-env-conf-test]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test] -exampleValuesChunks vals = case vals of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +exampleValuesChunks vals = case vals of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf-test] @@ -84,9 +84,9 @@
[opt-env-conf-test]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf-test]  
[opt-env-conf-test]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf-test] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test]  
[opt-env-conf-test]  capabilityChunk :: Capability -> Chunk
[opt-env-conf-test]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:81:18-44
[opt-env-conf-test] @@ -78,7 +78,7 @@
[opt-env-conf-test]  helpChunk = fore blue . chunk . T.pack
[opt-env-conf-test]  
[opt-env-conf-test]  headerChunks :: Text -> [Chunk]
[opt-env-conf-test] -headerChunks t = [fore cyan (chunk t), ":"]
[opt-env-conf-test] +headerChunks t = []
[opt-env-conf-test]  
[opt-env-conf-test]  syntaxChunk :: String -> Chunk
[opt-env-conf-test]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf-test] @@ -66,10 +66,10 @@
[opt-env-conf-test]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test] -exampleValuesChunks vals = case vals of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +exampleValuesChunks vals = case vals of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf-test]  
[opt-env-conf-test]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf-test] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +defaultValueChunks val = []
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf-test] @@ -78,9 +78,9 @@
[opt-env-conf-test]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf-test]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf-test]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf-test] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf-test] -    Left a -> f a
[opt-env-conf-test] -    Right b -> b
[opt-env-conf-test] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf-test] +    Left a -> f a
[opt-env-conf-test] +    Right b -> b
[opt-env-conf-test]  
[opt-env-conf-test]  validationFailure :: e -> Validation e a
[opt-env-conf-test]  validationFailure e = Failure (e :| [])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf-test] @@ -84,9 +84,9 @@
[opt-env-conf-test]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf-test]  
[opt-env-conf-test]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf-test] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test]  
[opt-env-conf-test]  capabilityChunk :: Capability -> Chunk
[opt-env-conf-test]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:234:62-72
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]      ParserSelect pe pf -> ParserSelect (fmap (fmap f) pe) (fmap (fmap f) pf)
[opt-env-conf-test]      ParserEmpty mLoc -> ParserEmpty mLoc
[opt-env-conf-test]      ParserAlt p1 p2 -> ParserAlt (fmap f p1) (fmap f p2)
[opt-env-conf-test] -    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc forgivable caps (fmap (fmap f) . g) p
[opt-env-conf-test] +    ParserCheck mLoc forgivable caps g p -> ParserCheck mLoc not (forgivable) caps (fmap (fmap f) . g) p
[opt-env-conf-test]      ParserCommands mLoc mDefault cs -> ParserCommands mLoc mDefault $ map (fmap f) cs
[opt-env-conf-test]      ParserWithConfig mLoc pc pa -> ParserWithConfig mLoc pc (fmap f pa)
[opt-env-conf-test]      -- If we ever make Setting a functor, then we need to fmap here
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:81:46-17
[opt-env-conf-test] @@ -78,9 +78,9 @@
[opt-env-conf-test]    -- We could chose to skip the failures here if the first argument was a
[opt-env-conf-test]    -- Right, but we'd prefer to see as many errors as possible.
[opt-env-conf-test]    select (Success _) (Failure ne) = Failure ne
[opt-env-conf-test] -  select (Success e) (Success f) = Success $ case e of
[opt-env-conf-test] -    Left a -> f a
[opt-env-conf-test] -    Right b -> b
[opt-env-conf-test] +  select (Success e) (Success f) = Success $ case e of
[opt-env-conf-test] +    Left a -> f a
[opt-env-conf-test] +    Right b -> b
[opt-env-conf-test]  
[opt-env-conf-test]  validationFailure :: e -> Validation e a
[opt-env-conf-test]  validationFailure e = Failure (e :| [])
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Output.hs:66:26-73
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]  confValChunk = fore white . chunk . T.pack . intercalate "." . NE.toList
[opt-env-conf-test]  
[opt-env-conf-test]  defaultValueChunks :: String -> [Chunk]
[opt-env-conf-test] -defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test]  exampleValuesChunks vals = case vals of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf-test] @@ -66,9 +66,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative (Validation e) where
[opt-env-conf-test]    pure = Success
[opt-env-conf-test] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf-test] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf-test] -    Success _ -> e1
[opt-env-conf-test] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf-test] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf-test] +    Success _ -> e1
[opt-env-conf-test]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf-test]    Success f <*> Success a = Success (f a)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Validation.hs:69:32-20
[opt-env-conf-test] @@ -66,9 +66,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative (Validation e) where
[opt-env-conf-test]    pure = Success
[opt-env-conf-test] -  Failure e1 <*> b = Failure $ case b of
[opt-env-conf-test] -    Failure e2 -> e1 `NE.append` e2
[opt-env-conf-test] -    Success _ -> e1
[opt-env-conf-test] +  Failure e1 <*> b = Failure $ case b of
[opt-env-conf-test] +    Failure e2 -> e1 `NE.append` e2
[opt-env-conf-test] +    Success _ -> e1
[opt-env-conf-test]    Success _ <*> Failure e2 = Failure e2
[opt-env-conf-test]    Success f <*> Success a = Success (f a)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:416:43-48
[opt-env-conf-test] @@ -413,7 +413,7 @@
[opt-env-conf-test]    let t =
[opt-env-conf-test]          ConfigValSetting
[opt-env-conf-test]            { configValSettingPath = k :| [],
[opt-env-conf-test] -            configValSettingAllowPrefix = False,
[opt-env-conf-test] +            configValSettingAllowPrefix = True,
[opt-env-conf-test]              configValSettingCodec = c
[opt-env-conf-test]            }
[opt-env-conf-test]     in Builder [BuildAddConf t]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:397:43-47
[opt-env-conf-test] @@ -394,7 +394,7 @@
[opt-env-conf-test]    let t =
[opt-env-conf-test]          ConfigValSetting
[opt-env-conf-test]            { configValSettingPath = k :| [],
[opt-env-conf-test] -            configValSettingAllowPrefix = True,
[opt-env-conf-test] +            configValSettingAllowPrefix = False,
[opt-env-conf-test]              configValSettingCodec = c
[opt-env-conf-test]            }
[opt-env-conf-test]     in Builder [BuildAddConf t]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:379:57-62
[opt-env-conf-test] @@ -376,7 +376,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf-test]  unprefixedEnv :: String -> Builder a
[opt-env-conf-test] -unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf-test] +unprefixedEnv v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try to parse a configuration value at the given key.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:375:47-51
[opt-env-conf-test] @@ -372,7 +372,7 @@
[opt-env-conf-test]  --
[opt-env-conf-test]  -- Multiple 'env's will be tried in order.
[opt-env-conf-test]  env :: String -> Builder a
[opt-env-conf-test] -env v = Builder [BuildAddEnv (EnvVarSetting v True)]
[opt-env-conf-test] +env v = Builder [BuildAddEnv (EnvVarSetting v False)]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Like 'env' but ignores any 'subEnv', 'subEnv_', or 'subAll'.
[opt-env-conf-test]  unprefixedEnv :: String -> Builder a
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf-test] @@ -424,11 +424,7 @@
[opt-env-conf-test]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf-test]  name s =
[opt-env-conf-test]    mconcat
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long (toArgCase s),
[opt-env-conf-test] -      env (toEnvCase s),
[opt-env-conf-test] -      conf (toConfigCase s)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Set the default value
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf-test] @@ -424,11 +424,11 @@
[opt-env-conf-test]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf-test]  name s =
[opt-env-conf-test]    mconcat
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long (toArgCase s),
[opt-env-conf-test] -      env (toEnvCase s),
[opt-env-conf-test] -      conf (toConfigCase s)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ option,
[opt-env-conf-test] +      long (toArgCase s),
[opt-env-conf-test] +      env (toEnvCase s),
[opt-env-conf-test] +      conf (toConfigCase s)
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Set the default value
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Setting.hs:427:5-6
[opt-env-conf-test] @@ -424,11 +424,11 @@
[opt-env-conf-test]  name :: (HasCodec a) => String -> Builder a
[opt-env-conf-test]  name s =
[opt-env-conf-test]    mconcat
[opt-env-conf-test] -    [ option,
[opt-env-conf-test] -      long (toArgCase s),
[opt-env-conf-test] -      env (toEnvCase s),
[opt-env-conf-test] -      conf (toConfigCase s)
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ option,
[opt-env-conf-test] +      long (toArgCase s),
[opt-env-conf-test] +      env (toEnvCase s),
[opt-env-conf-test] +      conf (toConfigCase s)
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Set the default value
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:276:47-51
[opt-env-conf-test] @@ -273,7 +273,7 @@
[opt-env-conf-test]  applyBuildInstruction bi s = case bi of
[opt-env-conf-test]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = False}
[opt-env-conf-test]    BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:277:43-47
[opt-env-conf-test] @@ -274,7 +274,7 @@
[opt-env-conf-test]    BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test]    BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test]    BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = False}
[opt-env-conf-test]    BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test]    BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test]    BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:286:40-44
[opt-env-conf-test] @@ -283,7 +283,7 @@
[opt-env-conf-test]    BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test]    BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test]    BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = False}
[opt-env-conf-test]    BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test]    BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:240:41-45
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  showMaybeWith :: (a -> ShowS) -> Maybe a -> ShowS
[opt-env-conf-test]  showMaybeWith _ Nothing = showString "Nothing"
[opt-env-conf-test] -showMaybeWith func (Just a) = showParen True $ showString "Just " . func a
[opt-env-conf-test] +showMaybeWith func (Just a) = showParen False $ showString "Just " . func a
[opt-env-conf-test]  
[opt-env-conf-test]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf-test]  showNonEmptyWith func (a :| as) =
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test]    showString "ConfigValSetting "
[opt-env-conf-test] -    . showsPrec 11 configValSettingPath
[opt-env-conf-test] +    . showsPrec 1 configValSettingPath
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:201:17-21
[opt-env-conf-test] @@ -198,7 +198,7 @@
[opt-env-conf-test]  showSettingABit :: Setting a -> ShowS
[opt-env-conf-test]  showSettingABit Setting {..} =
[opt-env-conf-test]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf-test] -   in showParen True $
[opt-env-conf-test] +   in showParen False $
[opt-env-conf-test]          showString "Setting "
[opt-env-conf-test]            . showsPrec 11 settingDasheds
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test]    showString "ConfigValSetting "
[opt-env-conf-test] -    . showsPrec 11 configValSettingPath
[opt-env-conf-test] +    . showsPrec -11 configValSettingPath
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf-test] @@ -200,7 +200,7 @@
[opt-env-conf-test]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf-test]     in showParen True $
[opt-env-conf-test]          showString "Setting "
[opt-env-conf-test] -          . showsPrec 11 settingDasheds
[opt-env-conf-test] +          . showsPrec 1 settingDasheds
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:244:13-17
[opt-env-conf-test] @@ -241,7 +241,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  showNonEmptyWith :: (a -> ShowS) -> NonEmpty a -> ShowS
[opt-env-conf-test]  showNonEmptyWith func (a :| as) =
[opt-env-conf-test] -  showParen True $
[opt-env-conf-test] +  showParen False $
[opt-env-conf-test]      func a
[opt-env-conf-test]        . showString " :| "
[opt-env-conf-test]        . showListWith func as
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf-test] @@ -200,7 +200,7 @@
[opt-env-conf-test]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf-test]     in showParen True $
[opt-env-conf-test]          showString "Setting "
[opt-env-conf-test] -          . showsPrec 11 settingDasheds
[opt-env-conf-test] +          . showsPrec 0 settingDasheds
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:273:30-113
[opt-env-conf-test] @@ -270,22 +270,22 @@
[opt-env-conf-test]  applyBuildInstructions is s = foldr applyBuildInstruction s is
[opt-env-conf-test]  
[opt-env-conf-test]  applyBuildInstruction :: BuildInstruction a -> Setting a -> Setting a
[opt-env-conf-test] -applyBuildInstruction bi s = case bi of
[opt-env-conf-test] -  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] -  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] -  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] -  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] -  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] -  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] -  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] -  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] -  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] -  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] -  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] -  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] -  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] -  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] -  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test] +applyBuildInstruction bi s = case bi of
[opt-env-conf-test] +  BuildAddHelp h -> s {settingHelp = Just $ maybe h (<> h) (settingHelp s)}
[opt-env-conf-test] +  BuildSetMetavar mv -> s {settingMetavar = Just mv}
[opt-env-conf-test] +  BuildTryArgument -> s {settingTryArgument = True}
[opt-env-conf-test] +  BuildTryOption -> s {settingTryOption = True}
[opt-env-conf-test] +  BuildSetSwitchValue a -> s {settingSwitchValue = Just a}
[opt-env-conf-test] +  BuildAddReader r -> s {settingReaders = r : settingReaders s}
[opt-env-conf-test] +  BuildAddLong l -> s {settingDasheds = DashedLong l : settingDasheds s}
[opt-env-conf-test] +  BuildAddShort c -> s {settingDasheds = DashedShort c : settingDasheds s}
[opt-env-conf-test] +  BuildAddEnv v -> s {settingEnvVars = Just $ maybe (v :| []) (v <|) $ settingEnvVars s}
[opt-env-conf-test] +  BuildAddConf t -> s {settingConfigVals = Just $ maybe (t :| []) (t <|) $ settingConfigVals s}
[opt-env-conf-test] +  BuildSetDefault a shown -> s {settingDefaultValue = Just (a, shown)}
[opt-env-conf-test] +  BuildAddExample e -> s {settingExamples = e : settingExamples s}
[opt-env-conf-test] +  BuildSetHidden -> s {settingHidden = True}
[opt-env-conf-test] +  BuildSetCompleter c -> s {settingCompleter = Just c}
[opt-env-conf-test] +  BuildAddRequiredCapability c -> s {settingRequiredCapabilities = Set.insert c (settingRequiredCapabilities s)}
[opt-env-conf-test]  
[opt-env-conf-test]  instance Semigroup (Builder f) where
[opt-env-conf-test]    (<>) (Builder f1) (Builder f2) = Builder (f1 <> f2)
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:234:17-19
[opt-env-conf-test] @@ -231,7 +231,7 @@
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test]    showString "ConfigValSetting "
[opt-env-conf-test] -    . showsPrec 11 configValSettingPath
[opt-env-conf-test] +    . showsPrec 0 configValSettingPath
[opt-env-conf-test]      . showString " "
[opt-env-conf-test]      . showString (showCodecABit configValSettingCodec)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:203:23-25
[opt-env-conf-test] @@ -200,7 +200,7 @@
[opt-env-conf-test]    let Setting _ _ _ _ _ _ _ _ _ _ _ _ _ _ = undefined
[opt-env-conf-test]     in showParen True $
[opt-env-conf-test]          showString "Setting "
[opt-env-conf-test] -          . showsPrec 11 settingDasheds
[opt-env-conf-test] +          . showsPrec -11 settingDasheds
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec 0 settingTryArgument
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec 1 settingTryArgument
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:207:23-25
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec -11 settingTryArgument
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec 11 True
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec 11 False
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:207:26-44
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showListWith (\_ -> showString "_") settingReaders
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryArgument
[opt-env-conf-test] +          . showsPrec 11 not (settingTryArgument)
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf-test] @@ -269,26 +269,26 @@
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test]            (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test]               in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingEnvVars
[opt-env-conf-test] +          . showsPrec 1 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec 11 not (settingTryOption)
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf-test] @@ -216,7 +216,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingExamples
[opt-env-conf-test] +          . showsPrec 0 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf-test] @@ -216,7 +216,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingExamples
[opt-env-conf-test] +          . showsPrec 1 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec 0 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec 1 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:219:23-25
[opt-env-conf-test] @@ -216,7 +216,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingDefaultValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingExamples
[opt-env-conf-test] +          . showsPrec -11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:211:23-25
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec -11 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingEnvVars
[opt-env-conf-test] +          . showsPrec -11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec 11 True
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec 1 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec -11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec 11 True
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingMetavar
[opt-env-conf-test] +          . showsPrec 0 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec 11 not (settingHidden)
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingMetavar
[opt-env-conf-test] +          . showsPrec -11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:223:23-25
[opt-env-conf-test] @@ -220,7 +220,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingMetavar
[opt-env-conf-test] +          . showsPrec 1 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf-test] @@ -222,7 +222,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHelp
[opt-env-conf-test] +          . showsPrec 0 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf-test] @@ -222,7 +222,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHelp
[opt-env-conf-test] +          . showsPrec 1 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:225:23-25
[opt-env-conf-test] @@ -222,7 +222,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHelp
[opt-env-conf-test] +          . showsPrec -11 settingHelp
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf-test] @@ -226,7 +226,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf-test] +          . showsPrec 0 settingRequiredCapabilities
[opt-env-conf-test]  
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf-test] @@ -226,7 +226,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf-test] +          . showsPrec 1 settingRequiredCapabilities
[opt-env-conf-test]  
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:229:23-25
[opt-env-conf-test] @@ -226,7 +226,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingCompleter
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingRequiredCapabilities
[opt-env-conf-test] +          . showsPrec -11 settingRequiredCapabilities
[opt-env-conf-test]  
[opt-env-conf-test]  showConfigValSettingABit :: ConfigValSetting a -> ShowS
[opt-env-conf-test]  showConfigValSettingABit ConfigValSetting {..} =
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:183:28-33
[opt-env-conf-test] @@ -180,7 +180,7 @@
[opt-env-conf-test]    Setting
[opt-env-conf-test]      { settingDasheds = [],
[opt-env-conf-test]        settingReaders = [],
[opt-env-conf-test] -      settingTryArgument = False,
[opt-env-conf-test] +      settingTryArgument = True,
[opt-env-conf-test]        settingSwitchValue = Nothing,
[opt-env-conf-test]        settingTryOption = False,
[opt-env-conf-test]        settingEnvVars = Nothing,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:185:26-31
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]        settingReaders = [],
[opt-env-conf-test]        settingTryArgument = False,
[opt-env-conf-test]        settingSwitchValue = Nothing,
[opt-env-conf-test] -      settingTryOption = False,
[opt-env-conf-test] +      settingTryOption = True,
[opt-env-conf-test]        settingEnvVars = Nothing,
[opt-env-conf-test]        settingConfigVals = Nothing,
[opt-env-conf-test]        settingMetavar = Nothing,
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf-test] @@ -170,9 +170,9 @@
[opt-env-conf-test]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf-test]    where
[opt-env-conf-test]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf-test] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf-test]  emptySetting :: Setting a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf-test] @@ -170,9 +170,9 @@
[opt-env-conf-test]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf-test]    where
[opt-env-conf-test]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf-test] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf-test]  emptySetting :: Setting a
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf-test] @@ -162,7 +162,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  prefixConfigValSetting prefix c =
[opt-env-conf-test] -  if configValSettingAllowPrefix c
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test]      else c
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf-test] @@ -162,7 +162,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  prefixConfigValSetting prefix c =
[opt-env-conf-test] -  if configValSettingAllowPrefix c
[opt-env-conf-test] +  if not (configValSettingAllowPrefix c)
[opt-env-conf-test]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test]      else c
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:221:26-39
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec 11 False
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:213:23-25
[opt-env-conf-test] @@ -210,7 +210,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingTryOption
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingEnvVars
[opt-env-conf-test] +          . showsPrec 0 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (showNonEmptyWith showConfigValSettingABit) settingConfigVals
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf-test] @@ -145,7 +145,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] -  if envVarSettingAllowPrefix e
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test]      else e
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:211:26-42
[opt-env-conf-test] @@ -208,7 +208,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showMaybeWith (\_ -> showString "_") settingSwitchValue
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingTryOption
[opt-env-conf-test] +          . showsPrec 11 False
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingEnvVars
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:221:23-25
[opt-env-conf-test] @@ -218,7 +218,7 @@
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingExamples
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] -          . showsPrec 11 settingHidden
[opt-env-conf-test] +          . showsPrec 0 settingHidden
[opt-env-conf-test]            . showString " "
[opt-env-conf-test]            . showsPrec 11 settingMetavar
[opt-env-conf-test]            . showString " "
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Setting.hs:191:23-28
[opt-env-conf-test] @@ -188,7 +188,7 @@
[opt-env-conf-test]        settingMetavar = Nothing,
[opt-env-conf-test]        settingHelp = Nothing,
[opt-env-conf-test]        settingExamples = [],
[opt-env-conf-test] -      settingHidden = False,
[opt-env-conf-test] +      settingHidden = True,
[opt-env-conf-test]        settingDefaultValue = Nothing,
[opt-env-conf-test]        settingCompleter = Nothing,
[opt-env-conf-test]        settingRequiredCapabilities = Set.empty
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf-test] @@ -162,7 +162,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  prefixConfigValSetting prefix c =
[opt-env-conf-test] -  if configValSettingAllowPrefix c
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test]      else c
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Setting.hs:165:3-11
[opt-env-conf-test] @@ -162,9 +162,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  prefixConfigValSetting prefix c =
[opt-env-conf-test] -  if configValSettingAllowPrefix c
[opt-env-conf-test] -    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test] -    else c
[opt-env-conf-test] +  if configValSettingAllowPrefix c
[opt-env-conf-test] +    then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test] +    else c
[opt-env-conf-test]  
[opt-env-conf-test]  suffixConfigValSettingKey :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf-test] @@ -120,7 +120,7 @@
[opt-env-conf-test]  hashSetting :: Setting a -> SettingHash
[opt-env-conf-test]  hashSetting Setting {..} =
[opt-env-conf-test]    SettingHash
[opt-env-conf-test] -    ( 42
[opt-env-conf-test] +    ( 1
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf-test] @@ -120,7 +120,7 @@
[opt-env-conf-test]  hashSetting :: Setting a -> SettingHash
[opt-env-conf-test]  hashSetting Setting {..} =
[opt-env-conf-test]    SettingHash
[opt-env-conf-test] -    ( 42
[opt-env-conf-test] +    ( -42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` not (settingTryArgument)
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` not (isJust settingSwitchValue)
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` not (settingTryOption)
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf-test]      settingReaders :: ![Reader a],
[opt-env-conf-test]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf-test] -    settingTryArgument :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      -- | What value to parse when the switch exists.
[opt-env-conf-test]      --
[opt-env-conf-test]      -- Nothing means this is not a switch.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf-test]      settingReaders :: ![Reader a],
[opt-env-conf-test]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf-test] -    settingTryArgument :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      -- | What value to parse when the switch exists.
[opt-env-conf-test]      --
[opt-env-conf-test]      -- Nothing means this is not a switch.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf-test] @@ -145,7 +145,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] -  if envVarSettingAllowPrefix e
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test]      else e
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:89:5-23
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]      -- | Which readers should be tried to parse a value from a string
[opt-env-conf-test]      settingReaders :: ![Reader a],
[opt-env-conf-test]      -- | Whether the readers should be used to parsed arguments
[opt-env-conf-test] -    settingTryArgument :: !Bool,
[opt-env-conf-test] +    not (settingTryArgument) :: !Bool,
[opt-env-conf-test]      -- | What value to parse when the switch exists.
[opt-env-conf-test]      --
[opt-env-conf-test]      -- Nothing means this is not a switch.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf-test] @@ -145,7 +145,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] -  if envVarSettingAllowPrefix e
[opt-env-conf-test] +  if not (envVarSettingAllowPrefix e)
[opt-env-conf-test]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test]      else e
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf-test] @@ -93,7 +93,7 @@
[opt-env-conf-test]      settingSwitchValue :: !(Maybe a),
[opt-env-conf-test]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf-test]      -- options.
[opt-env-conf-test] -    settingTryOption :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      -- | Which env vars can be read.
[opt-env-conf-test]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf-test]      -- | Which and how to parse config values
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf-test] @@ -93,7 +93,7 @@
[opt-env-conf-test]      settingSwitchValue :: !(Maybe a),
[opt-env-conf-test]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf-test]      -- options.
[opt-env-conf-test] -    settingTryOption :: !Bool,
[opt-env-conf-test] +    not (settingTryOption) :: !Bool,
[opt-env-conf-test]      -- | Which env vars can be read.
[opt-env-conf-test]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf-test]      -- | Which and how to parse config values
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Setting.hs:148:3-11
[opt-env-conf-test] @@ -145,9 +145,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] -  if envVarSettingAllowPrefix e
[opt-env-conf-test] -    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test] -    else e
[opt-env-conf-test] +  if envVarSettingAllowPrefix e
[opt-env-conf-test] +    then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test] +    else e
[opt-env-conf-test]  
[opt-env-conf-test]  suffixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  suffixEnvVarSetting suffix e = e {envVarSettingVar = envVarSettingVar e <> suffix}
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]      -- | Example values
[opt-env-conf-test]      settingExamples :: ![String],
[opt-env-conf-test]      -- | Whether to hide docs
[opt-env-conf-test] -    settingHidden :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      -- | Which metavar should be show in documentation
[opt-env-conf-test]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf-test]      settingHelp :: !(Maybe String),
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Setting.hs:123:7-9
[opt-env-conf-test] @@ -120,7 +120,7 @@
[opt-env-conf-test]  hashSetting :: Setting a -> SettingHash
[opt-env-conf-test]  hashSetting Setting {..} =
[opt-env-conf-test]    SettingHash
[opt-env-conf-test] -    ( 42
[opt-env-conf-test] +    ( 0
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]      -- | Example values
[opt-env-conf-test]      settingExamples :: ![String],
[opt-env-conf-test]      -- | Whether to hide docs
[opt-env-conf-test] -    settingHidden :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      -- | Which metavar should be show in documentation
[opt-env-conf-test]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf-test]      settingHelp :: !(Maybe String),
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:106:5-18
[opt-env-conf-test] @@ -103,7 +103,7 @@
[opt-env-conf-test]      -- | Example values
[opt-env-conf-test]      settingExamples :: ![String],
[opt-env-conf-test]      -- | Whether to hide docs
[opt-env-conf-test] -    settingHidden :: !Bool,
[opt-env-conf-test] +    not (settingHidden) :: !Bool,
[opt-env-conf-test]      -- | Which metavar should be show in documentation
[opt-env-conf-test]      settingMetavar :: !(Maybe Metavar),
[opt-env-conf-test]      settingHelp :: !(Maybe String),
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf-test] @@ -156,7 +156,7 @@
[opt-env-conf-test]    = forall void.
[opt-env-conf-test]    ConfigValSetting
[opt-env-conf-test]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf-test] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf-test]    }
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf-test] @@ -156,7 +156,7 @@
[opt-env-conf-test]    = forall void.
[opt-env-conf-test]    ConfigValSetting
[opt-env-conf-test]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf-test] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf-test] +    False :: !Bool,
[opt-env-conf-test]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf-test]    }
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf-test] @@ -156,7 +156,7 @@
[opt-env-conf-test]    = forall void.
[opt-env-conf-test]    ConfigValSetting
[opt-env-conf-test]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf-test] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf-test] +    not (configValSettingAllowPrefix) :: !Bool,
[opt-env-conf-test]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf-test]    }
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data EnvVarSetting = EnvVarSetting
[opt-env-conf-test]    { envVarSettingVar :: !String,
[opt-env-conf-test] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf-test] +    True :: !Bool
[opt-env-conf-test]    }
[opt-env-conf-test]    deriving (Show, Eq)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data EnvVarSetting = EnvVarSetting
[opt-env-conf-test]    { envVarSettingVar :: !String,
[opt-env-conf-test] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf-test] +    False :: !Bool
[opt-env-conf-test]    }
[opt-env-conf-test]    deriving (Show, Eq)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` True
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` False
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Setting.hs:96:5-21
[opt-env-conf-test] @@ -93,7 +93,7 @@
[opt-env-conf-test]      settingSwitchValue :: !(Maybe a),
[opt-env-conf-test]      -- | Whether the dasheds should be tried together with the readers as
[opt-env-conf-test]      -- options.
[opt-env-conf-test] -    settingTryOption :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      -- | Which env vars can be read.
[opt-env-conf-test]      settingEnvVars :: !(Maybe (NonEmpty EnvVarSetting)),
[opt-env-conf-test]      -- | Which and how to parse config values
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data EnvVarSetting = EnvVarSetting
[opt-env-conf-test]    { envVarSettingVar :: !String,
[opt-env-conf-test] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf-test] +    not (envVarSettingAllowPrefix) :: !Bool
[opt-env-conf-test]    }
[opt-env-conf-test]    deriving (Show, Eq)
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:238:20-25
[opt-env-conf-test] @@ -235,7 +235,7 @@
[opt-env-conf-test]  lintParser =
[opt-env-conf-test]    either Just (const Nothing)
[opt-env-conf-test]      . validationToEither
[opt-env-conf-test] -    . (`runReader` False) -- Set to true for parsers that have a way to load conf
[opt-env-conf-test] +    . (`runReader` True) -- Set to true for parsers that have a way to load conf
[opt-env-conf-test]      . runValidationT
[opt-env-conf-test]      . go
[opt-env-conf-test]    where
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (True || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:246:28-33
[opt-env-conf-test] @@ -243,7 +243,7 @@
[opt-env-conf-test]      -- 'many' is allowed only when every parse below consumes something.
[opt-env-conf-test]      go :: Parser a -> ValidationT LintError (Reader Bool) Bool
[opt-env-conf-test]      go = \case
[opt-env-conf-test] -      ParserPure _ -> pure False
[opt-env-conf-test] +      ParserPure _ -> pure True
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (not (c1) || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || False)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (True)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (False)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (not (c1 || c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || True)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure True
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure False
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True || c2) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1) || c2) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 || False) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (False || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 || not (c2)) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure not ((c1 || c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure True -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure not ((c1 || c2)) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Lint.hs:255:29-33
[opt-env-conf-test] @@ -252,7 +252,7 @@
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test]          pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] -      ParserEmpty _ -> pure True
[opt-env-conf-test] +      ParserEmpty _ -> pure False
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && True) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1) && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && not (c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && False) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1 && c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure True -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure False -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure True
[opt-env-conf-test]        ParserSome mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:254:15-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1 || c2)) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure False
[opt-env-conf-test]        ParserSome mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:266:14-15
[opt-env-conf-test] @@ -263,7 +263,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure not (c)
[opt-env-conf-test]        ParserSome mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure not ((c1 && c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure False
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:14-24
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure False -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf-test] @@ -273,7 +273,7 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] -        if null cs
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure not (c)
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:21-23
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 || True) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` not (envVarSettingAllowPrefix)
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || not (c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf-test] @@ -277,7 +277,7 @@
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +              when (not (isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf-test]                  validationTFailure $
[opt-env-conf-test]                    LintError mLoc $
[opt-env-conf-test]                      LintErrorUnknownDefaultCommand d
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf-test] @@ -273,7 +273,7 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] -        if null cs
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf-test] @@ -277,7 +277,7 @@
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +              when True $
[opt-env-conf-test]                  validationTFailure $
[opt-env-conf-test]                    LintError mLoc $
[opt-env-conf-test]                      LintErrorUnknownDefaultCommand d
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:280:21-62
[opt-env-conf-test] @@ -277,7 +277,7 @@
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +              when (True) $
[opt-env-conf-test]                  validationTFailure $
[opt-env-conf-test]                    LintError mLoc $
[opt-env-conf-test]                      LintErrorUnknownDefaultCommand d
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:280:20-63
[opt-env-conf-test] @@ -277,7 +277,7 @@
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +              when not ((isNothing (find ((== d) . commandArg) cs))) $
[opt-env-conf-test]                  validationTFailure $
[opt-env-conf-test]                    LintError mLoc $
[opt-env-conf-test]                      LintErrorUnknownDefaultCommand d
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Lint.hs:278:16-53
[opt-env-conf-test] @@ -275,13 +275,13 @@
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test]          if null cs
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] -                validationTFailure $
[opt-env-conf-test] -                  LintError mLoc $
[opt-env-conf-test] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf-test] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            for_ mDefault $ \d ->
[opt-env-conf-test] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +                validationTFailure $
[opt-env-conf-test] +                  LintError mLoc $
[opt-env-conf-test] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf-test] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Lint.hs:276:9-53
[opt-env-conf-test] @@ -273,15 +273,15 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] -        if null cs
[opt-env-conf-test] -          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            for_ mDefault $ \d ->
[opt-env-conf-test] -              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] -                validationTFailure $
[opt-env-conf-test] -                  LintError mLoc $
[opt-env-conf-test] -                    LintErrorUnknownDefaultCommand d
[opt-env-conf-test] -            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf-test] +        if null cs
[opt-env-conf-test] +          then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            for_ mDefault $ \d ->
[opt-env-conf-test] +              when (isNothing (find ((== d) . commandArg) cs)) $
[opt-env-conf-test] +                validationTFailure $
[opt-env-conf-test] +                  LintError mLoc $
[opt-env-conf-test] +                    LintErrorUnknownDefaultCommand d
[opt-env-conf-test] +            and <$> traverse (go . commandParser) cs -- TODO is this right?
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ True || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ not (c1) || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || False
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ False || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:276:12-19
[opt-env-conf-test] @@ -273,7 +273,7 @@
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] -        if null cs
[opt-env-conf-test] +        if not (null cs)
[opt-env-conf-test]            then validationTFailure $ LintError mLoc LintErrorNoCommands
[opt-env-conf-test]            else do
[opt-env-conf-test]              for_ mDefault $ \d ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:272:14-15
[opt-env-conf-test] @@ -269,7 +269,7 @@
[opt-env-conf-test]          when (not c) $
[opt-env-conf-test]            mapValidationTFailure (LintError mLoc) $
[opt-env-conf-test]              validationTFailure LintErrorManyInfinite
[opt-env-conf-test] -        pure c
[opt-env-conf-test] +        pure True
[opt-env-conf-test]        ParserAllOrNothing _ p -> go p
[opt-env-conf-test]        ParserCheck _ _ _ _ p -> go p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ True
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ not (settingTryArgument) || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ False
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || False || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || not (isJust settingSwitchValue),
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || False,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ False,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ not (settingTryArgument || settingTryOption || isJust settingSwitchValue),
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf-test] @@ -338,6 +338,6 @@
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] +              True,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf-test] @@ -338,6 +338,6 @@
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] +              False,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || not (settingTryOption || isJust settingSwitchValue),
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf-test] @@ -338,6 +338,6 @@
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] +              not (null settingEnvVars),
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf-test] @@ -339,5 +339,5 @@
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] +              not (null settingConfigVals)
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && False
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Parser.hs:261:29-38
[opt-env-conf-test] @@ -258,7 +258,7 @@
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test] -          ParserSome _ p -> isEmpty p
[opt-env-conf-test] +          ParserSome _ p -> not (isEmpty p)
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf-test] @@ -337,7 +337,4 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf-test] @@ -339,5 +339,5 @@
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] +              True
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +              null settingEnvVars,
[opt-env-conf-test] +              null settingConfigVals
[opt-env-conf-test] +            ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || False,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf-test] @@ -337,7 +337,6 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +              null settingEnvVars
[opt-env-conf-test] +]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf-test] @@ -336,8 +336,4 @@
[opt-env-conf-test]          pure $
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test] -          and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf-test] @@ -336,8 +336,4 @@
[opt-env-conf-test]          pure $
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test] -          and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          False
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:339:11-14
[opt-env-conf-test] @@ -336,8 +336,8 @@
[opt-env-conf-test]          pure $
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test] -          and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          not (and
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +              null settingEnvVars,
[opt-env-conf-test] +              null settingConfigVals
[opt-env-conf-test] +            ])
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test]        case lintErrorMessage of
[opt-env-conf-test]          LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +          [[]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test]              [ [ [ "This ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf-test] @@ -68,7 +68,8 @@
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test]        case lintErrorMessage of
[opt-env-conf-test]          LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +          [["missing ", functionChunk "help"
[opt-env-conf-test] +]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test]              [ [ [ "This ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf-test] @@ -71,10 +71,7 @@
[opt-env-conf-test]            [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +            [ [ []
[opt-env-conf-test]                ],
[opt-env-conf-test]                [ [ "Add an ",
[opt-env-conf-test]                    functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf-test] @@ -71,10 +71,10 @@
[opt-env-conf-test]            [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test]                ],
[opt-env-conf-test]                [ [ "Add an ",
[opt-env-conf-test]                    functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:17-18
[opt-env-conf-test] @@ -71,10 +71,9 @@
[opt-env-conf-test]            [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting"
[opt-env-conf-test] +]
[opt-env-conf-test]                ],
[opt-env-conf-test]                [ [ "Add an ",
[opt-env-conf-test]                    functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf-test] @@ -76,20 +76,7 @@
[opt-env-conf-test]                    " parses nothing."
[opt-env-conf-test]                  ]
[opt-env-conf-test]                ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ []
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf-test] @@ -339,5 +339,5 @@
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] +              False
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf-test] @@ -76,20 +76,20 @@
[opt-env-conf-test]                    " parses nothing."
[opt-env-conf-test]                  ]
[opt-env-conf-test]                ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:71:12-51
[opt-env-conf-test] @@ -68,7 +68,7 @@
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test]        case lintErrorMessage of
[opt-env-conf-test]          LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test]              [ [ [ "This ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf-test] @@ -71,27 +71,7 @@
[opt-env-conf-test]            [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf-test] @@ -93,7 +93,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:74:13-14
[opt-env-conf-test] @@ -71,27 +71,27 @@
[opt-env-conf-test]            [["missing ", functionChunk "help", "."]]
[opt-env-conf-test]          LintErrorEmptySetting ->
[opt-env-conf-test]            concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:79:17-18
[opt-env-conf-test] @@ -76,20 +76,19 @@
[opt-env-conf-test]                    " parses nothing."
[opt-env-conf-test]                  ]
[opt-env-conf-test]                ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value"
[opt-env-conf-test] +]
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf-test] @@ -93,9 +93,9 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +            []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf-test] @@ -97,7 +97,7 @@
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test]              [ "Try ",
[opt-env-conf-test]                functionChunk "long",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf-test] @@ -94,7 +94,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:97:13-55
[opt-env-conf-test] @@ -94,7 +94,8 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test]            [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +            ["Found ", functionChunk "short"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:13-65
[opt-env-conf-test] @@ -97,7 +97,7 @@
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test]              [ "Try ",
[opt-env-conf-test]                functionChunk "long",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf-test] @@ -98,7 +98,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [],
[opt-env-conf-test]              [ "Try ",
[opt-env-conf-test]                functionChunk "long",
[opt-env-conf-test]                " ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf-test] @@ -99,19 +99,7 @@
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf-test] @@ -98,7 +98,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test]              [ "Try ",
[opt-env-conf-test]                functionChunk "long",
[opt-env-conf-test]                " ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:101:13-92
[opt-env-conf-test] @@ -98,7 +98,8 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s
[opt-env-conf-test] +],
[opt-env-conf-test]              [ "Try ",
[opt-env-conf-test]                functionChunk "long",
[opt-env-conf-test]                " ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf-test] @@ -99,19 +99,19 @@
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:102:13-14
[opt-env-conf-test] @@ -99,19 +99,18 @@
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf-test] @@ -97,22 +97,20 @@
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s
[opt-env-conf-test] +]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test]                " has no ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf-test] @@ -97,22 +97,7 @@
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test]                " has no ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf-test] @@ -114,11 +114,11 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf-test] @@ -114,11 +114,10 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf-test] @@ -121,11 +121,11 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf-test] @@ -128,13 +128,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:117:13-14
[opt-env-conf-test] @@ -114,11 +114,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf-test] @@ -121,11 +121,10 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:124:13-14
[opt-env-conf-test] @@ -121,11 +121,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf-test] @@ -128,13 +128,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:100:11-12
[opt-env-conf-test] @@ -97,22 +97,22 @@
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]          LintErrorNoReaderForArgument ->
[opt-env-conf-test]            [ [ functionChunk "argument",
[opt-env-conf-test]                " has no ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf-test] @@ -146,13 +146,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test]            [ [ functionChunk "switch",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf-test] @@ -146,13 +146,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test]            [ [ functionChunk "switch",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf-test] @@ -155,13 +155,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test]            [ [ functionChunk "long",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf-test] @@ -155,13 +155,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test]            [ [ functionChunk "long",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf-test] @@ -164,15 +164,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf-test] @@ -164,15 +164,14 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:167:13-14
[opt-env-conf-test] @@ -164,15 +164,15 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf-test] @@ -175,13 +175,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf-test] @@ -175,13 +175,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:178:13-14
[opt-env-conf-test] @@ -175,13 +175,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test]            [ [ functionChunk "env",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:149:13-14
[opt-env-conf-test] @@ -146,13 +146,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test]            [ [ functionChunk "switch",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:158:13-14
[opt-env-conf-test] @@ -155,13 +155,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test]            [ [ functionChunk "long",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf-test] @@ -137,13 +137,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf-test] @@ -137,13 +137,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:140:13-14
[opt-env-conf-test] @@ -137,13 +137,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:131:13-14
[opt-env-conf-test] @@ -128,13 +128,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoDashedForOption ->
[opt-env-conf-test]            [ [ functionChunk "option",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf-test] @@ -184,13 +184,12 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoCommands ->
[opt-env-conf-test]            [ [ functionChunk "commands",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf-test] @@ -184,13 +184,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoCommands ->
[opt-env-conf-test]            [ [ functionChunk "commands",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf-test] @@ -193,9 +193,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test]            [ [ functionChunk "defaultCommand",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:196:13-14
[opt-env-conf-test] @@ -193,9 +193,9 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test]            [ [ functionChunk "defaultCommand",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf-test] @@ -198,10 +198,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf-test] @@ -198,10 +198,10 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:187:13-14
[opt-env-conf-test] @@ -184,13 +184,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorNoCommands ->
[opt-env-conf-test]            [ [ functionChunk "commands",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf-test] @@ -204,7 +204,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:13-136
[opt-env-conf-test] @@ -204,7 +204,8 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader"
[opt-env-conf-test] +],
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf-test] @@ -205,7 +205,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +            []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test]            [ [ functionChunk "conf",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:201:13-14
[opt-env-conf-test] @@ -198,10 +198,9 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: "
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:208:13-44
[opt-env-conf-test] @@ -205,7 +205,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test]            [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test]            [ [ functionChunk "conf",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf-test] @@ -204,9 +204,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test]            [ [ functionChunk "conf",
[opt-env-conf-test]                " or ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf-test] @@ -208,11 +208,10 @@
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name"
[opt-env-conf-test] +],
[opt-env-conf-test]              [ "You can load configuration with ",
[opt-env-conf-test]                functionChunk "withConfig",
[opt-env-conf-test]                ", or explicitly not load any configuration with ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf-test] @@ -213,12 +213,11 @@
[opt-env-conf-test]                functionChunk "name",
[opt-env-conf-test]                " was called with no way to load configuration."
[opt-env-conf-test]              ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig"
[opt-env-conf-test] +]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test]            [ [ functionChunk "many",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf-test] @@ -208,18 +208,18 @@
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test]            [ [ functionChunk "many",
[opt-env-conf-test]                " or ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf-test] @@ -221,11 +221,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test]            ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf-test] @@ -221,13 +221,7 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:11-12
[opt-env-conf-test] @@ -221,13 +221,13 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf-test] @@ -208,11 +208,7 @@
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [],
[opt-env-conf-test]              [ "You can load configuration with ",
[opt-env-conf-test]                functionChunk "withConfig",
[opt-env-conf-test]                ", or explicitly not load any configuration with ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:13-14
[opt-env-conf-test] @@ -208,11 +208,11 @@
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test]              [ "You can load configuration with ",
[opt-env-conf-test]                functionChunk "withConfig",
[opt-env-conf-test]                ", or explicitly not load any configuration with ",
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf-test] @@ -221,11 +221,10 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some"
[opt-env-conf-test] +],
[opt-env-conf-test]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test]            ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:11-12
[opt-env-conf-test] @@ -93,9 +93,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test]            [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:96:13-63
[opt-env-conf-test] @@ -93,7 +93,7 @@
[opt-env-conf-test]                ]
[opt-env-conf-test]              ]
[opt-env-conf-test]          LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test]              ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorDashInLong s ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:207:11-12
[opt-env-conf-test] @@ -204,9 +204,9 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test]            [ [ functionChunk "conf",
[opt-env-conf-test]                " or ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf-test] @@ -213,12 +213,7 @@
[opt-env-conf-test]                functionChunk "name",
[opt-env-conf-test]                " was called with no way to load configuration."
[opt-env-conf-test]              ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            []
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test]            [ [ functionChunk "many",
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf-test] @@ -65,171 +65,7 @@
[opt-env-conf-test]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test]  
[opt-env-conf-test]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf-test]  lintParser =
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf-test] @@ -65,171 +65,166 @@
[opt-env-conf-test]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some"
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf-test]  lintParser =
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf-test] @@ -227,10 +227,7 @@
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test]      [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderMan,
[opt-env-conf-test]            long "render-man-page",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf-test] @@ -227,10 +227,10 @@
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test]      [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch ShowVersion,
[opt-env-conf-test] +          long "version",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderMan,
[opt-env-conf-test]            long "render-man-page",
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf-test] @@ -232,11 +232,7 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderDocumentation,
[opt-env-conf-test]            long "render-reference-documentation",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:230:9-10
[opt-env-conf-test] @@ -227,10 +227,9 @@
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test]      [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch ShowVersion,
[opt-env-conf-test] +          long "version"
[opt-env-conf-test] +],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderMan,
[opt-env-conf-test]            long "render-man-page",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf-test] @@ -232,11 +232,10 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderMan,
[opt-env-conf-test] +          long "render-man-page",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderDocumentation,
[opt-env-conf-test]            long "render-reference-documentation",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:68:5-6
[opt-env-conf-test] @@ -65,171 +65,171 @@
[opt-env-conf-test]  renderLintError :: LintError -> [[Chunk]]
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] +    ]
[opt-env-conf-test]  
[opt-env-conf-test]  lintParser :: Parser a -> Maybe (NonEmpty LintError)
[opt-env-conf-test]  lintParser =
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Lint.hs:69:7-12
[opt-env-conf-test] @@ -66,168 +66,168 @@
[opt-env-conf-test]  renderLintError LintError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test]      [ [[fore red "Invalid Setting:"]],
[opt-env-conf-test] -      case lintErrorMessage of
[opt-env-conf-test] -        LintErrorUndocumented ->
[opt-env-conf-test] -          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] -        LintErrorEmptySetting ->
[opt-env-conf-test] -          concat
[opt-env-conf-test] -            [ [ [ "This ",
[opt-env-conf-test] -                  functionChunk "setting",
[opt-env-conf-test] -                  " parses nothing."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ],
[opt-env-conf-test] -              [ [ "Add an ",
[opt-env-conf-test] -                  functionChunk "argument",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "switch",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "option",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "env",
[opt-env-conf-test] -                  ", ",
[opt-env-conf-test] -                  functionChunk "conf",
[opt-env-conf-test] -                  ", or ",
[opt-env-conf-test] -                  functionChunk "value",
[opt-env-conf-test] -                  "."
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              ]
[opt-env-conf-test] -            ]
[opt-env-conf-test] -        LintErrorDashInShort ->
[opt-env-conf-test] -          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorDashInLong s ->
[opt-env-conf-test] -          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] -            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] -            [ "Try ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " ",
[opt-env-conf-test] -              chunk $
[opt-env-conf-test] -                T.pack $
[opt-env-conf-test] -                  show $
[opt-env-conf-test] -                    let go = \case
[opt-env-conf-test] -                          [] -> []
[opt-env-conf-test] -                          '-' : cs -> go cs
[opt-env-conf-test] -                          c : cs -> c : cs
[opt-env-conf-test] -                     in go $ NE.toList s,
[opt-env-conf-test] -              " instead."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] -          [ [ functionChunk "argument",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForOption ->
[opt-env-conf-test] -          [ [ functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] -          [ [ functionChunk "switch",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] -          [ [ functionChunk "long",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "short",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "option",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "switch",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "reader",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] -          [ [ functionChunk "env",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " has no ",
[opt-env-conf-test] -              functionChunk "metavar",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorNoCommands ->
[opt-env-conf-test] -          [ [ functionChunk "commands",
[opt-env-conf-test] -              " was called with an empty list."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] -          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] -              " was called with an unknown command: ",
[opt-env-conf-test] -              commandChunk c
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorUnreadableExample e ->
[opt-env-conf-test] -          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] -            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] -          ],
[opt-env-conf-test] +      case lintErrorMessage of
[opt-env-conf-test] +        LintErrorUndocumented ->
[opt-env-conf-test] +          [["missing ", functionChunk "help", "."]]
[opt-env-conf-test] +        LintErrorEmptySetting ->
[opt-env-conf-test] +          concat
[opt-env-conf-test] +            [ [ [ "This ",
[opt-env-conf-test] +                  functionChunk "setting",
[opt-env-conf-test] +                  " parses nothing."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ],
[opt-env-conf-test] +              [ [ "Add an ",
[opt-env-conf-test] +                  functionChunk "argument",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "switch",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "option",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "env",
[opt-env-conf-test] +                  ", ",
[opt-env-conf-test] +                  functionChunk "conf",
[opt-env-conf-test] +                  ", or ",
[opt-env-conf-test] +                  functionChunk "value",
[opt-env-conf-test] +                  "."
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              ]
[opt-env-conf-test] +            ]
[opt-env-conf-test] +        LintErrorDashInShort ->
[opt-env-conf-test] +          [ [functionChunk "short", " may not contain a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "short", " '-'."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorDashInLong s ->
[opt-env-conf-test] +          [ [functionChunk "long", " may not start with a '-'."],
[opt-env-conf-test] +            ["Found ", functionChunk "long", " ", chunk $ T.pack $ show $ NE.toList s, "."],
[opt-env-conf-test] +            [ "Try ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " ",
[opt-env-conf-test] +              chunk $
[opt-env-conf-test] +                T.pack $
[opt-env-conf-test] +                  show $
[opt-env-conf-test] +                    let go = \case
[opt-env-conf-test] +                          [] -> []
[opt-env-conf-test] +                          '-' : cs -> go cs
[opt-env-conf-test] +                          c : cs -> c : cs
[opt-env-conf-test] +                     in go $ NE.toList s,
[opt-env-conf-test] +              " instead."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForArgument ->
[opt-env-conf-test] +          [ [ functionChunk "argument",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForOption ->
[opt-env-conf-test] +          [ [ functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoDashedForSwitch ->
[opt-env-conf-test] +          [ [ functionChunk "switch",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoOptionOrSwitchForDashed ->
[opt-env-conf-test] +          [ [ functionChunk "long",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "short",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "option",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "switch",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoReaderForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "reader",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoMetavarForEnvVar ->
[opt-env-conf-test] +          [ [ functionChunk "env",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " has no ",
[opt-env-conf-test] +              functionChunk "metavar",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorNoCommands ->
[opt-env-conf-test] +          [ [ functionChunk "commands",
[opt-env-conf-test] +              " was called with an empty list."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnknownDefaultCommand c ->
[opt-env-conf-test] +          [ [ functionChunk "defaultCommand",
[opt-env-conf-test] +              " was called with an unknown command: ",
[opt-env-conf-test] +              commandChunk c
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorUnreadableExample e ->
[opt-env-conf-test] +          [ [functionChunk "example", " was called with an example that none of the ", functionChunk "reader", "s succeed in reading."],
[opt-env-conf-test] +            ["Example: ", chunk $ T.pack e]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorConfigWithoutLoad ->
[opt-env-conf-test] +          [ [ functionChunk "conf",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "name",
[opt-env-conf-test] +              " was called with no way to load configuration."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        LintErrorManyInfinite ->
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test] +            ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test] +          ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf-test] @@ -238,11 +238,10 @@
[opt-env-conf-test]            help "Render a manpage"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderDocumentation,
[opt-env-conf-test] +          long "render-reference-documentation",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderNixosOptions,
[opt-env-conf-test]            long "render-nix-options",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:235:9-10
[opt-env-conf-test] @@ -232,11 +232,11 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderMan,
[opt-env-conf-test] +          long "render-man-page",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render a manpage"
[opt-env-conf-test] +        ],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderDocumentation,
[opt-env-conf-test]            long "render-reference-documentation",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:211:11-12
[opt-env-conf-test] @@ -208,18 +208,7 @@
[opt-env-conf-test]              ["Example: ", chunk $ T.pack e]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorConfigWithoutLoad ->
[opt-env-conf-test] -          [ [ functionChunk "conf",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "name",
[opt-env-conf-test] -              " was called with no way to load configuration."
[opt-env-conf-test] -            ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test]            [ [ functionChunk "many",
[opt-env-conf-test]                " or ",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:224:13-14
[opt-env-conf-test] @@ -221,11 +221,11 @@
[opt-env-conf-test]              ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test] -          [ [ functionChunk "many",
[opt-env-conf-test] -              " or ",
[opt-env-conf-test] -              functionChunk "some",
[opt-env-conf-test] -              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] -            ],
[opt-env-conf-test] +          [ [ functionChunk "many",
[opt-env-conf-test] +              " or ",
[opt-env-conf-test] +              functionChunk "some",
[opt-env-conf-test] +              " was called with a parser that may succeed without consuming anything."
[opt-env-conf-test] +            ],
[opt-env-conf-test]              ["This is not allowed because the parser would run infinitely."]
[opt-env-conf-test]            ],
[opt-env-conf-test]        maybe [] (pure . ("Defined at: " :) . pure . srcLocChunk) lintErrorSrcLoc
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf-test] @@ -259,12 +259,7 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf-test] @@ -251,12 +251,11 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "bash-completion-script",
[opt-env-conf-test] +            hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf-test] @@ -238,11 +238,7 @@
[opt-env-conf-test]            help "Render a manpage"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderNixosOptions,
[opt-env-conf-test]            long "render-nix-options",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf-test] @@ -244,11 +244,7 @@
[opt-env-conf-test]            help "Render reference documentation"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf-test] @@ -244,11 +244,10 @@
[opt-env-conf-test]            help "Render reference documentation"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderNixosOptions,
[opt-env-conf-test] +          long "render-nix-options",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:241:9-10
[opt-env-conf-test] @@ -238,11 +238,11 @@
[opt-env-conf-test]            help "Render a manpage"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderDocumentation,
[opt-env-conf-test] +          long "render-reference-documentation",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render reference documentation"
[opt-env-conf-test] +        ],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ switch RenderNixosOptions,
[opt-env-conf-test]            long "render-nix-options",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:247:9-10
[opt-env-conf-test] @@ -244,11 +244,11 @@
[opt-env-conf-test]            help "Render reference documentation"
[opt-env-conf-test]          ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] +        [ switch RenderNixosOptions,
[opt-env-conf-test] +          long "render-nix-options",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render Nix options"
[opt-env-conf-test] +        ],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf-test] @@ -251,12 +251,7 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:254:11-12
[opt-env-conf-test] @@ -251,12 +251,12 @@
[opt-env-conf-test]          ],
[opt-env-conf-test]        BashCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "bash-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the bash completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || True || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || True
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf-test] @@ -267,12 +267,7 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ help "Query completion",
[opt-env-conf-test]            switch CompletionQuery,
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ not (c1 || c2)
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:254:15-17
[opt-env-conf-test] @@ -251,7 +251,7 @@
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False || c2) -- TODO: is this right?
[opt-env-conf-test]        ParserEmpty _ -> pure True
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf-test] @@ -274,12 +274,7 @@
[opt-env-conf-test]              help "Render the fish completion script"
[opt-env-conf-test]            ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ switch True,
[opt-env-conf-test]              long "completion-enriched",
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ False || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:284:20-24
[opt-env-conf-test] @@ -281,7 +281,7 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] +          [ switch False,
[opt-env-conf-test]              long "completion-enriched",
[opt-env-conf-test]              value False,
[opt-env-conf-test]              hidden,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf-test] @@ -274,12 +274,11 @@
[opt-env-conf-test]              help "Render the fish completion script"
[opt-env-conf-test]            ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Query completion",
[opt-env-conf-test] +          switch CompletionQuery,
[opt-env-conf-test] +          -- Long string that no normal user would ever use.
[opt-env-conf-test] +          long "query-opt-env-conf-completion"
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ switch True,
[opt-env-conf-test]              long "completion-enriched",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf-test] @@ -259,12 +259,11 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "zsh-completion-script",
[opt-env-conf-test] +            hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ True || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:277:9-10
[opt-env-conf-test] @@ -274,12 +274,12 @@
[opt-env-conf-test]              help "Render the fish completion script"
[opt-env-conf-test]            ],
[opt-env-conf-test]        setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ help "Query completion",
[opt-env-conf-test] +          switch CompletionQuery,
[opt-env-conf-test] +          -- Long string that no normal user would ever use.
[opt-env-conf-test] +          long "query-opt-env-conf-completion",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ switch True,
[opt-env-conf-test]              long "completion-enriched",
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf-test] @@ -267,12 +267,12 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "fish-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the fish completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ help "Query completion",
[opt-env-conf-test]            switch CompletionQuery,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:262:11-12
[opt-env-conf-test] @@ -259,12 +259,12 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "zsh-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the zsh completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || not (c2)
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:270:11-12
[opt-env-conf-test] @@ -267,12 +267,11 @@
[opt-env-conf-test]            ],
[opt-env-conf-test]        ZshCompletionScript
[opt-env-conf-test]          <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "fish-completion-script",
[opt-env-conf-test] +            hidden
[opt-env-conf-test] +],
[opt-env-conf-test]        setting
[opt-env-conf-test]          [ help "Query completion",
[opt-env-conf-test]            switch CompletionQuery,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf-test] @@ -281,12 +281,7 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test]              reader auto,
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:286:19-24
[opt-env-conf-test] @@ -283,7 +283,7 @@
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ switch True,
[opt-env-conf-test]              long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] +            value True,
[opt-env-conf-test]              hidden,
[opt-env-conf-test]              help "Whether to enable enriched completion"
[opt-env-conf-test]            ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf-test] @@ -288,12 +288,7 @@
[opt-env-conf-test]              help "Whether to enable enriched completion"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          []
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ option,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf-test] @@ -281,12 +281,11 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ switch True,
[opt-env-conf-test] +            long "completion-enriched",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            hidden
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test]              reader auto,
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf-test] @@ -226,82 +226,4 @@
[opt-env-conf-test]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test] -    [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      BashCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> many
[opt-env-conf-test] -          ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ),
[opt-env-conf-test] -      ParsedNormally <$> p
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    []
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf-test] @@ -296,12 +296,12 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                long "completion-word",
[opt-env-conf-test] +                hidden,
[opt-env-conf-test] +                help "The words (arguments) that have already been typed"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ),
[opt-env-conf-test]        ParsedNormally <$> p
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf-test] @@ -198,11 +198,11 @@
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf-test] @@ -226,82 +226,81 @@
[opt-env-conf-test]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test] -    [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      BashCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> many
[opt-env-conf-test] -          ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ),
[opt-env-conf-test] -      ParsedNormally <$> p
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ setting
[opt-env-conf-test] +        [ switch ShowVersion,
[opt-env-conf-test] +          long "version",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderMan,
[opt-env-conf-test] +          long "render-man-page",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render a manpage"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderDocumentation,
[opt-env-conf-test] +          long "render-reference-documentation",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render reference documentation"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderNixosOptions,
[opt-env-conf-test] +          long "render-nix-options",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render Nix options"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      BashCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "bash-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the bash completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      ZshCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "zsh-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the zsh completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      ZshCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "fish-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the fish completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ help "Query completion",
[opt-env-conf-test] +          switch CompletionQuery,
[opt-env-conf-test] +          -- Long string that no normal user would ever use.
[opt-env-conf-test] +          long "query-opt-env-conf-completion",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ]
[opt-env-conf-test] +        <*> setting
[opt-env-conf-test] +          [ switch True,
[opt-env-conf-test] +            long "completion-enriched",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Whether to enable enriched completion"
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        <*> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader auto,
[opt-env-conf-test] +            long "completion-index",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        <*> many
[opt-env-conf-test] +          ( setting
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                long "completion-word",
[opt-env-conf-test] +                hidden,
[opt-env-conf-test] +                help "The words (arguments) that have already been typed"
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          )
[opt-env-conf-test] +]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf-test] @@ -198,11 +198,11 @@
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf-test] @@ -196,13 +196,13 @@
[opt-env-conf-test]        [] -> (caps, [])
[opt-env-conf-test]        (x : xs) ->
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:172:24-28
[opt-env-conf-test] @@ -169,7 +169,7 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> (False, [])
[opt-env-conf-test]        (x : xs)
[opt-env-conf-test] -        | x == arg -> (True, xs)
[opt-env-conf-test] +        | x == arg -> (False, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test]               in (found, x : rest)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test] -             in (found, x : rest)
[opt-env-conf-test] +             in (not (found), x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf-test] @@ -181,7 +181,7 @@
[opt-env-conf-test]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeHelpMode as =
[opt-env-conf-test]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf-test] -   in if found
[opt-env-conf-test] +   in if not (found)
[opt-env-conf-test]          then (True, as')
[opt-env-conf-test]          else consumeExactArg "-h" as'
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:185:15-19
[opt-env-conf-test] @@ -182,7 +182,7 @@
[opt-env-conf-test]  consumeHelpMode as =
[opt-env-conf-test]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf-test]     in if found
[opt-env-conf-test] -        then (True, as')
[opt-env-conf-test] +        then (False, as')
[opt-env-conf-test]          else consumeExactArg "-h" as'
[opt-env-conf-test]  
[opt-env-conf-test]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf-test] @@ -181,7 +181,7 @@
[opt-env-conf-test]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeHelpMode as =
[opt-env-conf-test]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf-test] -   in if found
[opt-env-conf-test] +   in if True
[opt-env-conf-test]          then (True, as')
[opt-env-conf-test]          else consumeExactArg "-h" as'
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:184:10-15
[opt-env-conf-test] @@ -181,7 +181,7 @@
[opt-env-conf-test]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeHelpMode as =
[opt-env-conf-test]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf-test] -   in if found
[opt-env-conf-test] +   in if False
[opt-env-conf-test]          then (True, as')
[opt-env-conf-test]          else consumeExactArg "-h" as'
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if not (debugMode)
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:284:11-12
[opt-env-conf-test] @@ -281,12 +281,12 @@
[opt-env-conf-test]            hidden
[opt-env-conf-test]          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ switch True,
[opt-env-conf-test] +            long "completion-enriched",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Whether to enable enriched completion"
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test]            [ option,
[opt-env-conf-test]              reader auto,
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf-test]  
[opt-env-conf-test] -      if helpMode
[opt-env-conf-test] +      if True
[opt-env-conf-test]          then do
[opt-env-conf-test]            progname <- getProgName
[opt-env-conf-test]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf-test]  
[opt-env-conf-test] -      if helpMode
[opt-env-conf-test] +      if False
[opt-env-conf-test]          then do
[opt-env-conf-test]            progname <- getProgName
[opt-env-conf-test]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:89:10-18
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf-test]  
[opt-env-conf-test] -      if helpMode
[opt-env-conf-test] +      if not (helpMode)
[opt-env-conf-test]          then do
[opt-env-conf-test]            progname <- getProgName
[opt-env-conf-test]            errOrDocs <- runHelpParser mDebugMode (Args.parseArgs args') p
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:83:9-28
[opt-env-conf-test] @@ -80,9 +80,9 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] -          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test] -          else pure Nothing
[opt-env-conf-test] +        if debugMode
[opt-env-conf-test] +          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test] +          else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf-test] @@ -97,9 +97,9 @@
[opt-env-conf-test]                exitFailure
[opt-env-conf-test]              Right mCommandDoc -> do
[opt-env-conf-test]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test]                exitSuccess
[opt-env-conf-test]          else do
[opt-env-conf-test]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test] -             in (found, x : rest)
[opt-env-conf-test] +             in (False, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test] -             in (found, x : rest)
[opt-env-conf-test] +             in (True, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf-test] @@ -169,7 +169,7 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> (False, [])
[opt-env-conf-test]        (x : xs)
[opt-env-conf-test] -        | x == arg -> (True, xs)
[opt-env-conf-test] +        | True -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test]               in (found, x : rest)
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Main.hs:170:14-19
[opt-env-conf-test] @@ -167,7 +167,7 @@
[opt-env-conf-test]  consumeExactArg arg = go
[opt-env-conf-test]    where
[opt-env-conf-test]      go = \case
[opt-env-conf-test] -      [] -> (False, [])
[opt-env-conf-test] +      [] -> (True, [])
[opt-env-conf-test]        (x : xs)
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:172:11-19
[opt-env-conf-test] @@ -169,7 +169,7 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> (False, [])
[opt-env-conf-test]        (x : xs)
[opt-env-conf-test] -        | x == arg -> (True, xs)
[opt-env-conf-test] +        | not (x == arg) -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test]               in (found, x : rest)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf-test] @@ -196,13 +196,13 @@
[opt-env-conf-test]        [] -> (caps, [])
[opt-env-conf-test]        (x : xs) ->
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Main.hs:184:7-38
[opt-env-conf-test] @@ -181,9 +181,9 @@
[opt-env-conf-test]  consumeHelpMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeHelpMode as =
[opt-env-conf-test]    let (found, as') = consumeExactArg "--help" as
[opt-env-conf-test] -   in if found
[opt-env-conf-test] -        then (True, as')
[opt-env-conf-test] -        else consumeExactArg "-h" as'
[opt-env-conf-test] +   in if found
[opt-env-conf-test] +        then (True, as')
[opt-env-conf-test] +        else consumeExactArg "-h" as'
[opt-env-conf-test]  
[opt-env-conf-test]  consumeCheckMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeCheckMode = consumeExactArg "--run-settings-check"
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]                      generateFishCompletionScript progPath progname
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    runCompletionQuery p' False index ws
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]                      generateFishCompletionScript progPath progname
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    runCompletionQuery p' not (enriched) index ws
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf-test] @@ -108,7 +108,7 @@
[opt-env-conf-test]            let readyArgs = Args.parseArgs args'''
[opt-env-conf-test]  
[opt-env-conf-test]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf-test] -          if checkMode
[opt-env-conf-test] +          if True
[opt-env-conf-test]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf-test]              else do
[opt-env-conf-test]                let p' = internalParser p
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf-test] @@ -108,7 +108,7 @@
[opt-env-conf-test]            let readyArgs = Args.parseArgs args'''
[opt-env-conf-test]  
[opt-env-conf-test]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf-test] -          if checkMode
[opt-env-conf-test] +          if not (checkMode)
[opt-env-conf-test]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf-test]              else do
[opt-env-conf-test]                let p' = internalParser p
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:161:43-51
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]                      generateFishCompletionScript progPath progname
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    runCompletionQuery p' True index ws
[opt-env-conf-test]                      exitSuccess
[opt-env-conf-test]                    ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf-test] @@ -97,9 +97,9 @@
[opt-env-conf-test]                exitFailure
[opt-env-conf-test]              Right mCommandDoc -> do
[opt-env-conf-test]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test]                exitSuccess
[opt-env-conf-test]          else do
[opt-env-conf-test]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf-test] @@ -93,6 +93,6 @@
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf-test] @@ -91,8 +91,8 @@
[opt-env-conf-test]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]          ("# " <>)
[opt-env-conf-test]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test]            "This file was generated by running",
[opt-env-conf-test] -          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] +          unwords [],
[opt-env-conf-test]            T.unpack content
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf-test] @@ -85,10 +85,10 @@
[opt-env-conf-test]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] -      (Nothing, _) -> o2
[opt-env-conf-test] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] +      (Nothing, _) -> o2
[opt-env-conf-test] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf-test] @@ -72,17 +72,17 @@
[opt-env-conf-test]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf-test]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf-test]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf-test] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf-test] -                    Nothing ->
[opt-env-conf-test] -                      let oc =
[opt-env-conf-test] -                            maybe
[opt-env-conf-test] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf-test] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf-test] -                              (T.pack <$> settingHelp s)
[opt-env-conf-test] -                       in objectCodecNixOptions oc
[opt-env-conf-test] -                    Just rest ->
[opt-env-conf-test] -                      let m = go' rest
[opt-env-conf-test] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf-test] +                    Nothing ->
[opt-env-conf-test] +                      let oc =
[opt-env-conf-test] +                            maybe
[opt-env-conf-test] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf-test] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf-test] +                              (T.pack <$> settingHelp s)
[opt-env-conf-test] +                       in objectCodecNixOptions oc
[opt-env-conf-test] +                    Just rest ->
[opt-env-conf-test] +                      let m = go' rest
[opt-env-conf-test] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:75:35-98
[opt-env-conf-test] @@ -72,17 +72,17 @@
[opt-env-conf-test]          let codecTups = maybe [] NE.toList (settingConfigVals s)
[opt-env-conf-test]           in M.unionsWith combineOption $ flip map codecTups $ \ConfigValSetting {..} ->
[opt-env-conf-test]                let go' :: NonEmpty Text -> Map Text Option
[opt-env-conf-test] -                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf-test] -                    Nothing ->
[opt-env-conf-test] -                      let oc =
[opt-env-conf-test] -                            maybe
[opt-env-conf-test] -                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf-test] -                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf-test] -                              (T.pack <$> settingHelp s)
[opt-env-conf-test] -                       in objectCodecNixOptions oc
[opt-env-conf-test] -                    Just rest ->
[opt-env-conf-test] -                      let m = go' rest
[opt-env-conf-test] -                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test] +                  go' (p :| ps) = case NE.nonEmpty ps of
[opt-env-conf-test] +                    Nothing ->
[opt-env-conf-test] +                      let oc =
[opt-env-conf-test] +                            maybe
[opt-env-conf-test] +                              (optionalFieldWith' p configValSettingCodec)
[opt-env-conf-test] +                              (optionalFieldWith p configValSettingCodec)
[opt-env-conf-test] +                              (T.pack <$> settingHelp s)
[opt-env-conf-test] +                       in objectCodecNixOptions oc
[opt-env-conf-test] +                    Just rest ->
[opt-env-conf-test] +                      let m = go' rest
[opt-env-conf-test] +                       in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test]      combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf-test] @@ -85,10 +85,10 @@
[opt-env-conf-test]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] -      (Nothing, _) -> o2
[opt-env-conf-test] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] +      (Nothing, _) -> o2
[opt-env-conf-test] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf-test] @@ -91,8 +91,8 @@
[opt-env-conf-test]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf-test] @@ -85,10 +85,10 @@
[opt-env-conf-test]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] -      (Nothing, _) -> o2
[opt-env-conf-test] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] +      (Nothing, _) -> o2
[opt-env-conf-test] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf-test] @@ -93,6 +93,6 @@
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +      _ -> OptionTypeOneOf []
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf-test] @@ -700,11 +700,11 @@
[opt-env-conf-test]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf-test]  ppOpt ds = do
[opt-env-conf-test]    args <- gets ppStateArgs
[opt-env-conf-test] -  case Args.consumeOption ds args of
[opt-env-conf-test] -    Nothing -> pure Nothing
[opt-env-conf-test] -    Just (a, args') -> do
[opt-env-conf-test] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] -      pure (Just a)
[opt-env-conf-test] +  case Args.consumeOption ds args of
[opt-env-conf-test] +    Nothing -> pure Nothing
[opt-env-conf-test] +    Just (a, args') -> do
[opt-env-conf-test] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] +      pure (Just a)
[opt-env-conf-test]  
[opt-env-conf-test]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf-test]  ppSwitch ds = do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf-test] @@ -33,11 +33,7 @@
[opt-env-conf-test]      unlines $
[opt-env-conf-test]        map
[opt-env-conf-test]          ("# " <>)
[opt-env-conf-test] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -          "This file was generated by running",
[opt-env-conf-test] -          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] -          T.unpack content
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        []
[opt-env-conf-test]  
[opt-env-conf-test]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf-test]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf-test] @@ -709,11 +709,11 @@
[opt-env-conf-test]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf-test]  ppSwitch ds = do
[opt-env-conf-test]    args <- gets ppStateArgs
[opt-env-conf-test] -  case Args.consumeSwitch ds args of
[opt-env-conf-test] -    Nothing -> pure Nothing
[opt-env-conf-test] -    Just args' -> do
[opt-env-conf-test] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] -      pure (Just ())
[opt-env-conf-test] +  case Args.consumeSwitch ds args of
[opt-env-conf-test] +    Nothing -> pure Nothing
[opt-env-conf-test] +    Just args' -> do
[opt-env-conf-test] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] +      pure (Just ())
[opt-env-conf-test]  
[opt-env-conf-test]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf-test]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:712:3-21
[opt-env-conf-test] @@ -709,11 +709,11 @@
[opt-env-conf-test]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf-test]  ppSwitch ds = do
[opt-env-conf-test]    args <- gets ppStateArgs
[opt-env-conf-test] -  case Args.consumeSwitch ds args of
[opt-env-conf-test] -    Nothing -> pure Nothing
[opt-env-conf-test] -    Just args' -> do
[opt-env-conf-test] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] -      pure (Just ())
[opt-env-conf-test] +  case Args.consumeSwitch ds args of
[opt-env-conf-test] +    Nothing -> pure Nothing
[opt-env-conf-test] +    Just args' -> do
[opt-env-conf-test] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] +      pure (Just ())
[opt-env-conf-test]  
[opt-env-conf-test]  ppErrors' :: NonEmpty ParseError -> PP a
[opt-env-conf-test]  ppErrors' = PP . lift . ValidationT . lift . pure . Failure
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf-test] @@ -33,11 +33,10 @@
[opt-env-conf-test]      unlines $
[opt-env-conf-test]        map
[opt-env-conf-test]          ("# " <>)
[opt-env-conf-test] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -          "This file was generated by running",
[opt-env-conf-test] -          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] -          T.unpack content
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +          "This file was generated by running",
[opt-env-conf-test] +          unwords [progname, "--render-nix-options"]
[opt-env-conf-test] +]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf-test]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:36:9-10
[opt-env-conf-test] @@ -33,11 +33,11 @@
[opt-env-conf-test]      unlines $
[opt-env-conf-test]        map
[opt-env-conf-test]          ("# " <>)
[opt-env-conf-test] -        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] -          "This file was generated by running",
[opt-env-conf-test] -          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] -          T.unpack content
[opt-env-conf-test] -        ]
[opt-env-conf-test] +        [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test] +          "This file was generated by running",
[opt-env-conf-test] +          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] +          T.unpack content
[opt-env-conf-test] +        ]
[opt-env-conf-test]  
[opt-env-conf-test]  renderSettingsNixOptions :: forall a. (HasParser a) => Text
[opt-env-conf-test]  renderSettingsNixOptions = renderParserNixOptions (settingsParser :: Parser a)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Nix.hs:38:19-53
[opt-env-conf-test] @@ -35,7 +35,7 @@
[opt-env-conf-test]          ("# " <>)
[opt-env-conf-test]          [ "DO NOT EDIT THIS FILE DIRECTLY",
[opt-env-conf-test]            "This file was generated by running",
[opt-env-conf-test] -          unwords [progname, "--render-nix-options"],
[opt-env-conf-test] +          unwords [progname, "--render-nix-options"],
[opt-env-conf-test]            T.unpack content
[opt-env-conf-test]          ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test]    case errOrRes of
[opt-env-conf-test]      Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] +      if not (all errorIsForgivable errs)
[opt-env-conf-test]          then do
[opt-env-conf-test]            pure Nothing
[opt-env-conf-test]          else ppErrors' errs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf-test] @@ -513,9 +513,9 @@
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test]    case mResOrNext of
[opt-env-conf-test]      Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf-test] @@ -511,11 +511,11 @@
[opt-env-conf-test]              ppEnvIndent = 0
[opt-env-conf-test]            }
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test] -  case mResOrNext of
[opt-env-conf-test] -    Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +  case mResOrNext of
[opt-env-conf-test] +    Nothing -> pure $ Right Nothing
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:553:30-37
[opt-env-conf-test] @@ -550,9 +550,9 @@
[opt-env-conf-test]                    Just a -> do
[opt-env-conf-test]                      debug ["Left side succeeded."]
[opt-env-conf-test]                      pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:703:3-20
[opt-env-conf-test] @@ -700,11 +700,11 @@
[opt-env-conf-test]  ppOpt :: [Dashed] -> PP (Maybe String)
[opt-env-conf-test]  ppOpt ds = do
[opt-env-conf-test]    args <- gets ppStateArgs
[opt-env-conf-test] -  case Args.consumeOption ds args of
[opt-env-conf-test] -    Nothing -> pure Nothing
[opt-env-conf-test] -    Just (a, args') -> do
[opt-env-conf-test] -      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] -      pure (Just a)
[opt-env-conf-test] +  case Args.consumeOption ds args of
[opt-env-conf-test] +    Nothing -> pure Nothing
[opt-env-conf-test] +    Just (a, args') -> do
[opt-env-conf-test] +      modify' (\s -> s {ppStateArgs = args'})
[opt-env-conf-test] +      pure (Just a)
[opt-env-conf-test]  
[opt-env-conf-test]  ppSwitch :: [Dashed] -> PP (Maybe ())
[opt-env-conf-test]  ppSwitch ds = do
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:535:35-33
[opt-env-conf-test] @@ -532,12 +532,12 @@
[opt-env-conf-test]                  mf <- go ff
[opt-env-conf-test]                  ma <- go fa
[opt-env-conf-test]                  pure $ ma <|> mf -- Reverse order
[opt-env-conf-test] -            ParserSelect fe ff -> do
[opt-env-conf-test] -              debug [syntaxChunk "Select"]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                me <- go fe
[opt-env-conf-test] -                mf <- go ff
[opt-env-conf-test] -                pure $ mf <|> me -- Reverse order
[opt-env-conf-test] +            ParserSelect fe ff -> do
[opt-env-conf-test] +              debug [syntaxChunk "Select"]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                me <- go fe
[opt-env-conf-test] +                mf <- go ff
[opt-env-conf-test] +                pure $ mf <|> me -- Reverse order
[opt-env-conf-test]              ParserEmpty mLoc -> do
[opt-env-conf-test]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:544:32-37
[opt-env-conf-test] @@ -541,18 +541,18 @@
[opt-env-conf-test]              ParserEmpty mLoc -> do
[opt-env-conf-test]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] -            ParserAlt p1 p2 -> do
[opt-env-conf-test] -              debug [syntaxChunk "Alt"]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                debug ["Trying left side."]
[opt-env-conf-test] -                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -                case eor of
[opt-env-conf-test] -                  Just a -> do
[opt-env-conf-test] -                    debug ["Left side succeeded."]
[opt-env-conf-test] -                    pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +            ParserAlt p1 p2 -> do
[opt-env-conf-test] +              debug [syntaxChunk "Alt"]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                debug ["Trying left side."]
[opt-env-conf-test] +                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] +                case eor of
[opt-env-conf-test] +                  Just a -> do
[opt-env-conf-test] +                    debug ["Left side succeeded."]
[opt-env-conf-test] +                    pure a
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf-test] @@ -554,7 +554,7 @@
[opt-env-conf-test]                      debug ["Left side failed, trying right side."]
[opt-env-conf-test]                      ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug []
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Main.hs:111:14-23
[opt-env-conf-test] @@ -108,7 +108,7 @@
[opt-env-conf-test]            let readyArgs = Args.parseArgs args'''
[opt-env-conf-test]  
[opt-env-conf-test]            let mConfig = Nothing -- We start with no config loaded.
[opt-env-conf-test] -          if checkMode
[opt-env-conf-test] +          if False
[opt-env-conf-test]              then runSettingsCheck capabilities p readyArgs envVars mConfig
[opt-env-conf-test]              else do
[opt-env-conf-test]                let p' = internalParser p
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf-test] @@ -554,7 +554,8 @@
[opt-env-conf-test]                      debug ["Left side failed, trying right side."]
[opt-env-conf-test]                      ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Many", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:556:35-31
[opt-env-conf-test] @@ -553,9 +553,9 @@
[opt-env-conf-test]                    Nothing -> do
[opt-env-conf-test]                      debug ["Left side failed, trying right side."]
[opt-env-conf-test]                      ppIndent $ go p2
[opt-env-conf-test] -            ParserMany mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserMany mLoc p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:529:31-33
[opt-env-conf-test] @@ -526,12 +526,12 @@
[opt-env-conf-test]              ParserPure _ -> do
[opt-env-conf-test]                debug [syntaxChunk "pure value"]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] -            ParserAp ff fa -> do
[opt-env-conf-test] -              debug [syntaxChunk "Ap"]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                mf <- go ff
[opt-env-conf-test] -                ma <- go fa
[opt-env-conf-test] -                pure $ ma <|> mf -- Reverse order
[opt-env-conf-test] +            ParserAp ff fa -> do
[opt-env-conf-test] +              debug [syntaxChunk "Ap"]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                mf <- go ff
[opt-env-conf-test] +                ma <- go fa
[opt-env-conf-test] +                pure $ ma <|> mf -- Reverse order
[opt-env-conf-test]              ParserSelect fe ff -> do
[opt-env-conf-test]                debug [syntaxChunk "Select"]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf-test] @@ -288,12 +288,11 @@
[opt-env-conf-test]              help "Whether to enable enriched completion"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader auto,
[opt-env-conf-test] +            long "completion-index",
[opt-env-conf-test] +            hidden
[opt-env-conf-test] +]
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ option,
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:511:27-28
[opt-env-conf-test] @@ -508,7 +508,7 @@
[opt-env-conf-test]            { ppEnvEnv = EnvMap.empty,
[opt-env-conf-test]              ppEnvConf = Nothing,
[opt-env-conf-test]              ppEnvDebug = mDebugMode,
[opt-env-conf-test] -            ppEnvIndent = 0
[opt-env-conf-test] +            ppEnvIndent = 1
[opt-env-conf-test]            }
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test]    case mResOrNext of
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:229:5-6
[opt-env-conf-test] @@ -226,82 +226,82 @@
[opt-env-conf-test]  internalParser :: Parser a -> Parser (Internal a)
[opt-env-conf-test]  internalParser p =
[opt-env-conf-test]    choice
[opt-env-conf-test] -    [ setting
[opt-env-conf-test] -        [ switch ShowVersion,
[opt-env-conf-test] -          long "version",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderMan,
[opt-env-conf-test] -          long "render-man-page",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render a manpage"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderDocumentation,
[opt-env-conf-test] -          long "render-reference-documentation",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render reference documentation"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ switch RenderNixosOptions,
[opt-env-conf-test] -          long "render-nix-options",
[opt-env-conf-test] -          hidden,
[opt-env-conf-test] -          help "Render Nix options"
[opt-env-conf-test] -        ],
[opt-env-conf-test] -      BashCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "bash-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the bash completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "zsh-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the zsh completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      ZshCompletionScript
[opt-env-conf-test] -        <$> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] -            long "fish-completion-script",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Render the fish completion script"
[opt-env-conf-test] -          ],
[opt-env-conf-test] -      setting
[opt-env-conf-test] -        [ help "Query completion",
[opt-env-conf-test] -          switch CompletionQuery,
[opt-env-conf-test] -          -- Long string that no normal user would ever use.
[opt-env-conf-test] -          long "query-opt-env-conf-completion",
[opt-env-conf-test] -          hidden
[opt-env-conf-test] -        ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ switch True,
[opt-env-conf-test] -            long "completion-enriched",
[opt-env-conf-test] -            value False,
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "Whether to enable enriched completion"
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        <*> many
[opt-env-conf-test] -          ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] -          ),
[opt-env-conf-test] -      ParsedNormally <$> p
[opt-env-conf-test] -    ]
[opt-env-conf-test] +    [ setting
[opt-env-conf-test] +        [ switch ShowVersion,
[opt-env-conf-test] +          long "version",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderMan,
[opt-env-conf-test] +          long "render-man-page",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render a manpage"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderDocumentation,
[opt-env-conf-test] +          long "render-reference-documentation",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render reference documentation"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ switch RenderNixosOptions,
[opt-env-conf-test] +          long "render-nix-options",
[opt-env-conf-test] +          hidden,
[opt-env-conf-test] +          help "Render Nix options"
[opt-env-conf-test] +        ],
[opt-env-conf-test] +      BashCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "bash-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the bash completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      ZshCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "zsh-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the zsh completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      ZshCompletionScript
[opt-env-conf-test] +        <$> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader $ maybeReader parseAbsFile,
[opt-env-conf-test] +            long "fish-completion-script",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Render the fish completion script"
[opt-env-conf-test] +          ],
[opt-env-conf-test] +      setting
[opt-env-conf-test] +        [ help "Query completion",
[opt-env-conf-test] +          switch CompletionQuery,
[opt-env-conf-test] +          -- Long string that no normal user would ever use.
[opt-env-conf-test] +          long "query-opt-env-conf-completion",
[opt-env-conf-test] +          hidden
[opt-env-conf-test] +        ]
[opt-env-conf-test] +        <*> setting
[opt-env-conf-test] +          [ switch True,
[opt-env-conf-test] +            long "completion-enriched",
[opt-env-conf-test] +            value False,
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "Whether to enable enriched completion"
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        <*> setting
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader auto,
[opt-env-conf-test] +            long "completion-index",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        <*> many
[opt-env-conf-test] +          ( setting
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                long "completion-word",
[opt-env-conf-test] +                hidden,
[opt-env-conf-test] +                help "The words (arguments) that have already been typed"
[opt-env-conf-test] +              ]
[opt-env-conf-test] +          ),
[opt-env-conf-test] +      ParsedNormally <$> p
[opt-env-conf-test] +    ]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf-test] @@ -511,11 +511,11 @@
[opt-env-conf-test]              ppEnvIndent = 0
[opt-env-conf-test]            }
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test] -  case mResOrNext of
[opt-env-conf-test] -    Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +  case mResOrNext of
[opt-env-conf-test] +    Nothing -> pure $ Right Nothing
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf-test] @@ -546,13 +546,13 @@
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  debug ["Trying left side."]
[opt-env-conf-test]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -                case eor of
[opt-env-conf-test] -                  Just a -> do
[opt-env-conf-test] -                    debug ["Left side succeeded."]
[opt-env-conf-test] -                    pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +                case eor of
[opt-env-conf-test] +                  Just a -> do
[opt-env-conf-test] +                    debug ["Left side succeeded."]
[opt-env-conf-test] +                    pure a
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:557:21-66
[opt-env-conf-test] @@ -554,7 +554,7 @@
[opt-env-conf-test]                      debug ["Left side failed, trying right side."]
[opt-env-conf-test]                      ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf-test] @@ -513,9 +513,9 @@
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test]    case mResOrNext of
[opt-env-conf-test]      Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf-test] @@ -296,12 +296,7 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              []
[opt-env-conf-test]            ),
[opt-env-conf-test]        ParsedNormally <$> p
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf-test] @@ -557,7 +557,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug []
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:299:15-16
[opt-env-conf-test] @@ -296,12 +296,12 @@
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test] -              [ option,
[opt-env-conf-test] -                reader str,
[opt-env-conf-test] -                long "completion-word",
[opt-env-conf-test] -                hidden,
[opt-env-conf-test] -                help "The words (arguments) that have already been typed"
[opt-env-conf-test] -              ]
[opt-env-conf-test] +              [ option,
[opt-env-conf-test] +                reader str,
[opt-env-conf-test] +                long "completion-word",
[opt-env-conf-test] +                hidden,
[opt-env-conf-test] +                help "The words (arguments) that have already been typed"
[opt-env-conf-test] +              ]
[opt-env-conf-test]            ),
[opt-env-conf-test]        ParsedNormally <$> p
[opt-env-conf-test]      ]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf-test] @@ -633,15 +633,15 @@
[opt-env-conf-test]    e <- ask
[opt-env-conf-test]    results <- liftIO $ runPP pp s e
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test] -  case errOrRes of
[opt-env-conf-test] -    Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] -        then do
[opt-env-conf-test] -          pure Nothing
[opt-env-conf-test] -        else ppErrors' errs
[opt-env-conf-test] -    Success a -> do
[opt-env-conf-test] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf-test] -      pure $ Just a
[opt-env-conf-test] +  case errOrRes of
[opt-env-conf-test] +    Failure errs ->
[opt-env-conf-test] +      if all errorIsForgivable errs
[opt-env-conf-test] +        then do
[opt-env-conf-test] +          pure Nothing
[opt-env-conf-test] +        else ppErrors' errs
[opt-env-conf-test] +    Success a -> do
[opt-env-conf-test] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf-test] +      pure $ Just a
[opt-env-conf-test]  
[opt-env-conf-test]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf-test]  ppNonDet = PP . lift . lift . lift
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf-test] @@ -546,13 +546,13 @@
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  debug ["Trying left side."]
[opt-env-conf-test]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -                case eor of
[opt-env-conf-test] -                  Just a -> do
[opt-env-conf-test] -                    debug ["Left side succeeded."]
[opt-env-conf-test] -                    pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +                case eor of
[opt-env-conf-test] +                  Just a -> do
[opt-env-conf-test] +                    debug ["Left side succeeded."]
[opt-env-conf-test] +                    pure a
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Main.hs:291:11-12
[opt-env-conf-test] @@ -288,12 +288,12 @@
[opt-env-conf-test]              help "Whether to enable enriched completion"
[opt-env-conf-test]            ]
[opt-env-conf-test]          <*> setting
[opt-env-conf-test] -          [ option,
[opt-env-conf-test] -            reader auto,
[opt-env-conf-test] -            long "completion-index",
[opt-env-conf-test] -            hidden,
[opt-env-conf-test] -            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] -          ]
[opt-env-conf-test] +          [ option,
[opt-env-conf-test] +            reader auto,
[opt-env-conf-test] +            long "completion-index",
[opt-env-conf-test] +            hidden,
[opt-env-conf-test] +            help "The index between the arguments where completion was invoked."
[opt-env-conf-test] +          ]
[opt-env-conf-test]          <*> many
[opt-env-conf-test]            ( setting
[opt-env-conf-test]                [ option,
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:636:3-20
[opt-env-conf-test] @@ -633,15 +633,15 @@
[opt-env-conf-test]    e <- ask
[opt-env-conf-test]    results <- liftIO $ runPP pp s e
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test] -  case errOrRes of
[opt-env-conf-test] -    Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] -        then do
[opt-env-conf-test] -          pure Nothing
[opt-env-conf-test] -        else ppErrors' errs
[opt-env-conf-test] -    Success a -> do
[opt-env-conf-test] -      put s' -- Only set state if parsing succeeded.
[opt-env-conf-test] -      pure $ Just a
[opt-env-conf-test] +  case errOrRes of
[opt-env-conf-test] +    Failure errs ->
[opt-env-conf-test] +      if all errorIsForgivable errs
[opt-env-conf-test] +        then do
[opt-env-conf-test] +          pure Nothing
[opt-env-conf-test] +        else ppErrors' errs
[opt-env-conf-test] +    Success a -> do
[opt-env-conf-test] +      put s' -- Only set state if parsing succeeded.
[opt-env-conf-test] +      pure $ Just a
[opt-env-conf-test]  
[opt-env-conf-test]  ppNonDet :: NonDetT IO a -> PP a
[opt-env-conf-test]  ppNonDet = PP . lift . lift . lift
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test]    case errOrRes of
[opt-env-conf-test]      Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] +      if False
[opt-env-conf-test]          then do
[opt-env-conf-test]            pure Nothing
[opt-env-conf-test]          else ppErrors' errs
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:638:7-28
[opt-env-conf-test] @@ -635,10 +635,10 @@
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test]    case errOrRes of
[opt-env-conf-test]      Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] -        then do
[opt-env-conf-test] -          pure Nothing
[opt-env-conf-test] -        else ppErrors' errs
[opt-env-conf-test] +      if all errorIsForgivable errs
[opt-env-conf-test] +        then do
[opt-env-conf-test] +          pure Nothing
[opt-env-conf-test] +        else ppErrors' errs
[opt-env-conf-test]      Success a -> do
[opt-env-conf-test]        put s' -- Only set state if parsing succeeded.
[opt-env-conf-test]        pure $ Just a
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:638:10-36
[opt-env-conf-test] @@ -635,7 +635,7 @@
[opt-env-conf-test]    (errOrRes, s') <- ppNonDetList results
[opt-env-conf-test]    case errOrRes of
[opt-env-conf-test]      Failure errs ->
[opt-env-conf-test] -      if all errorIsForgivable errs
[opt-env-conf-test] +      if True
[opt-env-conf-test]          then do
[opt-env-conf-test]            pure Nothing
[opt-env-conf-test]          else ppErrors' errs
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:559:35-31
[opt-env-conf-test] @@ -556,9 +556,9 @@
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserSome mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserSome mLoc p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:560:21-66
[opt-env-conf-test] @@ -557,7 +557,8 @@
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Some", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf-test] @@ -591,9 +591,9 @@
[opt-env-conf-test]                        Just c -> do
[opt-env-conf-test]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf-test] @@ -584,16 +584,16 @@
[opt-env-conf-test]                      debug ["No argument found for choosing a command."]
[opt-env-conf-test]                      pure Nothing
[opt-env-conf-test]                    Just s -> do
[opt-env-conf-test] -                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                      Nothing -> do
[opt-env-conf-test] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] -                        pure Nothing
[opt-env-conf-test] -                      Just c -> do
[opt-env-conf-test] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                      Nothing -> do
[opt-env-conf-test] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] +                        pure Nothing
[opt-env-conf-test] +                      Just c -> do
[opt-env-conf-test] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation IntLit at src/OptEnvConf/Run.hs:75:27-28
[opt-env-conf-test] @@ -72,7 +72,7 @@
[opt-env-conf-test]            { ppEnvEnv = envVars,
[opt-env-conf-test]              ppEnvConf = mConfig,
[opt-env-conf-test]              ppEnvDebug = mDebugMode,
[opt-env-conf-test] -            ppEnvIndent = 0
[opt-env-conf-test] +            ppEnvIndent = 1
[opt-env-conf-test]            }
[opt-env-conf-test]    let go' = do
[opt-env-conf-test]          result <- go parser
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf-test] @@ -77,9 +77,9 @@
[opt-env-conf-test]    let go' = do
[opt-env-conf-test]          result <- go parser
[opt-env-conf-test]          leftoverArgs <- gets ppStateArgs
[opt-env-conf-test] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf-test] -          Nothing -> pure result
[opt-env-conf-test] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf-test] +          Nothing -> pure result
[opt-env-conf-test] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test]    case mTup of
[opt-env-conf-test]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf-test] @@ -460,13 +460,13 @@
[opt-env-conf-test]    PP a ->
[opt-env-conf-test]    PP a
[opt-env-conf-test]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf-test] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] -    Just missings -> do
[opt-env-conf-test] -      debug $
[opt-env-conf-test] -        "Missing capabilities: "
[opt-env-conf-test] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] -    Nothing -> func
[opt-env-conf-test] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] +    Just missings -> do
[opt-env-conf-test] +      debug $
[opt-env-conf-test] +        "Missing capabilities: "
[opt-env-conf-test] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] +    Nothing -> func
[opt-env-conf-test]  
[opt-env-conf-test]  data ParseResult a
[opt-env-conf-test]    = NotRun
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:80:9-79
[opt-env-conf-test] @@ -77,9 +77,9 @@
[opt-env-conf-test]    let go' = do
[opt-env-conf-test]          result <- go parser
[opt-env-conf-test]          leftoverArgs <- gets ppStateArgs
[opt-env-conf-test] -        case recogniseLeftovers leftoverArgs of
[opt-env-conf-test] -          Nothing -> pure result
[opt-env-conf-test] -          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test] +        case recogniseLeftovers leftoverArgs of
[opt-env-conf-test] +          Nothing -> pure result
[opt-env-conf-test] +          Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test]    case mTup of
[opt-env-conf-test]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf-test] @@ -94,9 +94,9 @@
[opt-env-conf-test]                    pure $
[opt-env-conf-test]                      Left $
[opt-env-conf-test]                        -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test]                         in f firstErrors
[opt-env-conf-test]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test]                    Success a -> pure (Right a)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf-test] @@ -98,9 +98,9 @@
[opt-env-conf-test]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf-test]                              Just _ -> id
[opt-env-conf-test]                         in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test]           in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:101:41-43
[opt-env-conf-test] @@ -98,9 +98,9 @@
[opt-env-conf-test]                              Nothing -> eraseErrorSrcLocs
[opt-env-conf-test]                              Just _ -> id
[opt-env-conf-test]                         in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test]           in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf-test] @@ -89,18 +89,18 @@
[opt-env-conf-test]          let goNexts ns = do
[opt-env-conf-test]                -- TODO: Consider keeping around all errors?
[opt-env-conf-test]                mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test]           in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:92:15-43
[opt-env-conf-test] @@ -89,18 +89,18 @@
[opt-env-conf-test]          let goNexts ns = do
[opt-env-conf-test]                -- TODO: Consider keeping around all errors?
[opt-env-conf-test]                mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test]           in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf-test] @@ -83,25 +83,25 @@
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test]    case mTup of
[opt-env-conf-test]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] -      Success a -> pure (Right a)
[opt-env-conf-test] -      Failure firstErrors ->
[opt-env-conf-test] -        let goNexts ns = do
[opt-env-conf-test] -              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] -              mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] -         in goNexts nexts
[opt-env-conf-test] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] +      Success a -> pure (Right a)
[opt-env-conf-test] +      Failure firstErrors ->
[opt-env-conf-test] +        let goNexts ns = do
[opt-env-conf-test] +              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] +              mNext <- runNonDetTLazy ns
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test] +         in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test]        Parser a ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:86:36-26
[opt-env-conf-test] @@ -83,25 +83,25 @@
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test]    case mTup of
[opt-env-conf-test]      Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] -      Success a -> pure (Right a)
[opt-env-conf-test] -      Failure firstErrors ->
[opt-env-conf-test] -        let goNexts ns = do
[opt-env-conf-test] -              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] -              mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] -         in goNexts nexts
[opt-env-conf-test] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] +      Success a -> pure (Right a)
[opt-env-conf-test] +      Failure firstErrors ->
[opt-env-conf-test] +        let goNexts ns = do
[opt-env-conf-test] +              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] +              mNext <- runNonDetTLazy ns
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test] +         in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test]        Parser a ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf-test] @@ -81,27 +81,27 @@
[opt-env-conf-test]            Nothing -> pure result
[opt-env-conf-test]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test] -  case mTup of
[opt-env-conf-test] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] -      Success a -> pure (Right a)
[opt-env-conf-test] -      Failure firstErrors ->
[opt-env-conf-test] -        let goNexts ns = do
[opt-env-conf-test] -              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] -              mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] -         in goNexts nexts
[opt-env-conf-test] +  case mTup of
[opt-env-conf-test] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] +      Success a -> pure (Right a)
[opt-env-conf-test] +      Failure firstErrors ->
[opt-env-conf-test] +        let goNexts ns = do
[opt-env-conf-test] +              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] +              mNext <- runNonDetTLazy ns
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test] +         in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test]        Parser a ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf-test] @@ -81,27 +81,27 @@
[opt-env-conf-test]            Nothing -> pure result
[opt-env-conf-test]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test] -  case mTup of
[opt-env-conf-test] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] -      Success a -> pure (Right a)
[opt-env-conf-test] -      Failure firstErrors ->
[opt-env-conf-test] -        let goNexts ns = do
[opt-env-conf-test] -              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] -              mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] -         in goNexts nexts
[opt-env-conf-test] +  case mTup of
[opt-env-conf-test] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] +      Success a -> pure (Right a)
[opt-env-conf-test] +      Failure firstErrors ->
[opt-env-conf-test] +        let goNexts ns = do
[opt-env-conf-test] +              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] +              mNext <- runNonDetTLazy ns
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test] +         in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test]        Parser a ->
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:113:25-35
[opt-env-conf-test] @@ -110,9 +110,9 @@
[opt-env-conf-test]        ParserPure a -> do
[opt-env-conf-test]          debug [syntaxChunk "pure value"]
[opt-env-conf-test]          pure a
[opt-env-conf-test] -      ParserAp ff fa -> do
[opt-env-conf-test] -        debug [syntaxChunk "Ap"]
[opt-env-conf-test] -        ppIndent $ go ff <*> go fa
[opt-env-conf-test] +      ParserAp ff fa -> do
[opt-env-conf-test] +        debug [syntaxChunk "Ap"]
[opt-env-conf-test] +        ppIndent $ go ff <*> go fa
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]          debug [syntaxChunk "Ap"]
[opt-env-conf-test]          ppIndent $ go ff <*> go fa
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]          debug [syntaxChunk "Ap"]
[opt-env-conf-test]          ppIndent $ go ff <*> go fa
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf-test] @@ -474,9 +474,9 @@
[opt-env-conf-test]    | Found a
[opt-env-conf-test]  
[opt-env-conf-test]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] -  Just ne -> pure ne
[opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] +  Just ne -> pure ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- Try the readers in order
[opt-env-conf-test]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:117:15-61
[opt-env-conf-test] @@ -114,7 +114,8 @@
[opt-env-conf-test]          debug [syntaxChunk "Ap"]
[opt-env-conf-test]          ppIndent $ go ff <*> go fa
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Empty", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:464:22-66
[opt-env-conf-test] @@ -461,11 +461,11 @@
[opt-env-conf-test]    PP a
[opt-env-conf-test]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf-test]    case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] -    Just missings -> do
[opt-env-conf-test] -      debug $
[opt-env-conf-test] -        "Missing capabilities: "
[opt-env-conf-test] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] +    Just missings -> do
[opt-env-conf-test] +      debug $
[opt-env-conf-test] +        "Missing capabilities: "
[opt-env-conf-test] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test]      Nothing -> func
[opt-env-conf-test]  
[opt-env-conf-test]  data ParseResult a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:97:31-41
[opt-env-conf-test] @@ -94,9 +94,9 @@
[opt-env-conf-test]                    pure $
[opt-env-conf-test]                      Left $
[opt-env-conf-test]                        -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test]                         in f firstErrors
[opt-env-conf-test]                  Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test]                    Success a -> pure (Right a)
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:116:27-37
[opt-env-conf-test] @@ -113,9 +113,9 @@
[opt-env-conf-test]        ParserAp ff fa -> do
[opt-env-conf-test]          debug [syntaxChunk "Ap"]
[opt-env-conf-test]          ppIndent $ go ff <*> go fa
[opt-env-conf-test] -      ParserEmpty mLoc -> do
[opt-env-conf-test] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppError mLoc ParseErrorEmpty
[opt-env-conf-test] +      ParserEmpty mLoc -> do
[opt-env-conf-test] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppError mLoc ParseErrorEmpty
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test]          ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:119:29-42
[opt-env-conf-test] @@ -116,9 +116,9 @@
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test] -      ParserSelect fe ff -> do
[opt-env-conf-test] -        debug [syntaxChunk "Select"]
[opt-env-conf-test] -        ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] +      ParserSelect fe ff -> do
[opt-env-conf-test] +        debug [syntaxChunk "Select"]
[opt-env-conf-test] +        ppIndent $ select (go fe) (go ff)
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          debug [syntaxChunk "Alt"]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:131:24-31
[opt-env-conf-test] @@ -128,9 +128,9 @@
[opt-env-conf-test]              Just a -> do
[opt-env-conf-test]                debug ["Left side succeeded."]
[opt-env-conf-test]                pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf-test] @@ -124,13 +124,13 @@
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            debug ["Trying left side."]
[opt-env-conf-test]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              debug ["Left side succeeded."]
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              debug ["Left side succeeded."]
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:127:11-31
[opt-env-conf-test] @@ -124,13 +124,13 @@
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            debug ["Trying left side."]
[opt-env-conf-test]            eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              debug ["Left side succeeded."]
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              debug ["Left side succeeded."]
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:122:26-31
[opt-env-conf-test] @@ -119,18 +119,18 @@
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test]          ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] -      ParserAlt p1 p2 -> do
[opt-env-conf-test] -        debug [syntaxChunk "Alt"]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          debug ["Trying left side."]
[opt-env-conf-test] -          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              debug ["Left side succeeded."]
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +      ParserAlt p1 p2 -> do
[opt-env-conf-test] +        debug [syntaxChunk "Alt"]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          debug ["Trying left side."]
[opt-env-conf-test] +          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              debug ["Left side succeeded."]
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,7 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,7 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf-test] @@ -474,9 +474,9 @@
[opt-env-conf-test]    | Found a
[opt-env-conf-test]  
[opt-env-conf-test]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] -  Just ne -> pure ne
[opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] +  Just ne -> pure ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- Try the readers in order
[opt-env-conf-test]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf-test] @@ -135,11 +135,11 @@
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Nothing -> pure []
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              as <- go (ParserMany mLoc p')
[opt-env-conf-test] -              pure (a : as)
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Nothing -> pure []
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              as <- go (ParserMany mLoc p')
[opt-env-conf-test] +              pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:138:11-28
[opt-env-conf-test] @@ -135,11 +135,11 @@
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Nothing -> pure []
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              as <- go (ParserMany mLoc p')
[opt-env-conf-test] -              pure (a : as)
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Nothing -> pure []
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              as <- go (ParserMany mLoc p')
[opt-env-conf-test] +              pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,8 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:134:29-28
[opt-env-conf-test] @@ -131,15 +131,15 @@
[opt-env-conf-test]              Nothing -> do
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test] -      ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          eor <- tryPP $ go p'
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Nothing -> pure []
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              as <- go (ParserMany mLoc p')
[opt-env-conf-test] -              pure (a : as)
[opt-env-conf-test] +      ParserMany mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          eor <- tryPP $ go p'
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Nothing -> pure []
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              as <- go (ParserMany mLoc p')
[opt-env-conf-test] +              pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]                as <- go (ParserMany mLoc p')
[opt-env-conf-test]                pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            a <- go p'
[opt-env-conf-test]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]                as <- go (ParserMany mLoc p')
[opt-env-conf-test]                pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            a <- go p'
[opt-env-conf-test]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:144:15-60
[opt-env-conf-test] @@ -141,7 +141,8 @@
[opt-env-conf-test]                as <- go (ParserMany mLoc p')
[opt-env-conf-test]                pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Some", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            a <- go p'
[opt-env-conf-test]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  mNewConfig <- go pc
[opt-env-conf-test]                  mRes <- go pa
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf-test] @@ -566,7 +566,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug []
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  mNewConfig <- go pc
[opt-env-conf-test]                  mRes <- go pa
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf-test] @@ -563,7 +563,8 @@
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Parser with check", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf-test] @@ -487,9 +487,9 @@
[opt-env-conf-test]        Right a -> Right a
[opt-env-conf-test]      go' errs = \case
[opt-env-conf-test]        [] -> Left errs
[opt-env-conf-test] -      (r : rl) -> case runReader r s of
[opt-env-conf-test] -        Left err -> go' (err <| errs) rl
[opt-env-conf-test] -        Right a -> Right a
[opt-env-conf-test] +      (r : rl) -> case runReader r s of
[opt-env-conf-test] +        Left err -> go' (err <| errs) rl
[opt-env-conf-test] +        Right a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  runHelpParser ::
[opt-env-conf-test]    -- DebugMode
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:565:42-31
[opt-env-conf-test] @@ -562,9 +562,9 @@
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf-test] @@ -579,21 +579,21 @@
[opt-env-conf-test]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  mS <- ppArg
[opt-env-conf-test] -                case mS of
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["No argument found for choosing a command."]
[opt-env-conf-test] -                    pure Nothing
[opt-env-conf-test] -                  Just s -> do
[opt-env-conf-test] -                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                      Nothing -> do
[opt-env-conf-test] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] -                        pure Nothing
[opt-env-conf-test] -                      Just c -> do
[opt-env-conf-test] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                case mS of
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["No argument found for choosing a command."]
[opt-env-conf-test] +                    pure Nothing
[opt-env-conf-test] +                  Just s -> do
[opt-env-conf-test] +                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                      Nothing -> do
[opt-env-conf-test] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] +                        pure Nothing
[opt-env-conf-test] +                      Just c -> do
[opt-env-conf-test] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf-test] @@ -148,7 +148,8 @@
[opt-env-conf-test]            as <- go (ParserMany mLoc p')
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            e <- ask
[opt-env-conf-test]            s <- get
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:569:21-72
[opt-env-conf-test] @@ -566,7 +566,8 @@
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "WithConfig", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  mNewConfig <- go pc
[opt-env-conf-test]                  mRes <- go pa
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if not $ True
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if not $ not (all errorIsForgivable errs)
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if True
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if not $ False
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]            as <- go (ParserMany mLoc p')
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            e <- ask
[opt-env-conf-test]            s <- get
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:151:15-68
[opt-env-conf-test] @@ -148,7 +148,7 @@
[opt-env-conf-test]            as <- go (ParserMany mLoc p')
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            e <- ask
[opt-env-conf-test]            s <- get
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Lint.hs:216:13-14
[opt-env-conf-test] @@ -213,12 +213,12 @@
[opt-env-conf-test]                functionChunk "name",
[opt-env-conf-test]                " was called with no way to load configuration."
[opt-env-conf-test]              ],
[opt-env-conf-test] -            [ "You can load configuration with ",
[opt-env-conf-test] -              functionChunk "withConfig",
[opt-env-conf-test] -              ", or explicitly not load any configuration with ",
[opt-env-conf-test] -              functionChunk "withoutConfig",
[opt-env-conf-test] -              "."
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ "You can load configuration with ",
[opt-env-conf-test] +              functionChunk "withConfig",
[opt-env-conf-test] +              ", or explicitly not load any configuration with ",
[opt-env-conf-test] +              functionChunk "withoutConfig",
[opt-env-conf-test] +              "."
[opt-env-conf-test] +            ]
[opt-env-conf-test]            ]
[opt-env-conf-test]          LintErrorManyInfinite ->
[opt-env-conf-test]            [ [ functionChunk "many",
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if not (not $ all errorIsForgivable errs)
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]                    -- with only forgivable errors
[opt-env-conf-test]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test]                    -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] +                  if False
[opt-env-conf-test]                      then ppErrors' errs
[opt-env-conf-test]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:594:32-47
[opt-env-conf-test] @@ -591,9 +591,9 @@
[opt-env-conf-test]                        Just c -> do
[opt-env-conf-test]                          debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                          mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf-test] @@ -560,7 +560,8 @@
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "AllOrNothing", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:568:44-43
[opt-env-conf-test] @@ -565,12 +565,12 @@
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                mNewConfig <- go pc
[opt-env-conf-test] -                mRes <- go pa
[opt-env-conf-test] -                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf-test] +            ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                mNewConfig <- go pc
[opt-env-conf-test] +                mRes <- go pa
[opt-env-conf-test] +                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf-test]              ParserSetting mLoc _ -> do
[opt-env-conf-test]                debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if False
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug []
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]                    -- with only forgivable errors
[opt-env-conf-test]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test]                    -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] +                  if True
[opt-env-conf-test]                      then ppErrors' errs
[opt-env-conf-test]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:562:43-31
[opt-env-conf-test] @@ -559,9 +559,9 @@
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:143:29-25
[opt-env-conf-test] @@ -140,13 +140,13 @@
[opt-env-conf-test]              Just a -> do
[opt-env-conf-test]                as <- go (ParserMany mLoc p')
[opt-env-conf-test]                pure (a : as)
[opt-env-conf-test] -      ParserSome mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          a <- go p'
[opt-env-conf-test] -          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] -          as <- go (ParserMany mLoc p')
[opt-env-conf-test] -          pure (a :| as)
[opt-env-conf-test] +      ParserSome mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          a <- go p'
[opt-env-conf-test] +          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] +          as <- go (ParserMany mLoc p')
[opt-env-conf-test] +          pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:566:21-79
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf-test] @@ -560,7 +560,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:463:3-20
[opt-env-conf-test] @@ -460,13 +460,13 @@
[opt-env-conf-test]    PP a ->
[opt-env-conf-test]    PP a
[opt-env-conf-test]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf-test] -  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] -    Just missings -> do
[opt-env-conf-test] -      debug $
[opt-env-conf-test] -        "Missing capabilities: "
[opt-env-conf-test] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] -    Nothing -> func
[opt-env-conf-test] +  case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] +    Just missings -> do
[opt-env-conf-test] +      debug $
[opt-env-conf-test] +        "Missing capabilities: "
[opt-env-conf-test] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] +    Nothing -> func
[opt-env-conf-test]  
[opt-env-conf-test]  data ParseResult a
[opt-env-conf-test]    = NotRun
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:563:21-74
[opt-env-conf-test] @@ -560,7 +560,7 @@
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              debug []
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:175:19-112
[opt-env-conf-test] @@ -172,9 +172,9 @@
[opt-env-conf-test]                    -- with only forgivable errors
[opt-env-conf-test]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test]                    -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf-test] @@ -155,26 +155,26 @@
[opt-env-conf-test]            results <- liftIO $ runPP (go p') s e
[opt-env-conf-test]            (result, s') <- ppNonDetList results
[opt-env-conf-test]            put s'
[opt-env-conf-test] -          case result of
[opt-env-conf-test] -            Success a -> pure a
[opt-env-conf-test] -            Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +          case result of
[opt-env-conf-test] +            Success a -> pure a
[opt-env-conf-test] +            Failure errs -> do
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:152:20-112
[opt-env-conf-test] @@ -149,32 +149,32 @@
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          e <- ask
[opt-env-conf-test] -          s <- get
[opt-env-conf-test] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] -          (result, s') <- ppNonDetList results
[opt-env-conf-test] -          put s'
[opt-env-conf-test] -          case result of
[opt-env-conf-test] -            Success a -> pure a
[opt-env-conf-test] -            Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          e <- ask
[opt-env-conf-test] +          s <- get
[opt-env-conf-test] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] +          (result, s') <- ppNonDetList results
[opt-env-conf-test] +          put s'
[opt-env-conf-test] +          case result of
[opt-env-conf-test] +            Success a -> pure a
[opt-env-conf-test] +            Failure errs -> do
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:150:37-112
[opt-env-conf-test] @@ -147,34 +147,34 @@
[opt-env-conf-test]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test]            as <- go (ParserMany mLoc p')
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test] -      ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          e <- ask
[opt-env-conf-test] -          s <- get
[opt-env-conf-test] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] -          (result, s') <- ppNonDetList results
[opt-env-conf-test] -          put s'
[opt-env-conf-test] -          case result of
[opt-env-conf-test] -            Success a -> pure a
[opt-env-conf-test] -            Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +      ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          e <- ask
[opt-env-conf-test] +          s <- get
[opt-env-conf-test] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] +          (result, s') <- ppNonDetList results
[opt-env-conf-test] +          put s'
[opt-env-conf-test] +          case result of
[opt-env-conf-test] +            Success a -> pure a
[opt-env-conf-test] +            Failure errs -> do
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show True]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug []
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]                case mDefaultCommand of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test]                  Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  debug []
[opt-env-conf-test]                    go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:215:28-40
[opt-env-conf-test] @@ -212,9 +212,9 @@
[opt-env-conf-test]                      find ((== d) . commandArg) cs
[opt-env-conf-test]                case mDefaultCommand of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf-test] @@ -210,11 +210,11 @@
[opt-env-conf-test]                let mDefaultCommand = do
[opt-env-conf-test]                      d <- mDefault
[opt-env-conf-test]                      find ((== d) . commandArg) cs
[opt-env-conf-test] -              case mDefaultCommand of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] +              case mDefaultCommand of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test]                  Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:222:25-73
[opt-env-conf-test] @@ -219,7 +219,7 @@
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test]                  Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  debug []
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:221:27-39
[opt-env-conf-test] @@ -218,9 +218,9 @@
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf-test] @@ -191,13 +191,13 @@
[opt-env-conf-test]            ppIndent $
[opt-env-conf-test]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test] -              case errOrB of
[opt-env-conf-test] -                Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] -                Right b -> do
[opt-env-conf-test] -                  debug ["succeeded"]
[opt-env-conf-test] -                  pure b
[opt-env-conf-test] +              case errOrB of
[opt-env-conf-test] +                Left err -> do
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                Right b -> do
[opt-env-conf-test] +                  debug ["succeeded"]
[opt-env-conf-test] +                  pure b
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:213:15-40
[opt-env-conf-test] @@ -210,11 +210,11 @@
[opt-env-conf-test]                let mDefaultCommand = do
[opt-env-conf-test]                      d <- mDefault
[opt-env-conf-test]                      find ((== d) . commandArg) cs
[opt-env-conf-test] -              case mDefaultCommand of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] +              case mDefaultCommand of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:194:15-25
[opt-env-conf-test] @@ -191,13 +191,13 @@
[opt-env-conf-test]            ppIndent $
[opt-env-conf-test]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test] -              case errOrB of
[opt-env-conf-test] -                Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] -                Right b -> do
[opt-env-conf-test] -                  debug ["succeeded"]
[opt-env-conf-test] -                  pure b
[opt-env-conf-test] +              case errOrB of
[opt-env-conf-test] +                Left err -> do
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                Right b -> do
[opt-env-conf-test] +                  debug ["succeeded"]
[opt-env-conf-test] +                  pure b
[opt-env-conf-test]        ParserCommands mLoc mDefault cs -> do
[opt-env-conf-test]          debug [syntaxChunk "Commands", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed not (forgivable) err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:195:29-70
[opt-env-conf-test] @@ -192,9 +192,9 @@
[opt-env-conf-test]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test] -                Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                Left err -> do
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:216:25-85
[opt-env-conf-test] @@ -213,7 +213,7 @@
[opt-env-conf-test]                case mDefaultCommand of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test]                  Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test]                    go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed False err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed True err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:161:15-112
[opt-env-conf-test] @@ -158,23 +158,23 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf-test] @@ -222,7 +222,7 @@
[opt-env-conf-test]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            debug ["loading config"]
[opt-env-conf-test]            mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:158:11-112
[opt-env-conf-test] @@ -155,26 +155,26 @@
[opt-env-conf-test]            results <- liftIO $ runPP (go p') s e
[opt-env-conf-test]            (result, s') <- ppNonDetList results
[opt-env-conf-test]            put s'
[opt-env-conf-test] -          case result of
[opt-env-conf-test] -            Success a -> pure a
[opt-env-conf-test] -            Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +          case result of
[opt-env-conf-test] +            Success a -> pure a
[opt-env-conf-test] +            Failure errs -> do
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf-test] @@ -222,7 +222,7 @@
[opt-env-conf-test]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            debug ["loading config"]
[opt-env-conf-test]            mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf-test] @@ -216,11 +216,11 @@
[opt-env-conf-test]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test]                    go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test] -              case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +              case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf-test] @@ -270,14 +270,14 @@
[opt-env-conf-test]                      debug ["could not set based on argument: no argument"]
[opt-env-conf-test]                      pure NotFound
[opt-env-conf-test]                    Just argStr -> cap $
[opt-env-conf-test] -                    case tryReaders rs argStr of
[opt-env-conf-test] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] -                      Right a -> do
[opt-env-conf-test] -                        debug
[opt-env-conf-test] -                          [ "set based on argument: ",
[opt-env-conf-test] -                            chunk $ T.pack $ show argStr
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                        pure $ Found a
[opt-env-conf-test] +                    case tryReaders rs argStr of
[opt-env-conf-test] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] +                      Right a -> do
[opt-env-conf-test] +                        debug
[opt-env-conf-test] +                          [ "set based on argument: ",
[opt-env-conf-test] +                            chunk $ T.pack $ show argStr
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                        pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]            case mArg of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:587:21-47
[opt-env-conf-test] @@ -584,16 +584,16 @@
[opt-env-conf-test]                      debug ["No argument found for choosing a command."]
[opt-env-conf-test]                      pure Nothing
[opt-env-conf-test]                    Just s -> do
[opt-env-conf-test] -                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                      Nothing -> do
[opt-env-conf-test] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] -                        pure Nothing
[opt-env-conf-test] -                      Just c -> do
[opt-env-conf-test] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                      Nothing -> do
[opt-env-conf-test] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] +                        pure Nothing
[opt-env-conf-test] +                      Just c -> do
[opt-env-conf-test] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf-test] @@ -265,19 +265,19 @@
[opt-env-conf-test]                  -- always fails if it's missing a reader.
[opt-env-conf-test]                  rs <- requireReaders settingReaders
[opt-env-conf-test]                  mS <- ppArg
[opt-env-conf-test] -                case mS of
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] -                    pure NotFound
[opt-env-conf-test] -                  Just argStr -> cap $
[opt-env-conf-test] -                    case tryReaders rs argStr of
[opt-env-conf-test] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] -                      Right a -> do
[opt-env-conf-test] -                        debug
[opt-env-conf-test] -                          [ "set based on argument: ",
[opt-env-conf-test] -                            chunk $ T.pack $ show argStr
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                        pure $ Found a
[opt-env-conf-test] +                case mS of
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] +                    pure NotFound
[opt-env-conf-test] +                  Just argStr -> cap $
[opt-env-conf-test] +                    case tryReaders rs argStr of
[opt-env-conf-test] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] +                      Right a -> do
[opt-env-conf-test] +                        debug
[opt-env-conf-test] +                          [ "set based on argument: ",
[opt-env-conf-test] +                            chunk $ T.pack $ show argStr
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                        pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]            case mArg of
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:262:13-31
[opt-env-conf-test] @@ -259,26 +259,26 @@
[opt-env-conf-test]                    mLoc
[opt-env-conf-test]            let mOptDoc = settingOptDoc set
[opt-env-conf-test]            mArg <-
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] -              then do
[opt-env-conf-test] -                -- Require readers before finding the argument so the parser
[opt-env-conf-test] -                -- always fails if it's missing a reader.
[opt-env-conf-test] -                rs <- requireReaders settingReaders
[opt-env-conf-test] -                mS <- ppArg
[opt-env-conf-test] -                case mS of
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] -                    pure NotFound
[opt-env-conf-test] -                  Just argStr -> cap $
[opt-env-conf-test] -                    case tryReaders rs argStr of
[opt-env-conf-test] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] -                      Right a -> do
[opt-env-conf-test] -                        debug
[opt-env-conf-test] -                          [ "set based on argument: ",
[opt-env-conf-test] -                            chunk $ T.pack $ show argStr
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                        pure $ Found a
[opt-env-conf-test] -              else pure NotRun
[opt-env-conf-test] +            if settingTryArgument
[opt-env-conf-test] +              then do
[opt-env-conf-test] +                -- Require readers before finding the argument so the parser
[opt-env-conf-test] +                -- always fails if it's missing a reader.
[opt-env-conf-test] +                rs <- requireReaders settingReaders
[opt-env-conf-test] +                mS <- ppArg
[opt-env-conf-test] +                case mS of
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] +                    pure NotFound
[opt-env-conf-test] +                  Just argStr -> cap $
[opt-env-conf-test] +                    case tryReaders rs argStr of
[opt-env-conf-test] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] +                      Right a -> do
[opt-env-conf-test] +                        debug
[opt-env-conf-test] +                          [ "set based on argument: ",
[opt-env-conf-test] +                            chunk $ T.pack $ show argStr
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                        pure $ Found a
[opt-env-conf-test] +              else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]            case mArg of
[opt-env-conf-test]              Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf-test] @@ -285,20 +285,20 @@
[opt-env-conf-test]                markParsed
[opt-env-conf-test]                pure a
[opt-env-conf-test]              _ -> do
[opt-env-conf-test] -              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] -                Nothing -> pure NotRun
[opt-env-conf-test] -                Just a -> do
[opt-env-conf-test] -                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] +              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] +                Nothing -> pure NotRun
[opt-env-conf-test] +                Just a -> do
[opt-env-conf-test] +                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                case mSwitch of
[opt-env-conf-test]                  Found a -> do
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf-test] @@ -306,7 +306,7 @@
[opt-env-conf-test]                    pure a
[opt-env-conf-test]                  _ -> do
[opt-env-conf-test]                    mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if False
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- Require readers before finding the option so the parser
[opt-env-conf-test]                          -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf-test] @@ -289,16 +289,16 @@
[opt-env-conf-test]                  Nothing -> pure NotRun
[opt-env-conf-test]                  Just a -> do
[opt-env-conf-test]                    mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                case mSwitch of
[opt-env-conf-test]                  Found a -> do
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf-test] @@ -306,7 +306,7 @@
[opt-env-conf-test]                    pure a
[opt-env-conf-test]                  _ -> do
[opt-env-conf-test]                    mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if not (settingTryOption)
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- Require readers before finding the option so the parser
[opt-env-conf-test]                          -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf-test] @@ -320,14 +320,14 @@
[opt-env-conf-test]                                ]
[opt-env-conf-test]                              pure NotFound
[opt-env-conf-test]                            Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]                    case mOpt of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:323:29-47
[opt-env-conf-test] @@ -320,14 +320,14 @@
[opt-env-conf-test]                                ]
[opt-env-conf-test]                              pure NotFound
[opt-env-conf-test]                            Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]                    case mOpt of
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Run.hs:309:21-39
[opt-env-conf-test] @@ -306,29 +306,29 @@
[opt-env-conf-test]                    pure a
[opt-env-conf-test]                  _ -> do
[opt-env-conf-test]                    mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- Require readers before finding the option so the parser
[opt-env-conf-test] -                        -- always fails if it's missing a reader.
[opt-env-conf-test] -                        rs <- requireReaders settingReaders
[opt-env-conf-test] -                        mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] -                      else pure NotRun
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- Require readers before finding the option so the parser
[opt-env-conf-test] +                        -- always fails if it's missing a reader.
[opt-env-conf-test] +                        rs <- requireReaders settingReaders
[opt-env-conf-test] +                        mS <- ppOpt settingDasheds
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test] +                      else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]                    case mOpt of
[opt-env-conf-test]                      Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf-test] @@ -312,22 +312,22 @@
[opt-env-conf-test]                          -- always fails if it's missing a reader.
[opt-env-conf-test]                          rs <- requireReaders settingReaders
[opt-env-conf-test]                          mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]                    case mOpt of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:309:24-40
[opt-env-conf-test] @@ -306,7 +306,7 @@
[opt-env-conf-test]                    pure a
[opt-env-conf-test]                  _ -> do
[opt-env-conf-test]                    mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if True
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- Require readers before finding the option so the parser
[opt-env-conf-test]                          -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf-test] @@ -349,14 +349,14 @@
[opt-env-conf-test]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test]                            -- result.
[opt-env-conf-test]                            results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test]                            case listToMaybe results of
[opt-env-conf-test]                              Nothing -> do
[opt-env-conf-test]                                debug
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:268:17-39
[opt-env-conf-test] @@ -265,19 +265,19 @@
[opt-env-conf-test]                  -- always fails if it's missing a reader.
[opt-env-conf-test]                  rs <- requireReaders settingReaders
[opt-env-conf-test]                  mS <- ppArg
[opt-env-conf-test] -                case mS of
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] -                    pure NotFound
[opt-env-conf-test] -                  Just argStr -> cap $
[opt-env-conf-test] -                    case tryReaders rs argStr of
[opt-env-conf-test] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] -                      Right a -> do
[opt-env-conf-test] -                        debug
[opt-env-conf-test] -                          [ "set based on argument: ",
[opt-env-conf-test] -                            chunk $ T.pack $ show argStr
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                        pure $ Found a
[opt-env-conf-test] +                case mS of
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["could not set based on argument: no argument"]
[opt-env-conf-test] +                    pure NotFound
[opt-env-conf-test] +                  Just argStr -> cap $
[opt-env-conf-test] +                    case tryReaders rs argStr of
[opt-env-conf-test] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] +                      Right a -> do
[opt-env-conf-test] +                        debug
[opt-env-conf-test] +                          [ "set based on argument: ",
[opt-env-conf-test] +                            chunk $ T.pack $ show argStr
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                        pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]            case mArg of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:288:26-37
[opt-env-conf-test] @@ -285,20 +285,20 @@
[opt-env-conf-test]                markParsed
[opt-env-conf-test]                pure a
[opt-env-conf-test]              _ -> do
[opt-env-conf-test] -              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] -                Nothing -> pure NotRun
[opt-env-conf-test] -                Just a -> do
[opt-env-conf-test] -                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] +              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] +                Nothing -> pure NotRun
[opt-env-conf-test] +                Just a -> do
[opt-env-conf-test] +                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                case mSwitch of
[opt-env-conf-test]                  Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf-test] @@ -482,9 +482,9 @@
[opt-env-conf-test]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf-test]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf-test]    where
[opt-env-conf-test] -    go (r :| rl) = case runReader r s of
[opt-env-conf-test] -      Left err -> go' (err :| []) rl
[opt-env-conf-test] -      Right a -> Right a
[opt-env-conf-test] +    go (r :| rl) = case runReader r s of
[opt-env-conf-test] +      Left err -> go' (err :| []) rl
[opt-env-conf-test] +      Right a -> Right a
[opt-env-conf-test]      go' errs = \case
[opt-env-conf-test]        [] -> Left errs
[opt-env-conf-test]        (r : rl) -> case runReader r s of
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:224:38-20
[opt-env-conf-test] @@ -221,15 +221,15 @@
[opt-env-conf-test]                  Just c -> do
[opt-env-conf-test]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test] -      ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          debug ["loading config"]
[opt-env-conf-test] -          mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] -          debug ["with loaded config"]
[opt-env-conf-test] -          ppIndent $
[opt-env-conf-test] -            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf-test] -              go pa
[opt-env-conf-test] +      ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          debug ["loading config"]
[opt-env-conf-test] +          mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] +          debug ["with loaded config"]
[opt-env-conf-test] +          ppIndent $
[opt-env-conf-test] +            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf-test] +              go pa
[opt-env-conf-test]        ParserSetting mLoc set@Setting {..} -> do
[opt-env-conf-test]          debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null settingRequiredCapabilities)) $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:485:20-25
[opt-env-conf-test] @@ -482,9 +482,9 @@
[opt-env-conf-test]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf-test]  tryReaders rs s = left NE.reverse $ go rs
[opt-env-conf-test]    where
[opt-env-conf-test] -    go (r :| rl) = case runReader r s of
[opt-env-conf-test] -      Left err -> go' (err :| []) rl
[opt-env-conf-test] -      Right a -> Right a
[opt-env-conf-test] +    go (r :| rl) = case runReader r s of
[opt-env-conf-test] +      Left err -> go' (err :| []) rl
[opt-env-conf-test] +      Right a -> Right a
[opt-env-conf-test]      go' errs = \case
[opt-env-conf-test]        [] -> Left errs
[opt-env-conf-test]        (r : rl) -> case runReader r s of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:292:19-37
[opt-env-conf-test] @@ -289,16 +289,16 @@
[opt-env-conf-test]                  Nothing -> pure NotRun
[opt-env-conf-test]                  Just a -> do
[opt-env-conf-test]                    mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                case mSwitch of
[opt-env-conf-test]                  Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:490:19-27
[opt-env-conf-test] @@ -487,9 +487,9 @@
[opt-env-conf-test]        Right a -> Right a
[opt-env-conf-test]      go' errs = \case
[opt-env-conf-test]        [] -> Left errs
[opt-env-conf-test] -      (r : rl) -> case runReader r s of
[opt-env-conf-test] -        Left err -> go' (err <| errs) rl
[opt-env-conf-test] -        Right a -> Right a
[opt-env-conf-test] +      (r : rl) -> case runReader r s of
[opt-env-conf-test] +        Left err -> go' (err <| errs) rl
[opt-env-conf-test] +        Right a -> Right a
[opt-env-conf-test]  
[opt-env-conf-test]  runHelpParser ::
[opt-env-conf-test]    -- DebugMode
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]                    mLoc
[opt-env-conf-test]            let mOptDoc = settingOptDoc set
[opt-env-conf-test]            mArg <-
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if True
[opt-env-conf-test]                then do
[opt-env-conf-test]                  -- Require readers before finding the argument so the parser
[opt-env-conf-test]                  -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]                    mLoc
[opt-env-conf-test]            let mOptDoc = settingOptDoc set
[opt-env-conf-test]            mArg <-
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if False
[opt-env-conf-test]                then do
[opt-env-conf-test]                  -- Require readers before finding the argument so the parser
[opt-env-conf-test]                  -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:262:16-34
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]                    mLoc
[opt-env-conf-test]            let mOptDoc = settingOptDoc set
[opt-env-conf-test]            mArg <-
[opt-env-conf-test] -            if settingTryArgument
[opt-env-conf-test] +            if not (settingTryArgument)
[opt-env-conf-test]                then do
[opt-env-conf-test]                  -- Require readers before finding the argument so the parser
[opt-env-conf-test]                  -- always fails if it's missing a reader.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:225:15-66
[opt-env-conf-test] @@ -222,7 +222,8 @@
[opt-env-conf-test]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "WithConfig", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            debug ["loading config"]
[opt-env-conf-test]            mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:273:21-39
[opt-env-conf-test] @@ -270,14 +270,14 @@
[opt-env-conf-test]                      debug ["could not set based on argument: no argument"]
[opt-env-conf-test]                      pure NotFound
[opt-env-conf-test]                    Just argStr -> cap $
[opt-env-conf-test] -                    case tryReaders rs argStr of
[opt-env-conf-test] -                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] -                      Right a -> do
[opt-env-conf-test] -                        debug
[opt-env-conf-test] -                          [ "set based on argument: ",
[opt-env-conf-test] -                            chunk $ T.pack $ show argStr
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                        pure $ Found a
[opt-env-conf-test] +                    case tryReaders rs argStr of
[opt-env-conf-test] +                      Left errs -> ppError mLoc $ ParseErrorArgumentRead mOptDoc errs
[opt-env-conf-test] +                      Right a -> do
[opt-env-conf-test] +                        debug
[opt-env-conf-test] +                          [ "set based on argument: ",
[opt-env-conf-test] +                            chunk $ T.pack $ show argStr
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                        pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]            case mArg of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf-test] @@ -383,16 +383,16 @@
[opt-env-conf-test]                                  Just obj -> do
[opt-env-conf-test]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test]                                            Right mV -> case mV of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf-test] @@ -385,9 +385,9 @@
[opt-env-conf-test]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test]                                                Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test]                                                Just neRest -> do
[opt-env-conf-test]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf-test]                                                  case mO' of
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Run.hs:175:22-44
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]                    -- with only forgivable errors
[opt-env-conf-test]                    -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test]                    -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] +                  if not (null parsedSettingsMap)
[opt-env-conf-test]                      then ppErrors' errs
[opt-env-conf-test]                      else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf-test] @@ -336,35 +336,35 @@
[opt-env-conf-test]                        pure a
[opt-env-conf-test]                      _ -> do
[opt-env-conf-test]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                        case mEnv of
[opt-env-conf-test]                          Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf-test] @@ -357,14 +357,14 @@
[opt-env-conf-test]                                      chunk $ T.pack $ show varStr
[opt-env-conf-test]                                    ]
[opt-env-conf-test]                                  pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                        case mEnv of
[opt-env-conf-test]                          Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:360:27-53
[opt-env-conf-test] @@ -357,14 +357,14 @@
[opt-env-conf-test]                                      chunk $ T.pack $ show varStr
[opt-env-conf-test]                                    ]
[opt-env-conf-test]                                  pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                        case mEnv of
[opt-env-conf-test]                          Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf-test] @@ -402,21 +402,21 @@
[opt-env-conf-test]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test]                                                  ]
[opt-env-conf-test]                                                pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:388:49-81
[opt-env-conf-test] @@ -385,9 +385,9 @@
[opt-env-conf-test]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test]                                              jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test]                                                Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test]                                                Just neRest -> do
[opt-env-conf-test]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf-test]                                                  case mO' of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:352:29-39
[opt-env-conf-test] @@ -349,14 +349,14 @@
[opt-env-conf-test]                            -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test]                            -- result.
[opt-env-conf-test]                            results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test]                            case listToMaybe results of
[opt-env-conf-test]                              Nothing -> do
[opt-env-conf-test]                                debug
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf-test] @@ -402,21 +402,21 @@
[opt-env-conf-test]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test]                                                  ]
[opt-env-conf-test]                                                pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf-test] @@ -393,30 +393,30 @@
[opt-env-conf-test]                                                  case mO' of
[opt-env-conf-test]                                                    Nothing -> pure Nothing
[opt-env-conf-test]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:315:25-47
[opt-env-conf-test] @@ -312,22 +312,22 @@
[opt-env-conf-test]                          -- always fails if it's missing a reader.
[opt-env-conf-test]                          rs <- requireReaders settingReaders
[opt-env-conf-test]                          mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test]                    case mOpt of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf-test] @@ -395,28 +395,28 @@
[opt-env-conf-test]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:398:55-64
[opt-env-conf-test] @@ -395,28 +395,28 @@
[opt-env-conf-test]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf-test] @@ -390,9 +390,9 @@
[opt-env-conf-test]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf-test]                                                Just neRest -> do
[opt-env-conf-test]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test]                                            Right mV -> case mV of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf-test] @@ -404,19 +404,19 @@
[opt-env-conf-test]                                                pure Nothing
[opt-env-conf-test]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf-test] @@ -390,9 +390,9 @@
[opt-env-conf-test]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf-test]                                                Just neRest -> do
[opt-env-conf-test]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test]                                            Right mV -> case mV of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:219:15-39
[opt-env-conf-test] @@ -216,11 +216,11 @@
[opt-env-conf-test]                    debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test]                    go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test] -              case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +              case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:386:72-82
[opt-env-conf-test] @@ -383,16 +383,16 @@
[opt-env-conf-test]                                  Just obj -> do
[opt-env-conf-test]                                    let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test]                                          let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test]                                            Right mV -> case mV of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf-test] @@ -393,30 +393,30 @@
[opt-env-conf-test]                                                  case mO' of
[opt-env-conf-test]                                                    Nothing -> pure Nothing
[opt-env-conf-test]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:407:59-64
[opt-env-conf-test] @@ -404,19 +404,19 @@
[opt-env-conf-test]                                                pure Nothing
[opt-env-conf-test]                                              Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test]                                                Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf-test] @@ -420,13 +420,13 @@
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:339:37-53
[opt-env-conf-test] @@ -336,35 +336,35 @@
[opt-env-conf-test]                        pure a
[opt-env-conf-test]                      _ -> do
[opt-env-conf-test]                        let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test]                        case mEnv of
[opt-env-conf-test]                          Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf-test] @@ -204,23 +204,23 @@
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            mS <- ppArg
[opt-env-conf-test]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf-test] -          case mS of
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["No argument found for choosing a command."]
[opt-env-conf-test] -              let mDefaultCommand = do
[opt-env-conf-test] -                    d <- mDefault
[opt-env-conf-test] -                    find ((== d) . commandArg) cs
[opt-env-conf-test] -              case mDefaultCommand of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] -            Just s -> do
[opt-env-conf-test] -              case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +          case mS of
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["No argument found for choosing a command."]
[opt-env-conf-test] +              let mDefaultCommand = do
[opt-env-conf-test] +                    d <- mDefault
[opt-env-conf-test] +                    find ((== d) . commandArg) cs
[opt-env-conf-test] +              case mDefaultCommand of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test] +            Just s -> do
[opt-env-conf-test] +              case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf-test] @@ -376,58 +376,58 @@
[opt-env-conf-test]                              Nothing -> pure NotRun
[opt-env-conf-test]                              Just confSets -> do
[opt-env-conf-test]                                mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test]                                markParsed
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf-test] @@ -372,62 +372,62 @@
[opt-env-conf-test]                            pure a
[opt-env-conf-test]                          _ -> do
[opt-env-conf-test]                            let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test]                                markParsed
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:423:70-69
[opt-env-conf-test] @@ -420,13 +420,13 @@
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:375:36-54
[opt-env-conf-test] @@ -372,62 +372,62 @@
[opt-env-conf-test]                            pure a
[opt-env-conf-test]                          _ -> do
[opt-env-conf-test]                            let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test]                                markParsed
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf-test] @@ -446,12 +446,7 @@
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test]                                        catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                                        []
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf-test] @@ -446,12 +446,12 @@
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test]                                        catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf-test] @@ -438,10 +438,10 @@
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test]                                  Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test]                                    debug ["not found"]
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:379:31-54
[opt-env-conf-test] @@ -376,58 +376,58 @@
[opt-env-conf-test]                              Nothing -> pure NotRun
[opt-env-conf-test]                              Just confSets -> do
[opt-env-conf-test]                                mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test]                                markParsed
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf-test] @@ -424,9 +424,9 @@
[opt-env-conf-test]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test]                                          Just ne -> do
[opt-env-conf-test]                                            res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:427:43-69
[opt-env-conf-test] @@ -424,9 +424,9 @@
[opt-env-conf-test]                                          Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test]                                          Just ne -> do
[opt-env-conf-test]                                            res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test]                            case mConf of
[opt-env-conf-test]                              Found a -> do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf-test] @@ -433,25 +433,25 @@
[opt-env-conf-test]                                markParsed
[opt-env-conf-test]                                pure a
[opt-env-conf-test]                              _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf-test] @@ -428,30 +428,30 @@
[opt-env-conf-test]                                              Just a -> pure $ Found a
[opt-env-conf-test]                                              Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:431:27-42
[opt-env-conf-test] @@ -428,30 +428,30 @@
[opt-env-conf-test]                                              Just a -> pure $ Found a
[opt-env-conf-test]                                              Nothing -> goConfSets ne
[opt-env-conf-test]                                    goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf-test] @@ -366,92 +366,92 @@
[opt-env-conf-test]                                pure NotFound
[opt-env-conf-test]                              Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:369:23-42
[opt-env-conf-test] @@ -366,92 +366,92 @@
[opt-env-conf-test]                                pure NotFound
[opt-env-conf-test]                              Just a -> pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf-test] @@ -330,128 +330,128 @@
[opt-env-conf-test]                                  pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveAction at src/OptEnvConf/Run.hs:440:44-42
[opt-env-conf-test] @@ -437,21 +437,21 @@
[opt-env-conf-test]                                  Just (a, _) -> do
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:436:31-42
[opt-env-conf-test] @@ -433,25 +433,25 @@
[opt-env-conf-test]                                markParsed
[opt-env-conf-test]                                pure a
[opt-env-conf-test]                              _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Run.hs:449:41-42
[opt-env-conf-test] @@ -446,12 +446,12 @@
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test]                                        catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf-test] @@ -438,10 +438,10 @@
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test]                                  Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test]                                    debug ["not found"]
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:582:17-47
[opt-env-conf-test] @@ -579,21 +579,21 @@
[opt-env-conf-test]                forM_ mDefault $ \d -> debug ["default:", chunk $ T.pack $ show d]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  mS <- ppArg
[opt-env-conf-test] -                case mS of
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["No argument found for choosing a command."]
[opt-env-conf-test] -                    pure Nothing
[opt-env-conf-test] -                  Just s -> do
[opt-env-conf-test] -                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                      Nothing -> do
[opt-env-conf-test] -                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] -                        pure Nothing
[opt-env-conf-test] -                      Just c -> do
[opt-env-conf-test] -                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] -                        pure $ case mRes of
[opt-env-conf-test] -                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] -                          Just res -> pure res
[opt-env-conf-test] +                case mS of
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["No argument found for choosing a command."]
[opt-env-conf-test] +                    pure Nothing
[opt-env-conf-test] +                  Just s -> do
[opt-env-conf-test] +                    case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                      Nothing -> do
[opt-env-conf-test] +                        debug ["Argument found, but no matching command: ", chunk $ T.pack $ show s]
[opt-env-conf-test] +                        pure Nothing
[opt-env-conf-test] +                      Just c -> do
[opt-env-conf-test] +                        debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                        mRes <- go' (commandArg c : path) $ commandParser c
[opt-env-conf-test] +                        pure $ case mRes of
[opt-env-conf-test] +                          Nothing -> Just (reverse path, commandParserDocs c)
[opt-env-conf-test] +                          Just res -> pure res
[opt-env-conf-test]  
[opt-env-conf-test]  newtype PP a = PP (ReaderT PPEnv (ValidationT ParseError (StateT PPState (NonDetT IO))) a)
[opt-env-conf-test]    deriving
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:207:11-39
[opt-env-conf-test] @@ -204,23 +204,23 @@
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            mS <- ppArg
[opt-env-conf-test]            let docsForErrors = map (void . commandParserDocs) cs
[opt-env-conf-test] -          case mS of
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["No argument found for choosing a command."]
[opt-env-conf-test] -              let mDefaultCommand = do
[opt-env-conf-test] -                    d <- mDefault
[opt-env-conf-test] -                    find ((== d) . commandArg) cs
[opt-env-conf-test] -              case mDefaultCommand of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] -            Just s -> do
[opt-env-conf-test] -              case find ((== s) . commandArg) cs of
[opt-env-conf-test] -                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +          case mS of
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["No argument found for choosing a command."]
[opt-env-conf-test] +              let mDefaultCommand = do
[opt-env-conf-test] +                    d <- mDefault
[opt-env-conf-test] +                    find ((== d) . commandArg) cs
[opt-env-conf-test] +              case mDefaultCommand of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test] +            Just s -> do
[opt-env-conf-test] +              case find ((== s) . commandArg) cs of
[opt-env-conf-test] +                Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf-test] @@ -438,10 +438,10 @@
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test]                                  Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test]                                    debug ["not found"]
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:333:19-42
[opt-env-conf-test] @@ -330,128 +330,128 @@
[opt-env-conf-test]                                  pure $ Found a
[opt-env-conf-test]                        else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf-test] @@ -280,178 +280,178 @@
[opt-env-conf-test]                          pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test] -          case mArg of
[opt-env-conf-test] -            Found a -> do
[opt-env-conf-test] -              markParsed
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            _ -> do
[opt-env-conf-test] -              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] -                Nothing -> pure NotRun
[opt-env-conf-test] -                Just a -> do
[opt-env-conf-test] -                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -              case mSwitch of
[opt-env-conf-test] -                Found a -> do
[opt-env-conf-test] -                  markParsed
[opt-env-conf-test] -                  pure a
[opt-env-conf-test] -                _ -> do
[opt-env-conf-test] -                  mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- Require readers before finding the option so the parser
[opt-env-conf-test] -                        -- always fails if it's missing a reader.
[opt-env-conf-test] -                        rs <- requireReaders settingReaders
[opt-env-conf-test] -                        mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] -                      else pure NotRun
[opt-env-conf-test] -
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +          case mArg of
[opt-env-conf-test] +            Found a -> do
[opt-env-conf-test] +              markParsed
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            _ -> do
[opt-env-conf-test] +              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] +                Nothing -> pure NotRun
[opt-env-conf-test] +                Just a -> do
[opt-env-conf-test] +                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +              case mSwitch of
[opt-env-conf-test] +                Found a -> do
[opt-env-conf-test] +                  markParsed
[opt-env-conf-test] +                  pure a
[opt-env-conf-test] +                _ -> do
[opt-env-conf-test] +                  mOpt <-
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- Require readers before finding the option so the parser
[opt-env-conf-test] +                        -- always fails if it's missing a reader.
[opt-env-conf-test] +                        rs <- requireReaders settingReaders
[opt-env-conf-test] +                        mS <- ppOpt settingDasheds
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test] +                      else pure NotRun
[opt-env-conf-test] +
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf-test] @@ -403,7 +403,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] -  DashedShort c -> ['-', c]
[opt-env-conf-test] +  DashedShort c -> []
[opt-env-conf-test]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf-test]  
[opt-env-conf-test]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf-test] @@ -361,7 +361,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test] -      if c `elem` cs
[opt-env-conf-test] +      if True
[opt-env-conf-test]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:283:11-42
[opt-env-conf-test] @@ -280,178 +280,178 @@
[opt-env-conf-test]                          pure $ Found a
[opt-env-conf-test]                else pure NotRun
[opt-env-conf-test]  
[opt-env-conf-test] -          case mArg of
[opt-env-conf-test] -            Found a -> do
[opt-env-conf-test] -              markParsed
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            _ -> do
[opt-env-conf-test] -              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] -                Nothing -> pure NotRun
[opt-env-conf-test] -                Just a -> do
[opt-env-conf-test] -                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] -                  case mS of
[opt-env-conf-test] -                    Nothing -> do
[opt-env-conf-test] -                      debug
[opt-env-conf-test] -                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] -                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                        ]
[opt-env-conf-test] -                      pure NotFound
[opt-env-conf-test] -                    Just () -> cap $ do
[opt-env-conf-test] -                      debug ["set based on switch."]
[opt-env-conf-test] -                      pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -              case mSwitch of
[opt-env-conf-test] -                Found a -> do
[opt-env-conf-test] -                  markParsed
[opt-env-conf-test] -                  pure a
[opt-env-conf-test] -                _ -> do
[opt-env-conf-test] -                  mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- Require readers before finding the option so the parser
[opt-env-conf-test] -                        -- always fails if it's missing a reader.
[opt-env-conf-test] -                        rs <- requireReaders settingReaders
[opt-env-conf-test] -                        mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] -                      else pure NotRun
[opt-env-conf-test] -
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +          case mArg of
[opt-env-conf-test] +            Found a -> do
[opt-env-conf-test] +              markParsed
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            _ -> do
[opt-env-conf-test] +              mSwitch <- case settingSwitchValue of
[opt-env-conf-test] +                Nothing -> pure NotRun
[opt-env-conf-test] +                Just a -> do
[opt-env-conf-test] +                  mS <- ppSwitch settingDasheds
[opt-env-conf-test] +                  case mS of
[opt-env-conf-test] +                    Nothing -> do
[opt-env-conf-test] +                      debug
[opt-env-conf-test] +                        [ "could not set based on switch, no switch: ",
[opt-env-conf-test] +                          chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                        ]
[opt-env-conf-test] +                      pure NotFound
[opt-env-conf-test] +                    Just () -> cap $ do
[opt-env-conf-test] +                      debug ["set based on switch."]
[opt-env-conf-test] +                      pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +              case mSwitch of
[opt-env-conf-test] +                Found a -> do
[opt-env-conf-test] +                  markParsed
[opt-env-conf-test] +                  pure a
[opt-env-conf-test] +                _ -> do
[opt-env-conf-test] +                  mOpt <-
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- Require readers before finding the option so the parser
[opt-env-conf-test] +                        -- always fails if it's missing a reader.
[opt-env-conf-test] +                        rs <- requireReaders settingReaders
[opt-env-conf-test] +                        mS <- ppOpt settingDasheds
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test] +                      else pure NotRun
[opt-env-conf-test] +
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf-test] @@ -361,7 +361,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test] -      if c `elem` cs
[opt-env-conf-test] +      if not (c `elem` cs)
[opt-env-conf-test]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:364:7-20
[opt-env-conf-test] @@ -361,17 +361,17 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test] -      if c `elem` cs
[opt-env-conf-test] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] -        else do
[opt-env-conf-test] -          rest' <- NE.nonEmpty rest
[opt-env-conf-test] -          new <- go rest'
[opt-env-conf-test] -          pure $
[opt-env-conf-test] -            Just $
[opt-env-conf-test] -              maybe
[opt-env-conf-test] -                (c :| [], True)
[opt-env-conf-test] -                (first (c NE.<|))
[opt-env-conf-test] -                new
[opt-env-conf-test] +      if c `elem` cs
[opt-env-conf-test] +        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] +        else do
[opt-env-conf-test] +          rest' <- NE.nonEmpty rest
[opt-env-conf-test] +          new <- go rest'
[opt-env-conf-test] +          pure $
[opt-env-conf-test] +            Just $
[opt-env-conf-test] +              maybe
[opt-env-conf-test] +                (c :| [], True)
[opt-env-conf-test] +                (first (c NE.<|))
[opt-env-conf-test] +                new
[opt-env-conf-test]  
[opt-env-conf-test]  recogniseLeftovers :: Args -> Maybe (NonEmpty String)
[opt-env-conf-test]  recogniseLeftovers Args {..} = NE.nonEmpty $ live argsBefore ++ live (modDoubleDash argsAfter)
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:372:27-31
[opt-env-conf-test] @@ -369,7 +369,7 @@
[opt-env-conf-test]            pure $
[opt-env-conf-test]              Just $
[opt-env-conf-test]                maybe
[opt-env-conf-test] -                (c :| [], True)
[opt-env-conf-test] +                (c :| [], False)
[opt-env-conf-test]                  (first (c NE.<|))
[opt-env-conf-test]                  new
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf-test] @@ -349,7 +349,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf-test] @@ -349,7 +349,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if not (isLong)
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf-test] @@ -351,7 +351,7 @@
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf-test] @@ -321,9 +321,9 @@
[opt-env-conf-test]  consumeSwitch dasheds as = do
[opt-env-conf-test]    case go (argsBefore as) of
[opt-env-conf-test]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf-test] -    Nothing -> case go (argsAfter as) of
[opt-env-conf-test] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf-test] -      Nothing -> Nothing
[opt-env-conf-test] +    Nothing -> case go (argsAfter as) of
[opt-env-conf-test] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf-test] +      Nothing -> Nothing
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf-test]      go = \case
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:406:20-28
[opt-env-conf-test] @@ -403,7 +403,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] -  DashedShort c -> ['-', c]
[opt-env-conf-test] +  DashedShort c -> ['-', c]
[opt-env-conf-test]    DashedLong cs -> '-' : '-' : NE.toList cs
[opt-env-conf-test]  
[opt-env-conf-test]  prefixDashed :: String -> Dashed -> Dashed
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf-test] @@ -300,158 +300,158 @@
[opt-env-conf-test]                        debug ["set based on switch."]
[opt-env-conf-test]                        pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test] -              case mSwitch of
[opt-env-conf-test] -                Found a -> do
[opt-env-conf-test] -                  markParsed
[opt-env-conf-test] -                  pure a
[opt-env-conf-test] -                _ -> do
[opt-env-conf-test] -                  mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- Require readers before finding the option so the parser
[opt-env-conf-test] -                        -- always fails if it's missing a reader.
[opt-env-conf-test] -                        rs <- requireReaders settingReaders
[opt-env-conf-test] -                        mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] -                      else pure NotRun
[opt-env-conf-test] -
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +              case mSwitch of
[opt-env-conf-test] +                Found a -> do
[opt-env-conf-test] +                  markParsed
[opt-env-conf-test] +                  pure a
[opt-env-conf-test] +                _ -> do
[opt-env-conf-test] +                  mOpt <-
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- Require readers before finding the option so the parser
[opt-env-conf-test] +                        -- always fails if it's missing a reader.
[opt-env-conf-test] +                        rs <- requireReaders settingReaders
[opt-env-conf-test] +                        mS <- ppOpt settingDasheds
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test] +                      else pure NotRun
[opt-env-conf-test] +
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:324:16-25
[opt-env-conf-test] @@ -321,9 +321,9 @@
[opt-env-conf-test]  consumeSwitch dasheds as = do
[opt-env-conf-test]    case go (argsBefore as) of
[opt-env-conf-test]      Just newBefores -> Just $ as {argsBefore = newBefores}
[opt-env-conf-test] -    Nothing -> case go (argsAfter as) of
[opt-env-conf-test] -      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf-test] -      Nothing -> Nothing
[opt-env-conf-test] +    Nothing -> case go (argsAfter as) of
[opt-env-conf-test] +      Just newAfters -> Just $ as {argsAfter = newAfters}
[opt-env-conf-test] +      Nothing -> Nothing
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: [Tomb Arg] -> Maybe [Tomb Arg]
[opt-env-conf-test]      go = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:352:6-12
[opt-env-conf-test] @@ -349,7 +349,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test]        if c `elem` cs
[opt-env-conf-test] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] +        then Just $ (\ne -> (ne, not (null rest))) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test]            new <- go rest'
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +            let rest' = if not (needTombstone) then Dead : rest else rest
[opt-env-conf-test]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:364:10-21
[opt-env-conf-test] @@ -361,7 +361,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test] -      if c `elem` cs
[opt-env-conf-test] +      if False
[opt-env-conf-test]          then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +            let rest' = if False then Dead : rest else rest
[opt-env-conf-test]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf-test] @@ -331,7 +331,7 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds False cs of
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:338:25-68
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf-test] @@ -331,7 +331,7 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds not (isLong) cs of
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:334:65-71
[opt-env-conf-test] @@ -331,7 +331,7 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds True cs of
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:338:28-41
[opt-env-conf-test] @@ -335,7 +335,7 @@
[opt-env-conf-test]            Nothing -> (Live o :) <$> go rest
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +            let rest' = if True then Dead : rest else rest
[opt-env-conf-test]               in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:352:3-47
[opt-env-conf-test] @@ -349,12 +349,12 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] -    then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] -        then Just Nothing
[opt-env-conf-test] -        else Nothing
[opt-env-conf-test] -    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test] +  if isLong
[opt-env-conf-test] +    then
[opt-env-conf-test] +      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +        then Just Nothing
[opt-env-conf-test] +        else Nothing
[opt-env-conf-test] +    else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]  consumeChar cs = go
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf-test] @@ -351,7 +351,7 @@
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if True
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:354:10-38
[opt-env-conf-test] @@ -351,7 +351,7 @@
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if False
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:354:7-21
[opt-env-conf-test] @@ -351,9 +351,9 @@
[opt-env-conf-test]  consumeDashedSwitch dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] -        then Just Nothing
[opt-env-conf-test] -        else Nothing
[opt-env-conf-test] +      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +        then Just Nothing
[opt-env-conf-test] +        else Nothing
[opt-env-conf-test]      else consumeChar (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test]  consumeChar :: [Char] -> NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf-test] @@ -331,12 +331,12 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf-test] @@ -331,12 +331,12 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf-test] @@ -290,7 +290,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf-test] @@ -306,9 +306,9 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go acc ne =
[opt-env-conf-test]        let (a, mRest) = NE.uncons ne
[opt-env-conf-test] -       in case mRest of
[opt-env-conf-test] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf-test] -            Just rest -> go (a : acc) rest
[opt-env-conf-test] +       in case mRest of
[opt-env-conf-test] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf-test] +            Just rest -> go (a : acc) rest
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume a switch.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf-test] @@ -290,7 +290,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if not (isLong)
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Run.hs:303:15-42
[opt-env-conf-test] @@ -300,158 +300,158 @@
[opt-env-conf-test]                        debug ["set based on switch."]
[opt-env-conf-test]                        pure $ Found a
[opt-env-conf-test]  
[opt-env-conf-test] -              case mSwitch of
[opt-env-conf-test] -                Found a -> do
[opt-env-conf-test] -                  markParsed
[opt-env-conf-test] -                  pure a
[opt-env-conf-test] -                _ -> do
[opt-env-conf-test] -                  mOpt <-
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] -                      then do
[opt-env-conf-test] -                        -- Require readers before finding the option so the parser
[opt-env-conf-test] -                        -- always fails if it's missing a reader.
[opt-env-conf-test] -                        rs <- requireReaders settingReaders
[opt-env-conf-test] -                        mS <- ppOpt settingDasheds
[opt-env-conf-test] -                        case mS of
[opt-env-conf-test] -                          Nothing -> do
[opt-env-conf-test] -                            debug
[opt-env-conf-test] -                              [ "could not set based on options, no option: ",
[opt-env-conf-test] -                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] -                              ]
[opt-env-conf-test] -                            pure NotFound
[opt-env-conf-test] -                          Just optionStr -> cap $
[opt-env-conf-test] -                            case tryReaders rs optionStr of
[opt-env-conf-test] -                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on option: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure $ Found a
[opt-env-conf-test] -                      else pure NotRun
[opt-env-conf-test] -
[opt-env-conf-test] -                  case mOpt of
[opt-env-conf-test] -                    Found a -> do
[opt-env-conf-test] -                      markParsed
[opt-env-conf-test] -                      pure a
[opt-env-conf-test] -                    _ -> do
[opt-env-conf-test] -                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] -                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] -                        Nothing -> pure NotRun
[opt-env-conf-test] -                        Just ne -> do
[opt-env-conf-test] -                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] -                          -- always fails if it's missing a reader.
[opt-env-conf-test] -                          rs <- requireReaders settingReaders
[opt-env-conf-test] -                          es <- asks ppEnvEnv
[opt-env-conf-test] -                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] -                          -- Run the parser on all specified env vars before
[opt-env-conf-test] -                          -- returning the first because we want to fail if any
[opt-env-conf-test] -                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] -                          -- result.
[opt-env-conf-test] -                          results <- for founds $ \varStr ->
[opt-env-conf-test] -                            case tryReaders rs varStr of
[opt-env-conf-test] -                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] -                              Right a -> do
[opt-env-conf-test] -                                debug
[opt-env-conf-test] -                                  [ "set based on env: ",
[opt-env-conf-test] -                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] -                                  ]
[opt-env-conf-test] -                                pure a
[opt-env-conf-test] -                          case listToMaybe results of
[opt-env-conf-test] -                            Nothing -> do
[opt-env-conf-test] -                              debug
[opt-env-conf-test] -                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] -                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] -                                ]
[opt-env-conf-test] -                              pure NotFound
[opt-env-conf-test] -                            Just a -> pure $ Found a
[opt-env-conf-test] -
[opt-env-conf-test] -                      case mEnv of
[opt-env-conf-test] -                        Found a -> do
[opt-env-conf-test] -                          markParsed
[opt-env-conf-test] -                          pure a
[opt-env-conf-test] -                        _ -> do
[opt-env-conf-test] -                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] -                          mConf <- case settingConfigVals of
[opt-env-conf-test] -                            Nothing -> pure NotRun
[opt-env-conf-test] -                            Just confSets -> do
[opt-env-conf-test] -                              mObj <- asks ppEnvConf
[opt-env-conf-test] -                              case mObj of
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  debug ["no config object to set from"]
[opt-env-conf-test] -                                  pure NotFound
[opt-env-conf-test] -                                Just obj -> do
[opt-env-conf-test] -                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] -                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] -                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                              Nothing -> do
[opt-env-conf-test] -                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] -                                              Just neRest -> do
[opt-env-conf-test] -                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] -                                  let toRes = \case
[opt-env-conf-test] -                                        Nothing -> NotFound
[opt-env-conf-test] -                                        Just a -> Found a
[opt-env-conf-test] -                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] -                                        Just ne -> do
[opt-env-conf-test] -                                          res <- goConfSet confSet
[opt-env-conf-test] -                                          case res of
[opt-env-conf-test] -                                            Just a -> pure $ Found a
[opt-env-conf-test] -                                            Nothing -> goConfSets ne
[opt-env-conf-test] -                                  goConfSets confSets
[opt-env-conf-test] -                          case mConf of
[opt-env-conf-test] -                            Found a -> do
[opt-env-conf-test] -                              markParsed
[opt-env-conf-test] -                              pure a
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              case settingDefaultValue of
[opt-env-conf-test] -                                Just (a, _) -> do
[opt-env-conf-test] -                                  debug ["set to default value"]
[opt-env-conf-test] -                                  pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +              case mSwitch of
[opt-env-conf-test] +                Found a -> do
[opt-env-conf-test] +                  markParsed
[opt-env-conf-test] +                  pure a
[opt-env-conf-test] +                _ -> do
[opt-env-conf-test] +                  mOpt <-
[opt-env-conf-test] +                    if settingTryOption
[opt-env-conf-test] +                      then do
[opt-env-conf-test] +                        -- Require readers before finding the option so the parser
[opt-env-conf-test] +                        -- always fails if it's missing a reader.
[opt-env-conf-test] +                        rs <- requireReaders settingReaders
[opt-env-conf-test] +                        mS <- ppOpt settingDasheds
[opt-env-conf-test] +                        case mS of
[opt-env-conf-test] +                          Nothing -> do
[opt-env-conf-test] +                            debug
[opt-env-conf-test] +                              [ "could not set based on options, no option: ",
[opt-env-conf-test] +                                chunk $ T.pack $ show $ map renderDashed settingDasheds
[opt-env-conf-test] +                              ]
[opt-env-conf-test] +                            pure NotFound
[opt-env-conf-test] +                          Just optionStr -> cap $
[opt-env-conf-test] +                            case tryReaders rs optionStr of
[opt-env-conf-test] +                              Left err -> ppError mLoc $ ParseErrorOptionRead mOptDoc err
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on option: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show optionStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure $ Found a
[opt-env-conf-test] +                      else pure NotRun
[opt-env-conf-test] +
[opt-env-conf-test] +                  case mOpt of
[opt-env-conf-test] +                    Found a -> do
[opt-env-conf-test] +                      markParsed
[opt-env-conf-test] +                      pure a
[opt-env-conf-test] +                    _ -> do
[opt-env-conf-test] +                      let mEnvDoc = settingEnvDoc set
[opt-env-conf-test] +                      mEnv <- cap $ case settingEnvVars of
[opt-env-conf-test] +                        Nothing -> pure NotRun
[opt-env-conf-test] +                        Just ne -> do
[opt-env-conf-test] +                          -- Require readers before finding the env vars so the parser
[opt-env-conf-test] +                          -- always fails if it's missing a reader.
[opt-env-conf-test] +                          rs <- requireReaders settingReaders
[opt-env-conf-test] +                          es <- asks ppEnvEnv
[opt-env-conf-test] +                          let founds = mapMaybe ((`EnvMap.lookup` es) . envVarSettingVar) (NE.toList ne)
[opt-env-conf-test] +                          -- Run the parser on all specified env vars before
[opt-env-conf-test] +                          -- returning the first because we want to fail if any
[opt-env-conf-test] +                          -- of them fail, even if they wouldn't be the parse
[opt-env-conf-test] +                          -- result.
[opt-env-conf-test] +                          results <- for founds $ \varStr ->
[opt-env-conf-test] +                            case tryReaders rs varStr of
[opt-env-conf-test] +                              Left errs -> ppError mLoc $ ParseErrorEnvRead mEnvDoc errs
[opt-env-conf-test] +                              Right a -> do
[opt-env-conf-test] +                                debug
[opt-env-conf-test] +                                  [ "set based on env: ",
[opt-env-conf-test] +                                    chunk $ T.pack $ show varStr
[opt-env-conf-test] +                                  ]
[opt-env-conf-test] +                                pure a
[opt-env-conf-test] +                          case listToMaybe results of
[opt-env-conf-test] +                            Nothing -> do
[opt-env-conf-test] +                              debug
[opt-env-conf-test] +                                [ "could not set based on env vars, no var: ",
[opt-env-conf-test] +                                  chunk $ T.pack $ show $ maybe [] NE.toList settingEnvVars
[opt-env-conf-test] +                                ]
[opt-env-conf-test] +                              pure NotFound
[opt-env-conf-test] +                            Just a -> pure $ Found a
[opt-env-conf-test] +
[opt-env-conf-test] +                      case mEnv of
[opt-env-conf-test] +                        Found a -> do
[opt-env-conf-test] +                          markParsed
[opt-env-conf-test] +                          pure a
[opt-env-conf-test] +                        _ -> do
[opt-env-conf-test] +                          let mConfDoc = settingConfDoc set
[opt-env-conf-test] +                          mConf <- case settingConfigVals of
[opt-env-conf-test] +                            Nothing -> pure NotRun
[opt-env-conf-test] +                            Just confSets -> do
[opt-env-conf-test] +                              mObj <- asks ppEnvConf
[opt-env-conf-test] +                              case mObj of
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  debug ["no config object to set from"]
[opt-env-conf-test] +                                  pure NotFound
[opt-env-conf-test] +                                Just obj -> do
[opt-env-conf-test] +                                  let goConfSet ConfigValSetting {..} = do
[opt-env-conf-test] +                                        let jsonParser :: JSON.Object -> NonEmpty String -> JSON.Parser (Maybe JSON.Value)
[opt-env-conf-test] +                                            jsonParser o (k :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                              Nothing -> do
[opt-env-conf-test] +                                                case KeyMap.lookup (Key.fromString k) o of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just v -> Just <$> parseJSON v
[opt-env-conf-test] +                                              Just neRest -> do
[opt-env-conf-test] +                                                mO' <- o .:? Key.fromString k
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test] +                                  let toRes = \case
[opt-env-conf-test] +                                        Nothing -> NotFound
[opt-env-conf-test] +                                        Just a -> Found a
[opt-env-conf-test] +                                  let goConfSets (confSet :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +                                        Nothing -> toRes <$> goConfSet confSet
[opt-env-conf-test] +                                        Just ne -> do
[opt-env-conf-test] +                                          res <- goConfSet confSet
[opt-env-conf-test] +                                          case res of
[opt-env-conf-test] +                                            Just a -> pure $ Found a
[opt-env-conf-test] +                                            Nothing -> goConfSets ne
[opt-env-conf-test] +                                  goConfSets confSets
[opt-env-conf-test] +                          case mConf of
[opt-env-conf-test] +                            Found a -> do
[opt-env-conf-test] +                              markParsed
[opt-env-conf-test] +                              pure a
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              case settingDefaultValue of
[opt-env-conf-test] +                                Just (a, _) -> do
[opt-env-conf-test] +                                  debug ["set to default value"]
[opt-env-conf-test] +                                  pure a -- Don't mark as parsed
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf-test] @@ -292,7 +292,7 @@
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if False
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf-test] @@ -292,7 +292,7 @@
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if True
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:293:6-12
[opt-env-conf-test] @@ -290,7 +290,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then
[opt-env-conf-test]        if DashedLong cs `elem` dasheds
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +             in Just $ Live (ArgDashed False cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf-test] @@ -329,17 +329,17 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> Nothing
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test] -      (Live o : rest) -> case o of
[opt-env-conf-test] -        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] -        _ -> do
[opt-env-conf-test] -          os <- go rest
[opt-env-conf-test] -          pure $ Live o : os
[opt-env-conf-test] +      (Live o : rest) -> case o of
[opt-env-conf-test] +        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        _ -> do
[opt-env-conf-test] +          os <- go rest
[opt-env-conf-test] +          pure $ Live o : os
[opt-env-conf-test]  
[opt-env-conf-test]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf-test]  -- character because then we need a tombstone.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:309:11-43
[opt-env-conf-test] @@ -306,9 +306,9 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go acc ne =
[opt-env-conf-test]        let (a, mRest) = NE.uncons ne
[opt-env-conf-test] -       in case mRest of
[opt-env-conf-test] -            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf-test] -            Just rest -> go (a : acc) rest
[opt-env-conf-test] +       in case mRest of
[opt-env-conf-test] +            Nothing -> (NE.nonEmpty $ reverse acc, a)
[opt-env-conf-test] +            Just rest -> go (a : acc) rest
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume a switch.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +             in Just $ Live (ArgDashed True cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf-test] @@ -329,17 +329,17 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> Nothing
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test] -      (Live o : rest) -> case o of
[opt-env-conf-test] -        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] -        _ -> do
[opt-env-conf-test] -          os <- go rest
[opt-env-conf-test] -          pure $ Live o : os
[opt-env-conf-test] +      (Live o : rest) -> case o of
[opt-env-conf-test] +        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        _ -> do
[opt-env-conf-test] +          os <- go rest
[opt-env-conf-test] +          pure $ Live o : os
[opt-env-conf-test]  
[opt-env-conf-test]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf-test]  -- character because then we need a tombstone.
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +             in Just $ Live (ArgDashed not (isLong) cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test]        if c `elem` cs
[opt-env-conf-test] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] +        then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test]            new <- go rest'
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:332:26-29
[opt-env-conf-test] @@ -329,17 +329,17 @@
[opt-env-conf-test]      go = \case
[opt-env-conf-test]        [] -> Nothing
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test] -      (Live o : rest) -> case o of
[opt-env-conf-test] -        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] -        _ -> do
[opt-env-conf-test] -          os <- go rest
[opt-env-conf-test] -          pure $ Live o : os
[opt-env-conf-test] +      (Live o : rest) -> case o of
[opt-env-conf-test] +        ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        _ -> do
[opt-env-conf-test] +          os <- go rest
[opt-env-conf-test] +          pure $ Live o : os
[opt-env-conf-test]  
[opt-env-conf-test]  -- Can consume anywhere in a folded dashed, return True if it was the last
[opt-env-conf-test]  -- character because then we need a tombstone.
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test]        if c `elem` cs
[opt-env-conf-test] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] +        then Just $ (\ne -> (ne, True)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test]            new <- go rest'
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:334:32-59
[opt-env-conf-test] @@ -331,12 +331,12 @@
[opt-env-conf-test]        (Dead : rest) -> (Dead :) <$> go rest
[opt-env-conf-test]        (Live o : rest) -> case o of
[opt-env-conf-test]          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] -          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] -          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] -          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] -            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +        ArgDashed isLong cs -> case consumeDashedSwitch dasheds isLong cs of
[opt-env-conf-test] +          Nothing -> (Live o :) <$> go rest
[opt-env-conf-test] +          Just Nothing -> Just $ Dead : rest
[opt-env-conf-test] +          Just (Just (cs', needTombstone)) ->
[opt-env-conf-test] +            let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] +             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:295:10-38
[opt-env-conf-test] @@ -292,7 +292,7 @@
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +      if not (DashedLong cs `elem` dasheds)
[opt-env-conf-test]          then Just Nothing
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf-test] @@ -297,7 +297,7 @@
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test]        let (mRest, c) = unsnocNE cs
[opt-env-conf-test] -       in if DashedShort c `elem` dasheds
[opt-env-conf-test] +       in if not (DashedShort c `elem` dasheds)
[opt-env-conf-test]              then Just mRest
[opt-env-conf-test]              else Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf-test] @@ -297,7 +297,7 @@
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test]        let (mRest, c) = unsnocNE cs
[opt-env-conf-test] -       in if DashedShort c `elem` dasheds
[opt-env-conf-test] +       in if True
[opt-env-conf-test]              then Just mRest
[opt-env-conf-test]              else Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:300:14-42
[opt-env-conf-test] @@ -297,7 +297,7 @@
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test]        let (mRest, c) = unsnocNE cs
[opt-env-conf-test] -       in if DashedShort c `elem` dasheds
[opt-env-conf-test] +       in if False
[opt-env-conf-test]              then Just mRest
[opt-env-conf-test]              else Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:293:3-25
[opt-env-conf-test] @@ -290,16 +290,16 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe (Maybe (NonEmpty Char))
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] -    then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] -        then Just Nothing
[opt-env-conf-test] -        else Nothing
[opt-env-conf-test] -    else
[opt-env-conf-test] -      let (mRest, c) = unsnocNE cs
[opt-env-conf-test] -       in if DashedShort c `elem` dasheds
[opt-env-conf-test] -            then Just mRest
[opt-env-conf-test] -            else Nothing
[opt-env-conf-test] +  if isLong
[opt-env-conf-test] +    then
[opt-env-conf-test] +      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +        then Just Nothing
[opt-env-conf-test] +        else Nothing
[opt-env-conf-test] +    else
[opt-env-conf-test] +      let (mRest, c) = unsnocNE cs
[opt-env-conf-test] +       in if DashedShort c `elem` dasheds
[opt-env-conf-test] +            then Just mRest
[opt-env-conf-test] +            else Nothing
[opt-env-conf-test]  
[opt-env-conf-test]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf-test]  unsnocNE = go []
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | True && not (null rest) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-23
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | not (c `elem` dasheds) && not (null rest) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && not True ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:32-41
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && not (True) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:31-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && not not ((null rest)) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | True ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && True ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  renderArg = \case
[opt-env-conf-test]    ArgBareDoubleDash -> "--"
[opt-env-conf-test]    ArgBareDash -> "-"
[opt-env-conf-test] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf-test] +  ArgDashed l cs -> (if True then "--" else "-") <> NE.toList cs
[opt-env-conf-test]    ArgPlain a -> a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  renderArg = \case
[opt-env-conf-test]    ArgBareDoubleDash -> "--"
[opt-env-conf-test]    ArgBareDash -> "-"
[opt-env-conf-test] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf-test] +  ArgDashed l cs -> (if not (l) then "--" else "-") <> NE.toList cs
[opt-env-conf-test]    ArgPlain a -> a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:89:25-26
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  renderArg = \case
[opt-env-conf-test]    ArgBareDoubleDash -> "--"
[opt-env-conf-test]    ArgBareDash -> "-"
[opt-env-conf-test] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf-test] +  ArgDashed l cs -> (if False then "--" else "-") <> NE.toList cs
[opt-env-conf-test]    ArgPlain a -> a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf-test] @@ -130,10 +130,10 @@
[opt-env-conf-test]    -- things like a default command.
[opt-env-conf-test]    let addConsumeNothing = \case
[opt-env-conf-test]          [] -> [(Nothing, as)]
[opt-env-conf-test] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf-test] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf-test] -          Nothing -> r
[opt-env-conf-test] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf-test] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf-test] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf-test] +          Nothing -> r
[opt-env-conf-test] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf-test]  
[opt-env-conf-test]    addConsumeNothing $ case argsAfter as of
[opt-env-conf-test]      [] -> []
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:133:33-47
[opt-env-conf-test] @@ -130,10 +130,10 @@
[opt-env-conf-test]    -- things like a default command.
[opt-env-conf-test]    let addConsumeNothing = \case
[opt-env-conf-test]          [] -> [(Nothing, as)]
[opt-env-conf-test] -        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf-test] -          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf-test] -          Nothing -> r
[opt-env-conf-test] -          Just _ -> t : addConsumeNothing rest
[opt-env-conf-test] +        r@(t@(mA, _) : rest) -> case mA of
[opt-env-conf-test] +          -- If not consuming anything is already an option, don't add it to the end.
[opt-env-conf-test] +          Nothing -> r
[opt-env-conf-test] +          Just _ -> t : addConsumeNothing rest
[opt-env-conf-test]  
[opt-env-conf-test]    addConsumeNothing $ case argsAfter as of
[opt-env-conf-test]      [] -> []
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf-test] @@ -166,17 +166,17 @@
[opt-env-conf-test]                          [] -> Nothing
[opt-env-conf-test]                          (Dead : rest) -> go rest
[opt-env-conf-test]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf-test] @@ -166,17 +166,17 @@
[opt-env-conf-test]                          [] -> Nothing
[opt-env-conf-test]                          (Dead : rest) -> go rest
[opt-env-conf-test]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf-test] @@ -149,34 +149,34 @@
[opt-env-conf-test]                -- A single dash is always an argument
[opt-env-conf-test]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test]                -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf-test] @@ -149,34 +149,34 @@
[opt-env-conf-test]                -- A single dash is always an argument
[opt-env-conf-test]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test]                -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:7-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | not (c `elem` dasheds && not (null rest)) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf-test] @@ -255,7 +255,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf-test]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:282:27-42
[opt-env-conf-test] @@ -279,7 +279,7 @@
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeShortDashedShorthandOption dasheds = \case
[opt-env-conf-test]    (c :| rest)
[opt-env-conf-test] -    | c `elem` dasheds && not (null rest) ->
[opt-env-conf-test] +    | c `elem` dasheds && not (not (null rest)) ->
[opt-env-conf-test]          Just rest
[opt-env-conf-test]    _ -> Nothing
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf-test] @@ -195,16 +195,16 @@
[opt-env-conf-test]                          --   * The dashed is an option and the live is the value
[opt-env-conf-test]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf-test]                          --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test]                          )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf-test] @@ -149,34 +149,34 @@
[opt-env-conf-test]                -- A single dash is always an argument
[opt-env-conf-test]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test]                -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf-test] @@ -202,9 +202,9 @@
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test]                          )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:36-37
[opt-env-conf-test] @@ -202,9 +202,7 @@
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] +                                ++ []
[opt-env-conf-test]                          )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf-test] @@ -202,7 +202,7 @@
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test]                                       (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                          )
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:198:27-37
[opt-env-conf-test] @@ -195,16 +195,16 @@
[opt-env-conf-test]                          --   * The dashed is an option and the live is the value
[opt-env-conf-test]                          --   * The dashed is a switch and the live is an argument
[opt-env-conf-test]                          --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test]                          )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf-test] @@ -186,26 +186,26 @@
[opt-env-conf-test]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test]                             ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf-test] @@ -186,26 +186,26 @@
[opt-env-conf-test]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test]                             ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:189:21-26
[opt-env-conf-test] @@ -186,26 +186,26 @@
[opt-env-conf-test]                        consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test]                          ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test]                             ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf-test] @@ -143,69 +143,69 @@
[opt-env-conf-test]         in case firstArg of
[opt-env-conf-test]              -- Skip any dead argument
[opt-env-conf-test]              Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf-test] @@ -143,69 +143,69 @@
[opt-env-conf-test]         in case firstArg of
[opt-env-conf-test]              -- Skip any dead argument
[opt-env-conf-test]              Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf-test] @@ -143,69 +143,69 @@
[opt-env-conf-test]         in case firstArg of
[opt-env-conf-test]              -- Skip any dead argument
[opt-env-conf-test]              Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:146:23-26
[opt-env-conf-test] @@ -143,69 +143,69 @@
[opt-env-conf-test]         in case firstArg of
[opt-env-conf-test]              -- Skip any dead argument
[opt-env-conf-test]              Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf-test] @@ -140,72 +140,72 @@
[opt-env-conf-test]      (firstArg : afters) ->
[opt-env-conf-test]        let befores = argsBefore as
[opt-env-conf-test]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] -       in case firstArg of
[opt-env-conf-test] -            -- Skip any dead argument
[opt-env-conf-test] -            Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +       in case firstArg of
[opt-env-conf-test] +            -- Skip any dead argument
[opt-env-conf-test] +            Dead -> consumeArgument consumed
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:143:11-26
[opt-env-conf-test] @@ -140,72 +140,72 @@
[opt-env-conf-test]      (firstArg : afters) ->
[opt-env-conf-test]        let befores = argsBefore as
[opt-env-conf-test]            consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] -       in case firstArg of
[opt-env-conf-test] -            -- Skip any dead argument
[opt-env-conf-test] -            Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +       in case firstArg of
[opt-env-conf-test] +            -- Skip any dead argument
[opt-env-conf-test] +            Dead -> consumeArgument consumed
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf-test] @@ -135,77 +135,77 @@
[opt-env-conf-test]            Nothing -> r
[opt-env-conf-test]            Just _ -> t : addConsumeNothing rest
[opt-env-conf-test]  
[opt-env-conf-test] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf-test] -    [] -> []
[opt-env-conf-test] -    (firstArg : afters) ->
[opt-env-conf-test] -      let befores = argsBefore as
[opt-env-conf-test] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] -       in case firstArg of
[opt-env-conf-test] -            -- Skip any dead argument
[opt-env-conf-test] -            Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf-test] +    [] -> []
[opt-env-conf-test] +    (firstArg : afters) ->
[opt-env-conf-test] +      let befores = argsBefore as
[opt-env-conf-test] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] +       in case firstArg of
[opt-env-conf-test] +            -- Skip any dead argument
[opt-env-conf-test] +            Dead -> consumeArgument consumed
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:138:23-26
[opt-env-conf-test] @@ -135,77 +135,77 @@
[opt-env-conf-test]            Nothing -> r
[opt-env-conf-test]            Just _ -> t : addConsumeNothing rest
[opt-env-conf-test]  
[opt-env-conf-test] -  addConsumeNothing $ case argsAfter as of
[opt-env-conf-test] -    [] -> []
[opt-env-conf-test] -    (firstArg : afters) ->
[opt-env-conf-test] -      let befores = argsBefore as
[opt-env-conf-test] -          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] -       in case firstArg of
[opt-env-conf-test] -            -- Skip any dead argument
[opt-env-conf-test] -            Dead -> consumeArgument consumed
[opt-env-conf-test] -            Live a -> case a of
[opt-env-conf-test] -              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] -              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] -              -- A single dash is always an argument
[opt-env-conf-test] -              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] -              -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -              ArgDashed {} ->
[opt-env-conf-test] -                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] -                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] -                --   * The dashed is an argument
[opt-env-conf-test] -                -- TODO we need to continue looking too
[opt-env-conf-test] -                let switchCase =
[opt-env-conf-test] -                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] -                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                           ]
[opt-env-conf-test] -                 in case afters of
[opt-env-conf-test] -                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] -                      [] -> switchCase
[opt-env-conf-test] -                      (Dead : _) -> switchCase
[opt-env-conf-test] -                      (Live a' : rest) ->
[opt-env-conf-test] -                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] -                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] -                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] -                        --   * The dashed is an argument
[opt-env-conf-test] -                        ( case a' of
[opt-env-conf-test] -                            ArgDashed {} ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                            _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] -                                     (Just (renderArg a), consumed)
[opt-env-conf-test] -                                   ]
[opt-env-conf-test] -                        )
[opt-env-conf-test] +  addConsumeNothing $ case argsAfter as of
[opt-env-conf-test] +    [] -> []
[opt-env-conf-test] +    (firstArg : afters) ->
[opt-env-conf-test] +      let befores = argsBefore as
[opt-env-conf-test] +          consumed = Args (befores ++ [Dead]) afters
[opt-env-conf-test] +       in case firstArg of
[opt-env-conf-test] +            -- Skip any dead argument
[opt-env-conf-test] +            Dead -> consumeArgument consumed
[opt-env-conf-test] +            Live a -> case a of
[opt-env-conf-test] +              -- Plain argument: that's the only option, consume it.
[opt-env-conf-test] +              ArgPlain plain -> [(Just plain, consumed)]
[opt-env-conf-test] +              -- A single dash is always an argument
[opt-env-conf-test] +              ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test] +              -- Bare double-dash
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +              ArgDashed {} ->
[opt-env-conf-test] +                -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test] +                --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] +                --   * The dashed is an argument
[opt-env-conf-test] +                -- TODO we need to continue looking too
[opt-env-conf-test] +                let switchCase =
[opt-env-conf-test] +                      consumeArgument (Args (befores ++ [firstArg]) afters)
[opt-env-conf-test] +                        ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                           ]
[opt-env-conf-test] +                 in case afters of
[opt-env-conf-test] +                      -- Last argument is is dashed, that's the same as being followed by a dead argument
[opt-env-conf-test] +                      [] -> switchCase
[opt-env-conf-test] +                      (Dead : _) -> switchCase
[opt-env-conf-test] +                      (Live a' : rest) ->
[opt-env-conf-test] +                        -- Live after dashed, three options, in order that they should be considered:
[opt-env-conf-test] +                        --   * The dashed is an option and the live is the value
[opt-env-conf-test] +                        --   * The dashed is a switch and the live is an argument
[opt-env-conf-test] +                        --   * The dashed is an argument
[opt-env-conf-test] +                        ( case a' of
[opt-env-conf-test] +                            ArgDashed {} ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a]) afters)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                            _ ->
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                     (Just (renderArg a), consumed)
[opt-env-conf-test] +                                   ]
[opt-env-conf-test] +                        )
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Consume an option.
[opt-env-conf-test]  --
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf-test] @@ -222,9 +222,9 @@
[opt-env-conf-test]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf-test]      Nothing ->
[opt-env-conf-test]        -- TODO option value on the border
[opt-env-conf-test] -      case go (argsAfter as) of
[opt-env-conf-test] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf-test] -        Nothing -> Nothing
[opt-env-conf-test] +      case go (argsAfter as) of
[opt-env-conf-test] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf-test] +        Nothing -> Nothing
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf-test]      go = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test]            ArgBareDoubleDash -> Nothing
[opt-env-conf-test]            ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds True cs of
[opt-env-conf-test]                Just v -> Just (v, Dead : rest)
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test]            ArgBareDoubleDash -> Nothing
[opt-env-conf-test]            ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds False cs of
[opt-env-conf-test]                Just v -> Just (v, Dead : rest)
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf-test] @@ -242,7 +242,7 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                    case consumeDashedOption dasheds True cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf-test] @@ -242,7 +242,7 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                    case consumeDashedOption dasheds False cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:245:54-60
[opt-env-conf-test] @@ -242,7 +242,7 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                    case consumeDashedOption dasheds not (isLong) cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test]                        Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf-test] @@ -245,7 +245,7 @@
[opt-env-conf-test]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed not (isLong) cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf-test] @@ -245,7 +245,7 @@
[opt-env-conf-test]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf-test] @@ -242,10 +242,10 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf-test] @@ -242,10 +242,10 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf-test] @@ -240,13 +240,13 @@
[opt-env-conf-test]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test]                Just v -> Just (v, Dead : rest)
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf-test] @@ -237,16 +237,16 @@
[opt-env-conf-test]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test]            ArgBareDoubleDash -> Nothing
[opt-env-conf-test]            ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] -              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] -              Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] +              Nothing ->
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:243:17-53
[opt-env-conf-test] @@ -240,13 +240,13 @@
[opt-env-conf-test]              case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test]                Just v -> Just (v, Dead : rest)
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:240:13-53
[opt-env-conf-test] @@ -237,16 +237,16 @@
[opt-env-conf-test]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test]            ArgBareDoubleDash -> Nothing
[opt-env-conf-test]            ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] -              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] -              Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] +              Nothing ->
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf-test] @@ -233,21 +233,21 @@
[opt-env-conf-test]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf-test]        -- If we find a live key, try to consume it.
[opt-env-conf-test]        (Live k : rest) ->
[opt-env-conf-test] -        case k of
[opt-env-conf-test] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] -          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -          ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] -              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] -              Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] -          _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +        case k of
[opt-env-conf-test] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] +          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +          ArgDashed isLong cs ->
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] +              Nothing ->
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +          _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test]    [Dashed] ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf-test] @@ -233,21 +233,21 @@
[opt-env-conf-test]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf-test]        -- If we find a live key, try to consume it.
[opt-env-conf-test]        (Live k : rest) ->
[opt-env-conf-test] -        case k of
[opt-env-conf-test] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] -          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -          ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] -              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] -              Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] -          _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +        case k of
[opt-env-conf-test] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] +          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +          ArgDashed isLong cs ->
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] +              Nothing ->
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +          _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test]    [Dashed] ->
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:79:26-30
[opt-env-conf-test] @@ -76,7 +76,7 @@
[opt-env-conf-test]  parseArg = \case
[opt-env-conf-test]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDoubleDash
[opt-env-conf-test] -    Just ne -> ArgDashed True ne
[opt-env-conf-test] +    Just ne -> ArgDashed False ne
[opt-env-conf-test]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDash
[opt-env-conf-test]      Just ne -> ArgDashed False ne
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:225:7-27
[opt-env-conf-test] @@ -222,9 +222,9 @@
[opt-env-conf-test]      Just (val, newBefores) -> Just (val, as {argsBefore = newBefores})
[opt-env-conf-test]      Nothing ->
[opt-env-conf-test]        -- TODO option value on the border
[opt-env-conf-test] -      case go (argsAfter as) of
[opt-env-conf-test] -        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf-test] -        Nothing -> Nothing
[opt-env-conf-test] +      case go (argsAfter as) of
[opt-env-conf-test] +        Just (val, newAfters) -> Just (val, as {argsAfter = newAfters})
[opt-env-conf-test] +        Nothing -> Nothing
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: [Tomb Arg] -> Maybe (String, [Tomb Arg])
[opt-env-conf-test]      go = \case
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:205:77-91
[opt-env-conf-test] @@ -202,7 +202,7 @@
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test]                                consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] -                                ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test] +                                ++ [ (Just (renderArg a'), Args (befores ++ []) rest),
[opt-env-conf-test]                                       (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                          )
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:89:22-45
[opt-env-conf-test] @@ -86,7 +86,7 @@
[opt-env-conf-test]  renderArg = \case
[opt-env-conf-test]    ArgBareDoubleDash -> "--"
[opt-env-conf-test]    ArgBareDash -> "-"
[opt-env-conf-test] -  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf-test] +  ArgDashed l cs -> (if l then "--" else "-") <> NE.toList cs
[opt-env-conf-test]    ArgPlain a -> a
[opt-env-conf-test]  
[opt-env-conf-test]  -- | An abstraction over '[String]' that makes it easier to implement
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf-test] @@ -245,7 +245,7 @@
[opt-env-conf-test]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed True cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:258:3-69
[opt-env-conf-test] @@ -255,9 +255,9 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] -    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf-test] -    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf-test] +  if isLong
[opt-env-conf-test] +    then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf-test] +    else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test]  consumeLongDashedShorthandOption ::
[opt-env-conf-test]    [NonEmpty Char] ->
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:240:55-61
[opt-env-conf-test] @@ -237,7 +237,7 @@
[opt-env-conf-test]            -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test]            ArgBareDoubleDash -> Nothing
[opt-env-conf-test]            ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds not (isLong) cs of
[opt-env-conf-test]                Just v -> Just (v, Dead : rest)
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:245:21-104
[opt-env-conf-test] @@ -242,10 +242,10 @@
[opt-env-conf-test]                Nothing ->
[opt-env-conf-test]                  case rest of
[opt-env-conf-test]                    (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:236:9-45
[opt-env-conf-test] @@ -233,21 +233,21 @@
[opt-env-conf-test]        (Dead : rest) -> second (Dead :) <$> go rest
[opt-env-conf-test]        -- If we find a live key, try to consume it.
[opt-env-conf-test]        (Live k : rest) ->
[opt-env-conf-test] -        case k of
[opt-env-conf-test] -          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] -          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] -          ArgDashed isLong cs ->
[opt-env-conf-test] -            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] -              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] -              Nothing ->
[opt-env-conf-test] -                case rest of
[opt-env-conf-test] -                  (Live v : rest') ->
[opt-env-conf-test] -                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] -                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] -                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] -                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] -          _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +        case k of
[opt-env-conf-test] +          -- We can either consume it as-is, or as a shorthand option.
[opt-env-conf-test] +          ArgBareDoubleDash -> Nothing
[opt-env-conf-test] +          ArgDashed isLong cs ->
[opt-env-conf-test] +            case consumeDashedShorthandOption dasheds isLong cs of
[opt-env-conf-test] +              Just v -> Just (v, Dead : rest)
[opt-env-conf-test] +              Nothing ->
[opt-env-conf-test] +                case rest of
[opt-env-conf-test] +                  (Live v : rest') ->
[opt-env-conf-test] +                    case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test] +                      Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test] +                      Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                  _ -> second (Live k :) <$> go rest
[opt-env-conf-test] +          _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDashedShorthandOption ::
[opt-env-conf-test]    [Dashed] ->
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf-test] @@ -74,9 +74,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parseArg :: String -> Arg
[opt-env-conf-test]  parseArg = \case
[opt-env-conf-test] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] -    Nothing -> ArgBareDoubleDash
[opt-env-conf-test] -    Just ne -> ArgDashed True ne
[opt-env-conf-test] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] +    Nothing -> ArgBareDoubleDash
[opt-env-conf-test] +    Just ne -> ArgDashed True ne
[opt-env-conf-test]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDash
[opt-env-conf-test]      Just ne -> ArgDashed False ne
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:82:26-31
[opt-env-conf-test] @@ -79,7 +79,7 @@
[opt-env-conf-test]      Just ne -> ArgDashed True ne
[opt-env-conf-test]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDash
[opt-env-conf-test] -    Just ne -> ArgDashed False ne
[opt-env-conf-test] +    Just ne -> ArgDashed True ne
[opt-env-conf-test]    s -> ArgPlain s
[opt-env-conf-test]  
[opt-env-conf-test]  renderArg :: Arg -> String
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]  instance Validity Dashed
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Dashed where
[opt-env-conf-test] -  fromString s = case fromString s of
[opt-env-conf-test] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] -    _ -> error "Invalid dashed"
[opt-env-conf-test] +  fromString s = case fromString s of
[opt-env-conf-test] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] +    _ -> error "Invalid dashed"
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]  instance Validity Dashed
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Dashed where
[opt-env-conf-test] -  fromString s = case fromString s of
[opt-env-conf-test] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] -    _ -> error "Invalid dashed"
[opt-env-conf-test] +  fromString s = case fromString s of
[opt-env-conf-test] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] +    _ -> error "Invalid dashed"
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test]              ('-' : _) -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ False
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test]              ('-' : _) -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]  instance Validity Dashed
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Dashed where
[opt-env-conf-test] -  fromString s = case fromString s of
[opt-env-conf-test] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] -    _ -> error "Invalid dashed"
[opt-env-conf-test] +  fromString s = case fromString s of
[opt-env-conf-test] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] +    _ -> error "Invalid dashed"
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf-test] @@ -77,9 +77,9 @@
[opt-env-conf-test]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDoubleDash
[opt-env-conf-test]      Just ne -> ArgDashed True ne
[opt-env-conf-test] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] -    Nothing -> ArgBareDash
[opt-env-conf-test] -    Just ne -> ArgDashed False ne
[opt-env-conf-test] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] +    Nothing -> ArgBareDash
[opt-env-conf-test] +    Just ne -> ArgDashed False ne
[opt-env-conf-test]    s -> ArgPlain s
[opt-env-conf-test]  
[opt-env-conf-test]  renderArg :: Arg -> String
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:80:17-34
[opt-env-conf-test] @@ -77,9 +77,9 @@
[opt-env-conf-test]    '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDoubleDash
[opt-env-conf-test]      Just ne -> ArgDashed True ne
[opt-env-conf-test] -  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] -    Nothing -> ArgBareDash
[opt-env-conf-test] -    Just ne -> ArgDashed False ne
[opt-env-conf-test] +  '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] +    Nothing -> ArgBareDash
[opt-env-conf-test] +    Just ne -> ArgDashed False ne
[opt-env-conf-test]    s -> ArgPlain s
[opt-env-conf-test]  
[opt-env-conf-test]  renderArg :: Arg -> String
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:77:23-33
[opt-env-conf-test] @@ -74,9 +74,9 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parseArg :: String -> Arg
[opt-env-conf-test]  parseArg = \case
[opt-env-conf-test] -  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] -    Nothing -> ArgBareDoubleDash
[opt-env-conf-test] -    Just ne -> ArgDashed True ne
[opt-env-conf-test] +  '-' : '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test] +    Nothing -> ArgBareDoubleDash
[opt-env-conf-test] +    Just ne -> ArgDashed True ne
[opt-env-conf-test]    '-' : rest -> case NE.nonEmpty rest of
[opt-env-conf-test]      Nothing -> ArgBareDash
[opt-env-conf-test]      Just ne -> ArgDashed False ne
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,7 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,9 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ not (case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True)
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,9 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,7 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ False
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:68:18-22
[opt-env-conf-test] @@ -65,7 +65,7 @@
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test]              ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +            _ -> False
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf-test] @@ -61,12 +61,12 @@
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf-test] @@ -61,12 +61,12 @@
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test] Testing mutation BoolLit at src/OptEnvConf/Args.hs:67:26-31
[opt-env-conf-test] @@ -64,7 +64,7 @@
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] +            ('-' : _) -> True
[opt-env-conf-test]              _ -> True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ not (c /= '-')
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test]              ('-' : _) -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf-test] @@ -61,12 +61,12 @@
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf-test] @@ -60,14 +60,14 @@
[opt-env-conf-test]  instance Validity Arg where
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test] -      [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ genericValidate arg,
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test]    fromString = parseArg
[opt-env-conf-test] Testing mutation RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,9 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf-test] @@ -60,14 +60,7 @@
[opt-env-conf-test]  instance Validity Arg where
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test] -      [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test]    fromString = parseArg
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:295:7-21
[opt-env-conf-test] @@ -292,9 +292,9 @@
[opt-env-conf-test]  consumeDashedOption dasheds isLong cs =
[opt-env-conf-test]    if isLong
[opt-env-conf-test]      then
[opt-env-conf-test] -      if DashedLong cs `elem` dasheds
[opt-env-conf-test] -        then Just Nothing
[opt-env-conf-test] -        else Nothing
[opt-env-conf-test] +      if DashedLong cs `elem` dasheds
[opt-env-conf-test] +        then Just Nothing
[opt-env-conf-test] +        else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test]        let (mRest, c) = unsnocNE cs
[opt-env-conf-test]         in if DashedShort c `elem` dasheds
[opt-env-conf-test] Testing mutation Negate at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf-test] @@ -255,7 +255,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if not (isLong)
[opt-env-conf-test]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf-test]      else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation ConstBool at src/OptEnvConf/Args.hs:258:6-12
[opt-env-conf-test] @@ -255,7 +255,7 @@
[opt-env-conf-test]    NonEmpty Char ->
[opt-env-conf-test]    Maybe String
[opt-env-conf-test]  consumeDashedShorthandOption dasheds isLong cs =
[opt-env-conf-test] -  if isLong
[opt-env-conf-test] +  if False
[opt-env-conf-test]      then consumeLongDashedShorthandOption (longDasheds dasheds) cs
[opt-env-conf-test] Killed: 1163
[opt-env-conf-test] Survived: 271
[opt-env-conf-test] Uncovered: 353
[opt-env-conf-test] 
[opt-env-conf-test] Surviving mutations:
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf-test] @@ -60,14 +60,14 @@
[opt-env-conf-test]  instance Validity Arg where
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test] -      [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      [ genericValidate arg,
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test] +      ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test]    fromString = parseArg
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Args.hs:63:7-8
[opt-env-conf-test] @@ -60,14 +60,7 @@
[opt-env-conf-test]  instance Validity Arg where
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test] -      [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] -      ]
[opt-env-conf-test] +      []
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test]    fromString = parseArg
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf-test] @@ -61,12 +61,12 @@
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:64:9-21
[opt-env-conf-test] @@ -61,12 +61,12 @@
[opt-env-conf-test]    validate arg =
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test] -        case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] -          _ -> valid
[opt-env-conf-test] +        case arg of
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test] +          _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Arg where
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,9 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] +            ('-' : _) -> False
[opt-env-conf-test] +            _ -> True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:66:64-22
[opt-env-conf-test] @@ -63,9 +63,7 @@
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test]            ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] -          ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test] -            ('-' : _) -> False
[opt-env-conf-test] -            _ -> True
[opt-env-conf-test] +          ArgPlain s -> declare "does not start with a dash" $ True
[opt-env-conf-test]            _ -> valid
[opt-env-conf-test]        ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:65:103-111
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]      mconcat
[opt-env-conf-test]        [ genericValidate arg,
[opt-env-conf-test]          case arg of
[opt-env-conf-test] -          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ c /= '-'
[opt-env-conf-test] +          ArgDashed False (c :| _) -> declare "The first character of a short dashed is not a dash" $ True
[opt-env-conf-test]            ArgPlain s -> declare "does not start with a dash" $ case s of
[opt-env-conf-test]              ('-' : _) -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:399:18-32
[opt-env-conf-test] @@ -396,10 +396,10 @@
[opt-env-conf-test]  instance Validity Dashed
[opt-env-conf-test]  
[opt-env-conf-test]  instance IsString Dashed where
[opt-env-conf-test] -  fromString s = case fromString s of
[opt-env-conf-test] -    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] -    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] -    _ -> error "Invalid dashed"
[opt-env-conf-test] +  fromString s = case fromString s of
[opt-env-conf-test] +    ArgDashed True cs -> DashedLong cs
[opt-env-conf-test] +    ArgDashed False (c :| []) -> DashedShort c
[opt-env-conf-test] +    _ -> error "Invalid dashed"
[opt-env-conf-test]  
[opt-env-conf-test]  renderDashed :: Dashed -> String
[opt-env-conf-test]  renderDashed = \case
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:248:77-83
[opt-env-conf-test] @@ -245,7 +245,7 @@
[opt-env-conf-test]                      case consumeDashedOption dasheds isLong cs of
[opt-env-conf-test]                        Nothing -> second (Live k :) <$> go rest
[opt-env-conf-test]                        Just Nothing -> Just (renderArg v, Dead : rest')
[opt-env-conf-test] -                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed isLong cs') : Dead : rest')
[opt-env-conf-test] +                      Just (Just cs') -> Just (renderArg v, Live (ArgDashed False cs') : Dead : rest')
[opt-env-conf-test]                    _ -> second (Live k :) <$> go rest
[opt-env-conf-test]            _ -> second (Live k :) <$> go rest
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:152:36-28
[opt-env-conf-test] @@ -149,34 +149,34 @@
[opt-env-conf-test]                -- A single dash is always an argument
[opt-env-conf-test]                ArgBareDash -> [(Just "-", consumed)]
[opt-env-conf-test]                -- Bare double-dash
[opt-env-conf-test] -              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] -                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] -                [] -> [(Just "--", consumed)]
[opt-env-conf-test] -                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] -                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] -                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] -                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] -                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] -                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] -                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] -                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] -                -- pop the args as they come.
[opt-env-conf-test] -                _ ->
[opt-env-conf-test] -                  let go = \case
[opt-env-conf-test] -                        [] -> Nothing
[opt-env-conf-test] -                        (Dead : rest) -> go rest
[opt-env-conf-test] -                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +              ArgBareDoubleDash -> case afters of
[opt-env-conf-test] +                -- If it's the last argument, consume it as an argument
[opt-env-conf-test] +                [] -> [(Just "--", consumed)]
[opt-env-conf-test] +                -- If there's only a dead argument after the double dash, that
[opt-env-conf-test] +                -- means we've been parsing bare args and are now done.
[opt-env-conf-test] +                -- We can stop consuming but get rid of the tombstone as well.
[opt-env-conf-test] +                -- Otherwise there will be a leftover unconsumed '--' after all parsing is done.
[opt-env-conf-test] +                [Dead] -> [(Nothing, Args befores [])]
[opt-env-conf-test] +                -- If it's not the last argument, anything after here is an argument.
[opt-env-conf-test] +                -- In order to not have to maintain whether the cursor is after
[opt-env-conf-test] +                -- a bare double dash already, we keep the cursor here and just
[opt-env-conf-test] +                -- pop the args as they come.
[opt-env-conf-test] +                _ ->
[opt-env-conf-test] +                  let go = \case
[opt-env-conf-test] +                        [] -> Nothing
[opt-env-conf-test] +                        (Dead : rest) -> go rest
[opt-env-conf-test] +                        (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Args.hs:169:23-28
[opt-env-conf-test] @@ -166,17 +166,17 @@
[opt-env-conf-test]                          [] -> Nothing
[opt-env-conf-test]                          (Dead : rest) -> go rest
[opt-env-conf-test]                          (Live a' : rest) -> Just (a', rest)
[opt-env-conf-test] -                   in case go afters of
[opt-env-conf-test] -                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] -                        Just (firstLive, rest) ->
[opt-env-conf-test] -                          -- We need to leave the dead argument there so that
[opt-env-conf-test] -                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] -                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] -                          -- arguments.
[opt-env-conf-test] -                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] -                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] -                            )
[opt-env-conf-test] -                          ]
[opt-env-conf-test] +                   in case go afters of
[opt-env-conf-test] +                        Nothing -> [(Nothing, as)]
[opt-env-conf-test] +                        Just (firstLive, rest) ->
[opt-env-conf-test] +                          -- We need to leave the dead argument there so that
[opt-env-conf-test] +                          -- we don't consume the double-dash as an argument
[opt-env-conf-test] +                          -- after consuming all the arguments after it as bare
[opt-env-conf-test] +                          -- arguments.
[opt-env-conf-test] +                          [ ( Just $ renderArg firstLive,
[opt-env-conf-test] +                              Args befores (Live ArgBareDoubleDash : Dead : rest)
[opt-env-conf-test] +                            )
[opt-env-conf-test] +                          ]
[opt-env-conf-test]                ArgDashed {} ->
[opt-env-conf-test]                  -- Dead after dashed, two options, in order that they should be considered:
[opt-env-conf-test]                  --   * The dashed is a switch (don't consume an arg)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:339:40-46
[opt-env-conf-test] @@ -336,7 +336,7 @@
[opt-env-conf-test]            Just Nothing -> Just $ Dead : rest
[opt-env-conf-test]            Just (Just (cs', needTombstone)) ->
[opt-env-conf-test]              let rest' = if needTombstone then Dead : rest else rest
[opt-env-conf-test] -             in Just $ Live (ArgDashed isLong cs') : rest'
[opt-env-conf-test] +             in Just $ Live (ArgDashed False cs') : rest'
[opt-env-conf-test]          _ -> do
[opt-env-conf-test]            os <- go rest
[opt-env-conf-test]            pure $ Live o : os
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Args.hs:365:34-43
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]      go :: NonEmpty Char -> Maybe (Maybe (NonEmpty Char, Bool))
[opt-env-conf-test]      go (c :| rest) =
[opt-env-conf-test]        if c `elem` cs
[opt-env-conf-test] -        then Just $ (\ne -> (ne, null rest)) <$> NE.nonEmpty rest
[opt-env-conf-test] +        then Just $ (\ne -> (ne, False)) <$> NE.nonEmpty rest
[opt-env-conf-test]          else do
[opt-env-conf-test]            rest' <- NE.nonEmpty rest
[opt-env-conf-test]            new <- go rest'
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:440:44-42
[opt-env-conf-test] @@ -437,21 +437,21 @@
[opt-env-conf-test]                                  Just (a, _) -> do
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test] -                                Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] -                                  debug ["not found"]
[opt-env-conf-test] -                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] -                                    NE.nonEmpty $
[opt-env-conf-test] -                                      catMaybes
[opt-env-conf-test] -                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] -                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] -                                        ]
[opt-env-conf-test] +                                Nothing -> do
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  debug ["not found"]
[opt-env-conf-test] +                                  maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test] +                                    NE.nonEmpty $
[opt-env-conf-test] +                                      catMaybes
[opt-env-conf-test] +                                        [ parseResultError (ParseErrorMissingArgument mOptDoc) mArg,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingSwitch mOptDoc) mSwitch,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingOption mOptDoc) mOpt,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingEnvVar mEnvDoc) mEnv,
[opt-env-conf-test] +                                          parseResultError (ParseErrorMissingConfVal mConfDoc) mConf
[opt-env-conf-test] +                                        ]
[opt-env-conf-test]  
[opt-env-conf-test]  withCapabilities ::
[opt-env-conf-test]    Maybe SrcLoc ->
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:441:64-59
[opt-env-conf-test] @@ -438,10 +438,10 @@
[opt-env-conf-test]                                    debug ["set to default value"]
[opt-env-conf-test]                                    pure a -- Don't mark as parsed
[opt-env-conf-test]                                  Nothing -> do
[opt-env-conf-test] -                                  let parseResultError e res = case res of
[opt-env-conf-test] -                                        NotRun -> Nothing
[opt-env-conf-test] -                                        NotFound -> Just e
[opt-env-conf-test] -                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test] +                                  let parseResultError e res = case res of
[opt-env-conf-test] +                                        NotRun -> Nothing
[opt-env-conf-test] +                                        NotFound -> Just e
[opt-env-conf-test] +                                        Found _ -> Nothing -- Should not happen.
[opt-env-conf-test]                                    debug ["not found"]
[opt-env-conf-test]                                    maybe (ppError mLoc ParseErrorEmptySetting) (ppErrors mLoc) $
[opt-env-conf-test]                                      NE.nonEmpty $
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:396:41-64
[opt-env-conf-test] @@ -393,30 +393,30 @@
[opt-env-conf-test]                                                  case mO' of
[opt-env-conf-test]                                                    Nothing -> pure Nothing
[opt-env-conf-test]                                                    Just o' -> jsonParser o' neRest
[opt-env-conf-test] -                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] -                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                          Right mV -> case mV of
[opt-env-conf-test] -                                            Nothing -> do
[opt-env-conf-test] -                                              debug
[opt-env-conf-test] -                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] -                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                ]
[opt-env-conf-test] -                                              pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                        case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test] +                                          Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                          Right mV -> case mV of
[opt-env-conf-test] +                                            Nothing -> do
[opt-env-conf-test] +                                              debug
[opt-env-conf-test] +                                                [ "could not set based on config value, not configured: ",
[opt-env-conf-test] +                                                  chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                ]
[opt-env-conf-test] +                                              pure Nothing
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:405:55-64
[opt-env-conf-test] @@ -402,21 +402,21 @@
[opt-env-conf-test]                                                    chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test]                                                  ]
[opt-env-conf-test]                                                pure Nothing
[opt-env-conf-test] -                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] -                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] -                                              Right mA -> case mA of
[opt-env-conf-test] -                                                Nothing -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure Nothing
[opt-env-conf-test] -                                                Just a -> do
[opt-env-conf-test] -                                                  debug
[opt-env-conf-test] -                                                    [ "set based on config value: ",
[opt-env-conf-test] -                                                      chunk $ T.pack $ show v
[opt-env-conf-test] -                                                    ]
[opt-env-conf-test] -                                                  pure $ Just a
[opt-env-conf-test] +                                            Just v -> case JSON.parseEither (parseJSONVia configValSettingCodec) v of
[opt-env-conf-test] +                                              Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test] +                                              Right mA -> case mA of
[opt-env-conf-test] +                                                Nothing -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "could not set based on config value, configured to nothing: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show $ NE.toList configValSettingPath
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure Nothing
[opt-env-conf-test] +                                                Just a -> do
[opt-env-conf-test] +                                                  debug
[opt-env-conf-test] +                                                    [ "set based on config value: ",
[opt-env-conf-test] +                                                      chunk $ T.pack $ show v
[opt-env-conf-test] +                                                    ]
[opt-env-conf-test] +                                                  pure $ Just a
[opt-env-conf-test]                                    let toRes = \case
[opt-env-conf-test]                                          Nothing -> NotFound
[opt-env-conf-test]                                          Just a -> Found a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:393:49-82
[opt-env-conf-test] @@ -390,9 +390,9 @@
[opt-env-conf-test]                                                    Just v -> Just <$> parseJSON v
[opt-env-conf-test]                                                Just neRest -> do
[opt-env-conf-test]                                                  mO' <- o .:? Key.fromString k
[opt-env-conf-test] -                                                case mO' of
[opt-env-conf-test] -                                                  Nothing -> pure Nothing
[opt-env-conf-test] -                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test] +                                                case mO' of
[opt-env-conf-test] +                                                  Nothing -> pure Nothing
[opt-env-conf-test] +                                                  Just o' -> jsonParser o' neRest
[opt-env-conf-test]                                          case JSON.parseEither (jsonParser obj) configValSettingPath of
[opt-env-conf-test]                                            Left err -> ppError mLoc $ ParseErrorConfigRead mConfDoc err
[opt-env-conf-test]                                            Right mV -> case mV of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:224:38-20
[opt-env-conf-test] @@ -221,15 +221,15 @@
[opt-env-conf-test]                  Just c -> do
[opt-env-conf-test]                    debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test]                    go $ commandParser c
[opt-env-conf-test] -      ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          debug ["loading config"]
[opt-env-conf-test] -          mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] -          debug ["with loaded config"]
[opt-env-conf-test] -          ppIndent $
[opt-env-conf-test] -            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf-test] -              go pa
[opt-env-conf-test] +      ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] +        debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          debug ["loading config"]
[opt-env-conf-test] +          mNewConfig <- ppIndent $ go pc
[opt-env-conf-test] +          debug ["with loaded config"]
[opt-env-conf-test] +          ppIndent $
[opt-env-conf-test] +            local (\e -> e {ppEnvConf = mNewConfig}) $
[opt-env-conf-test] +              go pa
[opt-env-conf-test]        ParserSetting mLoc set@Setting {..} -> do
[opt-env-conf-test]          debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null settingRequiredCapabilities)) $
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:221:27-39
[opt-env-conf-test] @@ -218,9 +218,9 @@
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] -                Just c -> do
[opt-env-conf-test] -                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] -                  go $ commandParser c
[opt-env-conf-test] +                Just c -> do
[opt-env-conf-test] +                  debug ["Set command to ", commandChunk (commandArg c)]
[opt-env-conf-test] +                  go $ commandParser c
[opt-env-conf-test]        ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]          debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:215:28-40
[opt-env-conf-test] @@ -212,9 +212,9 @@
[opt-env-conf-test]                      find ((== d) . commandArg) cs
[opt-env-conf-test]                case mDefaultCommand of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorMissingCommand docsForErrors
[opt-env-conf-test] -                Just dc -> do
[opt-env-conf-test] -                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] -                  go $ commandParser dc
[opt-env-conf-test] +                Just dc -> do
[opt-env-conf-test] +                  debug ["Choosing default command: ", commandChunk (commandArg dc)]
[opt-env-conf-test] +                  go $ commandParser dc
[opt-env-conf-test]              Just s -> do
[opt-env-conf-test]                case find ((== s) . commandArg) cs of
[opt-env-conf-test]                  Nothing -> ppError mLoc $ ParseErrorUnrecognisedCommand s docsForErrors
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:195:29-70
[opt-env-conf-test] @@ -192,9 +192,9 @@
[opt-env-conf-test]              withCapabilities mLoc requiredCapabilities capabilities $ do
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test] -                Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                Left err -> do
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:197:56-66
[opt-env-conf-test] @@ -194,7 +194,7 @@
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test]                    debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] -                  ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test] +                  ppError mLoc $ ParseErrorCheckFailed False err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test]                    pure b
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:196:25-83
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug []
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show not (forgivable)]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:196:72-82
[opt-env-conf-test] @@ -193,7 +193,7 @@
[opt-env-conf-test]                errOrB <- liftIO $ f a
[opt-env-conf-test]                case errOrB of
[opt-env-conf-test]                  Left err -> do
[opt-env-conf-test] -                  debug ["failed, forgivable: ", chunk $ T.pack $ show forgivable]
[opt-env-conf-test] +                  debug ["failed, forgivable: ", chunk $ T.pack $ show True]
[opt-env-conf-test]                    ppError mLoc $ ParseErrorCheckFailed forgivable err
[opt-env-conf-test]                  Right b -> do
[opt-env-conf-test]                    debug ["succeeded"]
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:150:37-112
[opt-env-conf-test] @@ -147,34 +147,34 @@
[opt-env-conf-test]            debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test]            as <- go (ParserMany mLoc p')
[opt-env-conf-test]            pure (a :| as)
[opt-env-conf-test] -      ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          e <- ask
[opt-env-conf-test] -          s <- get
[opt-env-conf-test] -          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] -          (result, s') <- ppNonDetList results
[opt-env-conf-test] -          put s'
[opt-env-conf-test] -          case result of
[opt-env-conf-test] -            Success a -> pure a
[opt-env-conf-test] -            Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] -                then ppErrors' errs
[opt-env-conf-test] -                else do
[opt-env-conf-test] -                  -- Settings available below
[opt-env-conf-test] -                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] -                  -- Settings that have been parsed
[opt-env-conf-test] -                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] -                  -- Settings that have been parsed below
[opt-env-conf-test] -                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] -                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] -                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] -                  -- with only forgivable errors
[opt-env-conf-test] -                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] -                  -- then this should be an unforgivable error.
[opt-env-conf-test] -                  if null parsedSettingsMap
[opt-env-conf-test] -                    then ppErrors' errs
[opt-env-conf-test] -                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test] +      ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          e <- ask
[opt-env-conf-test] +          s <- get
[opt-env-conf-test] +          results <- liftIO $ runPP (go p') s e
[opt-env-conf-test] +          (result, s') <- ppNonDetList results
[opt-env-conf-test] +          put s'
[opt-env-conf-test] +          case result of
[opt-env-conf-test] +            Success a -> pure a
[opt-env-conf-test] +            Failure errs -> do
[opt-env-conf-test] +              if not $ all errorIsForgivable errs
[opt-env-conf-test] +                then ppErrors' errs
[opt-env-conf-test] +                else do
[opt-env-conf-test] +                  -- Settings available below
[opt-env-conf-test] +                  let settingsMap = parserSettingsMap p'
[opt-env-conf-test] +                  -- Settings that have been parsed
[opt-env-conf-test] +                  parsedMap <- gets ppStateParsedSettings
[opt-env-conf-test] +                  -- Settings that have been parsed below
[opt-env-conf-test] +                  let parsedSettingsMap = settingsMap `M.intersection` parsedMap
[opt-env-conf-test] +                  -- If any settings have been parsed below, and parsing still failed
[opt-env-conf-test] +                  -- (this is the case because we're in the failure branch)
[opt-env-conf-test] +                  -- with only forgivable errors
[opt-env-conf-test] +                  -- (this is the case because we're in the branch where that's been checked)
[opt-env-conf-test] +                  -- then this should be an unforgivable error.
[opt-env-conf-test] +                  if null parsedSettingsMap
[opt-env-conf-test] +                    then ppErrors' errs
[opt-env-conf-test] +                    else ppErrors' $ errs <> (ParseError mLoc (ParseErrorAllOrNothing parsedSettingsMap) :| [])
[opt-env-conf-test]        ParserCheck mLoc forgivable requiredCapabilities f p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          when (not (Set.null requiredCapabilities)) $
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:18-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if False
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Run.hs:161:24-50
[opt-env-conf-test] @@ -158,7 +158,7 @@
[opt-env-conf-test]            case result of
[opt-env-conf-test]              Success a -> pure a
[opt-env-conf-test]              Failure errs -> do
[opt-env-conf-test] -              if not $ all errorIsForgivable errs
[opt-env-conf-test] +              if not $ True
[opt-env-conf-test]                  then ppErrors' errs
[opt-env-conf-test]                  else do
[opt-env-conf-test]                    -- Settings available below
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:143:29-25
[opt-env-conf-test] @@ -140,13 +140,13 @@
[opt-env-conf-test]              Just a -> do
[opt-env-conf-test]                as <- go (ParserMany mLoc p')
[opt-env-conf-test]                pure (a : as)
[opt-env-conf-test] -      ParserSome mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          a <- go p'
[opt-env-conf-test] -          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] -          as <- go (ParserMany mLoc p')
[opt-env-conf-test] -          pure (a :| as)
[opt-env-conf-test] +      ParserSome mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          a <- go p'
[opt-env-conf-test] +          debug ["First element of some succeeded, continuing with Many"]
[opt-env-conf-test] +          as <- go (ParserMany mLoc p')
[opt-env-conf-test] +          pure (a :| as)
[opt-env-conf-test]        ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:134:29-28
[opt-env-conf-test] @@ -131,15 +131,15 @@
[opt-env-conf-test]              Nothing -> do
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test] -      ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          eor <- tryPP $ go p'
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Nothing -> pure []
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              as <- go (ParserMany mLoc p')
[opt-env-conf-test] -              pure (a : as)
[opt-env-conf-test] +      ParserMany mLoc p' -> do
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          eor <- tryPP $ go p'
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Nothing -> pure []
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              as <- go (ParserMany mLoc p')
[opt-env-conf-test] +              pure (a : as)
[opt-env-conf-test]        ParserSome mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,8 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": "
[opt-env-conf-test] +]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,7 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Run.hs:135:15-60
[opt-env-conf-test] @@ -132,7 +132,7 @@
[opt-env-conf-test]                debug ["Left side failed, trying right side."]
[opt-env-conf-test]                ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test] -        debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        debug []
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test]            eor <- tryPP $ go p'
[opt-env-conf-test]            case eor of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:122:26-31
[opt-env-conf-test] @@ -119,18 +119,18 @@
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test]          ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] -      ParserAlt p1 p2 -> do
[opt-env-conf-test] -        debug [syntaxChunk "Alt"]
[opt-env-conf-test] -        ppIndent $ do
[opt-env-conf-test] -          debug ["Trying left side."]
[opt-env-conf-test] -          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -          case eor of
[opt-env-conf-test] -            Just a -> do
[opt-env-conf-test] -              debug ["Left side succeeded."]
[opt-env-conf-test] -              pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +      ParserAlt p1 p2 -> do
[opt-env-conf-test] +        debug [syntaxChunk "Alt"]
[opt-env-conf-test] +        ppIndent $ do
[opt-env-conf-test] +          debug ["Trying left side."]
[opt-env-conf-test] +          eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] +          case eor of
[opt-env-conf-test] +            Just a -> do
[opt-env-conf-test] +              debug ["Left side succeeded."]
[opt-env-conf-test] +              pure a
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:131:24-31
[opt-env-conf-test] @@ -128,9 +128,9 @@
[opt-env-conf-test]              Just a -> do
[opt-env-conf-test]                debug ["Left side succeeded."]
[opt-env-conf-test]                pure a
[opt-env-conf-test] -            Nothing -> do
[opt-env-conf-test] -              debug ["Left side failed, trying right side."]
[opt-env-conf-test] -              ppIndent $ go p2
[opt-env-conf-test] +            Nothing -> do
[opt-env-conf-test] +              debug ["Left side failed, trying right side."]
[opt-env-conf-test] +              ppIndent $ go p2
[opt-env-conf-test]        ParserMany mLoc p' -> do
[opt-env-conf-test]          debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:119:29-42
[opt-env-conf-test] @@ -116,9 +116,9 @@
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test] -      ParserSelect fe ff -> do
[opt-env-conf-test] -        debug [syntaxChunk "Select"]
[opt-env-conf-test] -        ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] +      ParserSelect fe ff -> do
[opt-env-conf-test] +        debug [syntaxChunk "Select"]
[opt-env-conf-test] +        ppIndent $ select (go fe) (go ff)
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          debug [syntaxChunk "Alt"]
[opt-env-conf-test]          ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:116:27-37
[opt-env-conf-test] @@ -113,9 +113,9 @@
[opt-env-conf-test]        ParserAp ff fa -> do
[opt-env-conf-test]          debug [syntaxChunk "Ap"]
[opt-env-conf-test]          ppIndent $ go ff <*> go fa
[opt-env-conf-test] -      ParserEmpty mLoc -> do
[opt-env-conf-test] -        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -        ppError mLoc ParseErrorEmpty
[opt-env-conf-test] +      ParserEmpty mLoc -> do
[opt-env-conf-test] +        debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +        ppError mLoc ParseErrorEmpty
[opt-env-conf-test]        ParserSelect fe ff -> do
[opt-env-conf-test]          debug [syntaxChunk "Select"]
[opt-env-conf-test]          ppIndent $ select (go fe) (go ff)
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:113:25-35
[opt-env-conf-test] @@ -110,9 +110,9 @@
[opt-env-conf-test]        ParserPure a -> do
[opt-env-conf-test]          debug [syntaxChunk "pure value"]
[opt-env-conf-test]          pure a
[opt-env-conf-test] -      ParserAp ff fa -> do
[opt-env-conf-test] -        debug [syntaxChunk "Ap"]
[opt-env-conf-test] -        ppIndent $ go ff <*> go fa
[opt-env-conf-test] +      ParserAp ff fa -> do
[opt-env-conf-test] +        debug [syntaxChunk "Ap"]
[opt-env-conf-test] +        ppIndent $ go ff <*> go fa
[opt-env-conf-test]        ParserEmpty mLoc -> do
[opt-env-conf-test]          debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]          ppError mLoc ParseErrorEmpty
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:84:3-26
[opt-env-conf-test] @@ -81,27 +81,27 @@
[opt-env-conf-test]            Nothing -> pure result
[opt-env-conf-test]            Just leftovers -> ppError Nothing $ ParseErrorUnrecognised leftovers
[opt-env-conf-test]    mTup <- runPPLazy go' ppState ppEnv
[opt-env-conf-test] -  case mTup of
[opt-env-conf-test] -    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] -    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] -      Success a -> pure (Right a)
[opt-env-conf-test] -      Failure firstErrors ->
[opt-env-conf-test] -        let goNexts ns = do
[opt-env-conf-test] -              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] -              mNext <- runNonDetTLazy ns
[opt-env-conf-test] -              case mNext of
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  pure $
[opt-env-conf-test] -                    Left $
[opt-env-conf-test] -                      -- Only show source locations in debug mode.
[opt-env-conf-test] -                      let f = case mDebugMode of
[opt-env-conf-test] -                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] -                            Just _ -> id
[opt-env-conf-test] -                       in f firstErrors
[opt-env-conf-test] -                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] -                  Success a -> pure (Right a)
[opt-env-conf-test] -                  Failure _ -> goNexts ns'
[opt-env-conf-test] -         in goNexts nexts
[opt-env-conf-test] +  case mTup of
[opt-env-conf-test] +    Nothing -> error "TODO figure out when this list can be empty"
[opt-env-conf-test] +    Just ((errOrRes, _), nexts) -> case errOrRes of
[opt-env-conf-test] +      Success a -> pure (Right a)
[opt-env-conf-test] +      Failure firstErrors ->
[opt-env-conf-test] +        let goNexts ns = do
[opt-env-conf-test] +              -- TODO: Consider keeping around all errors?
[opt-env-conf-test] +              mNext <- runNonDetTLazy ns
[opt-env-conf-test] +              case mNext of
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  pure $
[opt-env-conf-test] +                    Left $
[opt-env-conf-test] +                      -- Only show source locations in debug mode.
[opt-env-conf-test] +                      let f = case mDebugMode of
[opt-env-conf-test] +                            Nothing -> eraseErrorSrcLocs
[opt-env-conf-test] +                            Just _ -> id
[opt-env-conf-test] +                       in f firstErrors
[opt-env-conf-test] +                Just ((eOR, _), ns') -> case eOR of
[opt-env-conf-test] +                  Success a -> pure (Right a)
[opt-env-conf-test] +                  Failure _ -> goNexts ns'
[opt-env-conf-test] +         in goNexts nexts
[opt-env-conf-test]    where
[opt-env-conf-test]      go ::
[opt-env-conf-test]        Parser a ->
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:464:22-66
[opt-env-conf-test] @@ -461,11 +461,11 @@
[opt-env-conf-test]    PP a
[opt-env-conf-test]  withCapabilities mLoc requiredCapabilities capabilities func =
[opt-env-conf-test]    case missingCapabilities capabilities requiredCapabilities of
[opt-env-conf-test] -    Just missings -> do
[opt-env-conf-test] -      debug $
[opt-env-conf-test] -        "Missing capabilities: "
[opt-env-conf-test] -          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] -      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test] +    Just missings -> do
[opt-env-conf-test] +      debug $
[opt-env-conf-test] +        "Missing capabilities: "
[opt-env-conf-test] +          : capabilitiesChunks (Set.fromList (NE.toList missings))
[opt-env-conf-test] +      ppErrors mLoc $ NE.map ParseErrorMissingCapability missings
[opt-env-conf-test]      Nothing -> func
[opt-env-conf-test]  
[opt-env-conf-test]  data ParseResult a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:477:21-21
[opt-env-conf-test] @@ -474,9 +474,9 @@
[opt-env-conf-test]    | Found a
[opt-env-conf-test]  
[opt-env-conf-test]  requireReaders :: [Reader a] -> PP (NonEmpty (Reader a))
[opt-env-conf-test] -requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] -  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] -  Just ne -> pure ne
[opt-env-conf-test] +requireReaders rs = case NE.nonEmpty rs of
[opt-env-conf-test] +  Nothing -> ppError Nothing ParseErrorNoReaders
[opt-env-conf-test] +  Just ne -> pure ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- Try the readers in order
[opt-env-conf-test]  tryReaders :: NonEmpty (Reader a) -> String -> Either (NonEmpty String) a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:568:44-43
[opt-env-conf-test] @@ -565,12 +565,12 @@
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] -              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                mNewConfig <- go pc
[opt-env-conf-test] -                mRes <- go pa
[opt-env-conf-test] -                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf-test] +            ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test] +              debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                mNewConfig <- go pc
[opt-env-conf-test] +                mRes <- go pa
[opt-env-conf-test] +                pure $ mRes <|> mNewConfig -- Reverse order
[opt-env-conf-test]              ParserSetting mLoc _ -> do
[opt-env-conf-test]                debug [syntaxChunk "Setting", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:565:42-31
[opt-env-conf-test] @@ -562,9 +562,9 @@
[opt-env-conf-test]              ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserWithConfig mLoc pc pa -> do
[opt-env-conf-test]                debug [syntaxChunk "WithConfig", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:562:43-31
[opt-env-conf-test] @@ -559,9 +559,9 @@
[opt-env-conf-test]              ParserSome mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Some", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] -            ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] -              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] -              ppIndent $ go p'
[opt-env-conf-test] +            ParserAllOrNothing mLoc p' -> do
[opt-env-conf-test] +              debug [syntaxChunk "AllOrNothing", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test] +              ppIndent $ go p'
[opt-env-conf-test]              ParserCheck mLoc _ _ _ p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Parser with check", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:544:32-37
[opt-env-conf-test] @@ -541,18 +541,18 @@
[opt-env-conf-test]              ParserEmpty mLoc -> do
[opt-env-conf-test]                debug [syntaxChunk "Empty", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] -            ParserAlt p1 p2 -> do
[opt-env-conf-test] -              debug [syntaxChunk "Alt"]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                debug ["Trying left side."]
[opt-env-conf-test] -                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -                case eor of
[opt-env-conf-test] -                  Just a -> do
[opt-env-conf-test] -                    debug ["Left side succeeded."]
[opt-env-conf-test] -                    pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +            ParserAlt p1 p2 -> do
[opt-env-conf-test] +              debug [syntaxChunk "Alt"]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                debug ["Trying left side."]
[opt-env-conf-test] +                eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] +                case eor of
[opt-env-conf-test] +                  Just a -> do
[opt-env-conf-test] +                    debug ["Left side succeeded."]
[opt-env-conf-test] +                    pure a
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:549:17-37
[opt-env-conf-test] @@ -546,13 +546,13 @@
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test]                  debug ["Trying left side."]
[opt-env-conf-test]                  eor <- ppIndent $ tryPP (go p1)
[opt-env-conf-test] -                case eor of
[opt-env-conf-test] -                  Just a -> do
[opt-env-conf-test] -                    debug ["Left side succeeded."]
[opt-env-conf-test] -                    pure a
[opt-env-conf-test] -                  Nothing -> do
[opt-env-conf-test] -                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] -                    ppIndent $ go p2
[opt-env-conf-test] +                case eor of
[opt-env-conf-test] +                  Just a -> do
[opt-env-conf-test] +                    debug ["Left side succeeded."]
[opt-env-conf-test] +                    pure a
[opt-env-conf-test] +                  Nothing -> do
[opt-env-conf-test] +                    debug ["Left side failed, trying right side."]
[opt-env-conf-test] +                    ppIndent $ go p2
[opt-env-conf-test]              ParserMany mLoc p' -> do
[opt-env-conf-test]                debug [syntaxChunk "Many", ": ", mSrcLocChunk mLoc]
[opt-env-conf-test]                ppIndent $ go p'
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Run.hs:529:31-33
[opt-env-conf-test] @@ -526,12 +526,12 @@
[opt-env-conf-test]              ParserPure _ -> do
[opt-env-conf-test]                debug [syntaxChunk "pure value"]
[opt-env-conf-test]                pure Nothing
[opt-env-conf-test] -            ParserAp ff fa -> do
[opt-env-conf-test] -              debug [syntaxChunk "Ap"]
[opt-env-conf-test] -              ppIndent $ do
[opt-env-conf-test] -                mf <- go ff
[opt-env-conf-test] -                ma <- go fa
[opt-env-conf-test] -                pure $ ma <|> mf -- Reverse order
[opt-env-conf-test] +            ParserAp ff fa -> do
[opt-env-conf-test] +              debug [syntaxChunk "Ap"]
[opt-env-conf-test] +              ppIndent $ do
[opt-env-conf-test] +                mf <- go ff
[opt-env-conf-test] +                ma <- go fa
[opt-env-conf-test] +                pure $ ma <|> mf -- Reverse order
[opt-env-conf-test]              ParserSelect fe ff -> do
[opt-env-conf-test]                debug [syntaxChunk "Select"]
[opt-env-conf-test]                ppIndent $ do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:514:3-35
[opt-env-conf-test] @@ -511,11 +511,11 @@
[opt-env-conf-test]              ppEnvIndent = 0
[opt-env-conf-test]            }
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test] -  case mResOrNext of
[opt-env-conf-test] -    Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +  case mResOrNext of
[opt-env-conf-test] +    Nothing -> pure $ Right Nothing
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Run.hs:516:37-35
[opt-env-conf-test] @@ -513,9 +513,9 @@
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test]    case mResOrNext of
[opt-env-conf-test]      Nothing -> pure $ Right Nothing
[opt-env-conf-test] -    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] -      Failure errs -> Left errs
[opt-env-conf-test] -      Success mDocs -> Right mDocs
[opt-env-conf-test] +    Just ((result, _), _) -> pure $ case result of
[opt-env-conf-test] +      Failure errs -> Left errs
[opt-env-conf-test] +      Success mDocs -> Right mDocs
[opt-env-conf-test]    where
[opt-env-conf-test]      -- We try to parse the commands as deep as possible and ignore everything else.
[opt-env-conf-test]      go' :: [String] -> Parser a -> PP (Maybe ([String], CommandDoc (Maybe SetDoc)))
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Run.hs:511:27-28
[opt-env-conf-test] @@ -508,7 +508,7 @@
[opt-env-conf-test]            { ppEnvEnv = EnvMap.empty,
[opt-env-conf-test]              ppEnvConf = Nothing,
[opt-env-conf-test]              ppEnvDebug = mDebugMode,
[opt-env-conf-test] -            ppEnvIndent = 0
[opt-env-conf-test] +            ppEnvIndent = 1
[opt-env-conf-test]            }
[opt-env-conf-test]    mResOrNext <- runPPLazy (go' [] parser) ppState ppEnv
[opt-env-conf-test]    case mResOrNext of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf-test] @@ -85,10 +85,10 @@
[opt-env-conf-test]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] -      (Nothing, _) -> o2
[opt-env-conf-test] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] +      (Nothing, _) -> o2
[opt-env-conf-test] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:88:27-81
[opt-env-conf-test] @@ -85,10 +85,10 @@
[opt-env-conf-test]                         in M.singleton p $ emptyOption {optionType = Just (OptionTypeSubmodule m)}
[opt-env-conf-test]                 in go' $ NE.map T.pack configValSettingPath
[opt-env-conf-test]      combineOption :: Option -> Option -> Option
[opt-env-conf-test] -    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] -      (Nothing, _) -> o2
[opt-env-conf-test] -      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] -      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test] +    combineOption o1 o2 = case (optionType o1, optionType o2) of
[opt-env-conf-test] +      (Nothing, _) -> o2
[opt-env-conf-test] +      (Just ot1, Nothing) -> o2 {optionType = Just ot1}
[opt-env-conf-test] +      (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Nix.hs:94:54-38
[opt-env-conf-test] @@ -91,8 +91,8 @@
[opt-env-conf-test]        (Just ot1, Just ot2) -> o2 {optionType = Just $ combineOptionType ot1 ot2}
[opt-env-conf-test]  
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test] -    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] -      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +    combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test] +      (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Nix.hs:96:28-38
[opt-env-conf-test] @@ -93,6 +93,6 @@
[opt-env-conf-test]      combineOptionType :: OptionType -> OptionType -> OptionType
[opt-env-conf-test]      combineOptionType ot1 ot2 = simplifyOptionType $ case (ot1, ot2) of
[opt-env-conf-test]        (OptionTypeSubmodule m1, OptionTypeSubmodule m2) -> OptionTypeSubmodule $ M.unionWith combineOption m1 m2
[opt-env-conf-test] -      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test] +      _ -> OptionTypeOneOf [ot1, ot2]
[opt-env-conf-test]      goCommand :: Command a -> Map Text Option
[opt-env-conf-test]      goCommand = go . commandParser
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:128:28-45
[opt-env-conf-test] @@ -125,42 +125,42 @@
[opt-env-conf-test]                    tc <- getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]                    hPutChunksLocaleWith tc stderr $ renderErrors errs
[opt-env-conf-test]                    exitFailure
[opt-env-conf-test] -                Right i -> case i of
[opt-env-conf-test] -                  ShowVersion -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderMan -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderDocumentation -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  RenderNixosOptions -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  BashCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateBashCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ZshCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateZshCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  FishCompletionScript progPath -> do
[opt-env-conf-test] -                    progname <- getProgName
[opt-env-conf-test] -                    generateFishCompletionScript progPath progname
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] -                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] -                    exitSuccess
[opt-env-conf-test] -                  ParsedNormally a -> pure a
[opt-env-conf-test] +                Right i -> case i of
[opt-env-conf-test] +                  ShowVersion -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderVersionPage progname version
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderMan -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderManPage progname version progDesc docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderDocumentation -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] +                    hPutChunksLocaleWith tc stdout $ renderReferenceDocumentation progname docs
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  RenderNixosOptions -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    putStrLn $ T.unpack $ renderParserNixOptionsWithGeneratedComment progname p'
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  BashCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateBashCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ZshCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateZshCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  FishCompletionScript progPath -> do
[opt-env-conf-test] +                    progname <- getProgName
[opt-env-conf-test] +                    generateFishCompletionScript progPath progname
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  CompletionQuery enriched index ws -> do
[opt-env-conf-test] +                    runCompletionQuery p' enriched index ws
[opt-env-conf-test] +                    exitSuccess
[opt-env-conf-test] +                  ParsedNormally a -> pure a
[opt-env-conf-test]  
[opt-env-conf-test]  -- We use [String] instead of [Args] because we want to remove these args, and act on them, before any real arg parsing happens.
[opt-env-conf-test]  consumeExactArg :: String -> [String] -> (Bool, [String])
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:100:48-78
[opt-env-conf-test] @@ -97,9 +97,9 @@
[opt-env-conf-test]                exitFailure
[opt-env-conf-test]              Right mCommandDoc -> do
[opt-env-conf-test]                tc <- getTerminalCapabilitiesFromHandle stdout
[opt-env-conf-test] -              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] -                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] -                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test] +              hPutChunksLocaleWith tc stdout $ case mCommandDoc of
[opt-env-conf-test] +                Nothing -> renderHelpPage progname version progDesc docs
[opt-env-conf-test] +                Just (path, cDoc) -> renderCommandHelpPage progname path cDoc
[opt-env-conf-test]                exitSuccess
[opt-env-conf-test]          else do
[opt-env-conf-test]            let (capabilities, args'') = consumeCapabilities args'
[opt-env-conf-test] 
[opt-env-conf-test] CondFlip at src/OptEnvConf/Main.hs:83:9-28
[opt-env-conf-test] @@ -80,9 +80,9 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] -          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test] -          else pure Nothing
[opt-env-conf-test] +        if debugMode
[opt-env-conf-test] +          then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test] +          else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test]        let (helpMode, args') = consumeHelpMode args
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if not (debugMode)
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:83:12-21
[opt-env-conf-test] @@ -80,7 +80,7 @@
[opt-env-conf-test]        let (debugMode, args) = consumeDebugMode allArgs
[opt-env-conf-test]  
[opt-env-conf-test]        mDebugMode <-
[opt-env-conf-test] -        if debugMode
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then Just <$> getTerminalCapabilitiesFromHandle stderr
[opt-env-conf-test]            else pure Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test] -             in (found, x : rest)
[opt-env-conf-test] +             in (not (found), x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Main.hs:175:18-23
[opt-env-conf-test] @@ -172,7 +172,7 @@
[opt-env-conf-test]          | x == arg -> (True, xs)
[opt-env-conf-test]          | otherwise ->
[opt-env-conf-test]              let (found, rest) = go xs
[opt-env-conf-test] -             in (found, x : rest)
[opt-env-conf-test] +             in (False, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  consumeDebugMode :: [String] -> (Bool, [String])
[opt-env-conf-test]  consumeDebugMode = consumeExactArg "--debug-optparse"
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:199:13-44
[opt-env-conf-test] @@ -196,13 +196,13 @@
[opt-env-conf-test]        [] -> (caps, [])
[opt-env-conf-test]        (x : xs) ->
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test] -         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] -              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +         in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test] +              Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Main.hs:201:26-44
[opt-env-conf-test] @@ -198,11 +198,11 @@
[opt-env-conf-test]          let t = T.pack x
[opt-env-conf-test]           in case T.stripPrefix "--settings-capabilities-disable-" t of
[opt-env-conf-test]                Just capName -> go (disableCapability (Capability capName) caps) xs
[opt-env-conf-test] -              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] -                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] -                Nothing ->
[opt-env-conf-test] -                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] -                   in (finalCaps, x : rest)
[opt-env-conf-test] +              Nothing -> case T.stripPrefix "--settings-capabilities-enable-" t of
[opt-env-conf-test] +                Just capName -> go (enableCapability (Capability capName) caps) xs
[opt-env-conf-test] +                Nothing ->
[opt-env-conf-test] +                  let (finalCaps, rest) = go caps xs
[opt-env-conf-test] +                   in (finalCaps, x : rest)
[opt-env-conf-test]  
[opt-env-conf-test]  -- Internal structure to help us do what the framework
[opt-env-conf-test]  -- is supposed to.
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf-test] @@ -337,7 +337,6 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +              null settingEnvVars
[opt-env-conf-test] +]
[opt-env-conf-test] 
[opt-env-conf-test] ListLit at src/OptEnvConf/Lint.hs:340:13-14
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] -            ]
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +              null settingEnvVars,
[opt-env-conf-test] +              null settingConfigVals
[opt-env-conf-test] +            ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:342:15-37
[opt-env-conf-test] @@ -339,5 +339,5 @@
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test] -              null settingConfigVals
[opt-env-conf-test] +              True
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:341:15-34
[opt-env-conf-test] @@ -338,6 +338,6 @@
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test]              [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] -              null settingEnvVars,
[opt-env-conf-test] +              True,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:57-82
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || settingTryOption || True,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || not (settingTryOption) || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || False || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:37-53
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ settingTryArgument || True || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:340:15-33
[opt-env-conf-test] @@ -337,7 +337,7 @@
[opt-env-conf-test]            -- 'many' is only allowed if something is being consumed and it's
[opt-env-conf-test]            -- impossible for nothing to be consumed.
[opt-env-conf-test]            and
[opt-env-conf-test] -            [ settingTryArgument || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test] +            [ True || settingTryOption || isJust settingSwitchValue,
[opt-env-conf-test]                null settingEnvVars,
[opt-env-conf-test]                null settingConfigVals
[opt-env-conf-test]              ]
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ not (c1 || c2)
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ False
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ True
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || not (c2)
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || False
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:22-24
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ c1 || True
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ not (c1) || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ False || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:288:16-18
[opt-env-conf-test] @@ -285,7 +285,7 @@
[opt-env-conf-test]        ParserWithConfig _ p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- local (const True) (go p2)
[opt-env-conf-test] -        pure $ c1 || c2
[opt-env-conf-test] +        pure $ True || c2
[opt-env-conf-test]        ParserSetting mLoc Setting {..} -> mapValidationTFailure (LintError mLoc) $ do
[opt-env-conf-test]          case settingHelp of
[opt-env-conf-test]            Nothing ->
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure not ((c1 && c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure False -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:14-24
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure True -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1 && c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && not (c2)) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && False) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:21-23
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (c1 && True) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (not (c1) && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (False && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:259:15-17
[opt-env-conf-test] @@ -256,7 +256,7 @@
[opt-env-conf-test]        ParserAlt p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 && c2) -- TODO: is this right?
[opt-env-conf-test] +        pure (True && c2) -- TODO: is this right?
[opt-env-conf-test]          -- TODO lint if we don't try to parse anything consuming under many.
[opt-env-conf-test]        ParserMany mLoc p -> do
[opt-env-conf-test]          c <- go p
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure not ((c1 || c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure False
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:14-24
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure True
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (not (c1 || c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (False)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (True)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || not (c2))
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || False)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:21-23
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (c1 || True)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (not (c1) || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (False || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Lint.hs:250:15-17
[opt-env-conf-test] @@ -247,7 +247,7 @@
[opt-env-conf-test]        ParserAp p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] -        pure (c1 || c2)
[opt-env-conf-test] +        pure (True || c2)
[opt-env-conf-test]        ParserSelect p1 p2 -> do
[opt-env-conf-test]          c1 <- go p1
[opt-env-conf-test]          c2 <- go p2
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` not (envVarSettingAllowPrefix)
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` False
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:144:22-46
[opt-env-conf-test] @@ -141,7 +141,7 @@
[opt-env-conf-test]    hashWithSalt salt EnvVarSetting {..} =
[opt-env-conf-test]      salt
[opt-env-conf-test]        `hashWithSalt` envVarSettingVar
[opt-env-conf-test] -      `hashWithSalt` envVarSettingAllowPrefix
[opt-env-conf-test] +      `hashWithSalt` True
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:136:5-29
[opt-env-conf-test] @@ -133,7 +133,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  data EnvVarSetting = EnvVarSetting
[opt-env-conf-test]    { envVarSettingVar :: !String,
[opt-env-conf-test] -    envVarSettingAllowPrefix :: !Bool
[opt-env-conf-test] +    True :: !Bool
[opt-env-conf-test]    }
[opt-env-conf-test]    deriving (Show, Eq)
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:159:5-32
[opt-env-conf-test] @@ -156,7 +156,7 @@
[opt-env-conf-test]    = forall void.
[opt-env-conf-test]    ConfigValSetting
[opt-env-conf-test]    { configValSettingPath :: !(NonEmpty String),
[opt-env-conf-test] -    configValSettingAllowPrefix :: !Bool,
[opt-env-conf-test] +    True :: !Bool,
[opt-env-conf-test]      configValSettingCodec :: !(ValueCodec void (Maybe a))
[opt-env-conf-test]    }
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` not (settingTryOption)
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:128:24-40
[opt-env-conf-test] @@ -125,7 +125,7 @@
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] -        `hashWithSalt` settingTryOption
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test]          `hashWithSalt` (snd <$> settingDefaultValue)
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` not (isJust settingSwitchValue)
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:127:24-49
[opt-env-conf-test] @@ -124,7 +124,7 @@
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test]          `hashWithSalt` settingTryArgument
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test] -        `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test]          `hashWithSalt` settingEnvVars
[opt-env-conf-test]          `hashWithSalt` (NE.map configValSettingPath <$> settingConfigVals)
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` not (settingTryArgument)
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` False
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:125:24-42
[opt-env-conf-test] @@ -122,7 +122,7 @@
[opt-env-conf-test]    SettingHash
[opt-env-conf-test]      ( 42
[opt-env-conf-test]          `hashWithSalt` map renderDashed settingDasheds
[opt-env-conf-test] -        `hashWithSalt` settingTryArgument
[opt-env-conf-test] +        `hashWithSalt` True
[opt-env-conf-test]          `hashWithSalt` length settingReaders
[opt-env-conf-test]          `hashWithSalt` isJust settingSwitchValue
[opt-env-conf-test]          `hashWithSalt` settingTryOption
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:148:6-32
[opt-env-conf-test] @@ -145,7 +145,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixEnvVarSetting :: String -> EnvVarSetting -> EnvVarSetting
[opt-env-conf-test]  prefixEnvVarSetting prefix e =
[opt-env-conf-test] -  if envVarSettingAllowPrefix e
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then e {envVarSettingVar = prefix <> envVarSettingVar e}
[opt-env-conf-test]      else e
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Setting.hs:165:6-35
[opt-env-conf-test] @@ -162,7 +162,7 @@
[opt-env-conf-test]  
[opt-env-conf-test]  prefixConfigValSetting :: String -> ConfigValSetting a -> ConfigValSetting a
[opt-env-conf-test]  prefixConfigValSetting prefix c =
[opt-env-conf-test] -  if configValSettingAllowPrefix c
[opt-env-conf-test] +  if True
[opt-env-conf-test]      then c {configValSettingPath = prefix NE.<| configValSettingPath c}
[opt-env-conf-test]      else c
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Setting.hs:173:30-39
[opt-env-conf-test] @@ -170,9 +170,9 @@
[opt-env-conf-test]  suffixConfigValSettingKey suffix c = c {configValSettingPath = suffixPath $ configValSettingPath c}
[opt-env-conf-test]    where
[opt-env-conf-test]      suffixPath :: NonEmpty String -> NonEmpty String
[opt-env-conf-test] -    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] -      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] -      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test] +    suffixPath (f :| rest) = case NE.nonEmpty rest of
[opt-env-conf-test] +      Nothing -> (f <> suffix) :| []
[opt-env-conf-test] +      Just ne -> f NE.<| suffixPath ne
[opt-env-conf-test]  
[opt-env-conf-test]  -- | A 'mempty' 'Setting' to build up a setting from.
[opt-env-conf-test]  emptySetting :: Setting a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf-test] @@ -66,10 +66,10 @@
[opt-env-conf-test]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test] -exampleValuesChunks vals = case vals of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +exampleValuesChunks vals = case vals of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:69:28-91
[opt-env-conf-test] @@ -66,10 +66,10 @@
[opt-env-conf-test]  defaultValueChunks val = ["default: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test]  
[opt-env-conf-test]  exampleValuesChunks :: [String] -> [Chunk]
[opt-env-conf-test] -exampleValuesChunks vals = case vals of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] -  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test] +exampleValuesChunks vals = case vals of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  [val] -> ["example: ", fore yellow $ chunk $ T.pack val]
[opt-env-conf-test] +  _ -> ["examples: ", fore yellow $ chunk $ T.intercalate ", " $ map (T.pack . show) vals]
[opt-env-conf-test]  
[opt-env-conf-test]  mHelpChunk :: Maybe Help -> Chunk
[opt-env-conf-test]  mHelpChunk = maybe (fore red "undocumented") helpChunk
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Output.hs:87:27-50
[opt-env-conf-test] @@ -84,9 +84,9 @@
[opt-env-conf-test]  syntaxChunk = fore blue . chunk . T.pack
[opt-env-conf-test]  
[opt-env-conf-test]  capabilitiesChunks :: Set Capability -> [Chunk]
[opt-env-conf-test] -capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] -  [] -> []
[opt-env-conf-test] -  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test] +capabilitiesChunks caps = case Set.toList caps of
[opt-env-conf-test] +  [] -> []
[opt-env-conf-test] +  cs -> intersperse ", " (map capabilityChunk cs)
[opt-env-conf-test]  
[opt-env-conf-test]  capabilityChunk :: Capability -> Chunk
[opt-env-conf-test]  capabilityChunk = fore green . chunk . unCapability
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:242:17-24
[opt-env-conf-test] @@ -239,10 +239,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  instance Applicative Parser where
[opt-env-conf-test]    pure = ParserPure
[opt-env-conf-test] -  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] -    -- Homomorphism law for applicative
[opt-env-conf-test] -    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] -    _ -> ParserAp p1 p2
[opt-env-conf-test] +  (<*>) p1 p2 = case (p1, p2) of
[opt-env-conf-test] +    -- Homomorphism law for applicative
[opt-env-conf-test] +    (ParserPure f, ParserPure a) -> ParserPure (f a)
[opt-env-conf-test] +    _ -> ParserAp p1 p2
[opt-env-conf-test]  
[opt-env-conf-test]  instance Selective Parser where
[opt-env-conf-test]    select = ParserSelect
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:267:9-25
[opt-env-conf-test] @@ -264,32 +264,32 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] -          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] -          (True, False) -> p2
[opt-env-conf-test] -          (False, True) -> p1
[opt-env-conf-test] -          (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] -             in go p1 p2
[opt-env-conf-test] +     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +          (True, True) -> ParserEmpty Nothing
[opt-env-conf-test] +          (True, False) -> p2
[opt-env-conf-test] +          (False, True) -> p1
[opt-env-conf-test] +          (False, False) ->
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +             in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf-test] @@ -269,26 +269,26 @@
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test]            (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test]               in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:272:30-41
[opt-env-conf-test] @@ -269,26 +269,26 @@
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test]            (False, False) ->
[opt-env-conf-test] -            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] -                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] -                  -- alts to always be right-leaning
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] -                  --    p
[opt-env-conf-test] -                  --   / \
[opt-env-conf-test] -                  -- p1   p2
[opt-env-conf-test] -                  --     /  \
[opt-env-conf-test] -                  --    p3   p4
[opt-env-conf-test] -                  --
[opt-env-conf-test] -                  -- We need to rearrange it to
[opt-env-conf-test] -                  --          p
[opt-env-conf-test] -                  --         / \
[opt-env-conf-test] -                  -- p1 ++ p3   p4
[opt-env-conf-test] -                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] -                    go (go p1' p3') p4'
[opt-env-conf-test] -                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] -                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] -                  _ -> ParserAlt p1' p2'
[opt-env-conf-test] +            let go p1' p2' = case (p1', p2') of
[opt-env-conf-test] +                  -- <|> needs to be associative, so we need to reorder the
[opt-env-conf-test] +                  -- alts to always be right-leaning
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- That means if we want to construct this parser, where p1 and p3 are commands parsers:
[opt-env-conf-test] +                  --    p
[opt-env-conf-test] +                  --   / \
[opt-env-conf-test] +                  -- p1   p2
[opt-env-conf-test] +                  --     /  \
[opt-env-conf-test] +                  --    p3   p4
[opt-env-conf-test] +                  --
[opt-env-conf-test] +                  -- We need to rearrange it to
[opt-env-conf-test] +                  --          p
[opt-env-conf-test] +                  --         / \
[opt-env-conf-test] +                  -- p1 ++ p3   p4
[opt-env-conf-test] +                  (ParserCommands _ _ _, ParserAlt p3' p4') ->
[opt-env-conf-test] +                    go (go p1' p3') p4'
[opt-env-conf-test] +                  (ParserCommands mLoc1 mDefault1 cs1, ParserCommands mLoc2 mDefault2 cs2) ->
[opt-env-conf-test] +                    ParserCommands (mLoc1 <|> mLoc2) (mDefault1 <|> mDefault2) (cs1 ++ cs2)
[opt-env-conf-test] +                  _ -> ParserAlt p1' p2'
[opt-env-conf-test]               in go p1 p2
[opt-env-conf-test]    many = ParserMany Nothing
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:27-37
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (isEmpty p1, False) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:267:15-25
[opt-env-conf-test] @@ -264,7 +264,7 @@
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] -     in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] +     in case (False, isEmpty p2) of
[opt-env-conf-test]            (True, True) -> ParserEmpty Nothing
[opt-env-conf-test]            (True, False) -> p2
[opt-env-conf-test]            (False, True) -> p1
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:264:36-43
[opt-env-conf-test] @@ -261,7 +261,7 @@
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] -          ParserCommands _ _ cs -> null cs
[opt-env-conf-test] +          ParserCommands _ _ cs -> False
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test]       in case (isEmpty p1, isEmpty p2) of
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:263:36-45
[opt-env-conf-test] @@ -260,7 +260,7 @@
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] -          ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] +          ParserCheck _ _ _ _ p -> False
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test]            ParserSetting _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:262:37-46
[opt-env-conf-test] @@ -259,7 +259,7 @@
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] -          ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test] +          ParserAllOrNothing _ p -> False
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test]            ParserCommands _ _ cs -> null cs
[opt-env-conf-test]            ParserWithConfig _ pc ps -> isEmpty pc && isEmpty ps
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:260:29-38
[opt-env-conf-test] @@ -257,7 +257,7 @@
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] -          ParserMany _ p -> isEmpty p
[opt-env-conf-test] +          ParserMany _ p -> False
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test]            ParserAllOrNothing _ p -> isEmpty p
[opt-env-conf-test]            ParserCheck _ _ _ _ p -> isEmpty p
[opt-env-conf-test] 
[opt-env-conf-test] BoolLit at src/OptEnvConf/Parser.hs:258:28-32
[opt-env-conf-test] @@ -255,7 +255,7 @@
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test]            ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test] -          ParserEmpty _ -> True
[opt-env-conf-test] +          ParserEmpty _ -> False
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test]            ParserMany _ p -> isEmpty p
[opt-env-conf-test]            ParserSome _ p -> isEmpty p
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> False
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && not (isEmpty pa)
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && False
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:43-53
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> isEmpty pf && True
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> not (isEmpty pf) && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> False && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:256:29-39
[opt-env-conf-test] @@ -253,7 +253,7 @@
[opt-env-conf-test]      let isEmpty :: Parser a -> Bool
[opt-env-conf-test]          isEmpty = \case
[opt-env-conf-test]            ParserPure _ -> False
[opt-env-conf-test] -          ParserAp pf pa -> isEmpty pf && isEmpty pa
[opt-env-conf-test] +          ParserAp pf pa -> True && isEmpty pa
[opt-env-conf-test]            ParserSelect pe pf -> isEmpty pe && isEmpty pf
[opt-env-conf-test]            ParserEmpty _ -> True
[opt-env-conf-test]            ParserAlt _ _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:297:39-40
[opt-env-conf-test] @@ -294,7 +294,7 @@
[opt-env-conf-test]    some = fmap NE.toList . ParserSome Nothing
[opt-env-conf-test]  
[opt-env-conf-test]  showParserABit :: Parser a -> String
[opt-env-conf-test] -showParserABit = flip (showParserPrec 0) ""
[opt-env-conf-test] +showParserABit = flip (showParserPrec 1) ""
[opt-env-conf-test]  
[opt-env-conf-test]  showParserPrec :: Int -> Parser a -> ShowS
[opt-env-conf-test]  showParserPrec = go
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:19-27
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:373:20-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:373:24-26
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserSetting mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Setting "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen not ((d > 10)) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen False $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:19-27
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (not (d > 10)) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (False) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:365:20-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:365:24-26
[opt-env-conf-test] @@ -362,7 +362,7 @@
[opt-env-conf-test]                showCommandABit
[opt-env-conf-test]                cs
[opt-env-conf-test]        ParserWithConfig mLoc p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "WithConfig _ "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:19-27
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:355:20-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:355:24-26
[opt-env-conf-test] @@ -352,7 +352,7 @@
[opt-env-conf-test]              . showString " _ "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCommands mLoc mDefault cs ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Commands "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:19-27
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:345:20-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:345:24-26
[opt-env-conf-test] @@ -342,7 +342,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserCheck mLoc forgivable caps _ p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Check "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:19-27
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:333:20-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:333:24-26
[opt-env-conf-test] @@ -330,7 +330,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p
[opt-env-conf-test]        ParserSome mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Some "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:19-27
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:327:20-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:327:24-26
[opt-env-conf-test] @@ -324,7 +324,7 @@
[opt-env-conf-test]              . showString " "
[opt-env-conf-test]              . go 11 p2
[opt-env-conf-test]        ParserMany mLoc p ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Many "
[opt-env-conf-test]              . showsPrec 11 mLoc
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:19-27
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:321:20-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:321:24-26
[opt-env-conf-test] @@ -318,7 +318,7 @@
[opt-env-conf-test]          showString "Empty "
[opt-env-conf-test]            . showsPrec 11 mLoc
[opt-env-conf-test]        ParserAlt p1 p2 ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Alt "
[opt-env-conf-test]              . go 11 p1
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:19-27
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen True $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:306:20-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (True) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > -10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 1) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:306:24-26
[opt-env-conf-test] @@ -303,7 +303,7 @@
[opt-env-conf-test]      go d = \case
[opt-env-conf-test]        ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test] -        showParen (d > 10) $
[opt-env-conf-test] +        showParen (d > 0) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test]              . go 11 pf
[opt-env-conf-test]              . showString " "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:33-41
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen True $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Parser.hs:304:34-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (True) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > -10) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > 1) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] 
[opt-env-conf-test] IntLit at src/OptEnvConf/Parser.hs:304:38-40
[opt-env-conf-test] @@ -301,7 +301,7 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go :: Int -> Parser a -> ShowS
[opt-env-conf-test]      go d = \case
[opt-env-conf-test] -      ParserPure _ -> showParen (d > 10) $ showString "Pure _"
[opt-env-conf-test] +      ParserPure _ -> showParen (d > 0) $ showString "Pure _"
[opt-env-conf-test]        ParserAp pf pa ->
[opt-env-conf-test]          showParen (d > 10) $
[opt-env-conf-test]            showString "Ap "
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:550:11-26
[opt-env-conf-test] @@ -547,21 +547,21 @@
[opt-env-conf-test]    where
[opt-env-conf-test]      go p =
[opt-env-conf-test]        let p' = p <|> pure defaultValue
[opt-env-conf-test] -       in case p of
[opt-env-conf-test] -            ParserPure a -> ParserPure a
[opt-env-conf-test] -            ParserAp {} -> p'
[opt-env-conf-test] -            ParserSelect {} -> p'
[opt-env-conf-test] -            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] -            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] -            ParserMany {} -> p'
[opt-env-conf-test] -            ParserSome {} -> p'
[opt-env-conf-test] -            ParserAllOrNothing {} -> p'
[opt-env-conf-test] -            ParserCheck {} -> p'
[opt-env-conf-test] -            ParserCommands {} -> p'
[opt-env-conf-test] -            ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +       in case p of
[opt-env-conf-test] +            ParserPure a -> ParserPure a
[opt-env-conf-test] +            ParserAp {} -> p'
[opt-env-conf-test] +            ParserSelect {} -> p'
[opt-env-conf-test] +            ParserEmpty _ -> ParserPure defaultValue
[opt-env-conf-test] +            ParserAlt p1 p2 -> ParserAlt p1 (go p2)
[opt-env-conf-test] +            ParserMany {} -> p'
[opt-env-conf-test] +            ParserSome {} -> p'
[opt-env-conf-test] +            ParserAllOrNothing {} -> p'
[opt-env-conf-test] +            ParserCheck {} -> p'
[opt-env-conf-test] +            ParserCommands {} -> p'
[opt-env-conf-test] +            ParserWithConfig {} -> p'
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:562:37-26
[opt-env-conf-test] @@ -559,9 +559,9 @@
[opt-env-conf-test]              ParserCheck {} -> p'
[opt-env-conf-test]              ParserCommands {} -> p'
[opt-env-conf-test]              ParserWithConfig {} -> p'
[opt-env-conf-test] -            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] -              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] -              Just _ -> p
[opt-env-conf-test] +            ParserSetting mLoc s -> case settingDefaultValue s of
[opt-env-conf-test] +              Nothing -> ParserSetting mLoc $ s {settingDefaultValue = Just (defaultValue, showDefault defaultValue)}
[opt-env-conf-test] +              Just _ -> p
[opt-env-conf-test]  
[opt-env-conf-test]  -- | Try a list of parsers in order
[opt-env-conf-test]  choice :: (HasCallStack) => [Parser a] -> Parser a
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Parser.hs:602:15-28
[opt-env-conf-test] @@ -599,9 +599,9 @@
[opt-env-conf-test]  checkMapMaybe func p =
[opt-env-conf-test]    withFrozenCallStack $
[opt-env-conf-test]      checkMapEither
[opt-env-conf-test] -      ( \a -> case func a of
[opt-env-conf-test] -          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] -          Just b -> Right b
[opt-env-conf-test] +      ( \a -> case func a of
[opt-env-conf-test] +          Nothing -> Left "checkMapMaybe failed without a helpful error message"
[opt-env-conf-test] +          Just b -> Right b
[opt-env-conf-test]        )
[opt-env-conf-test]        p
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:117:28-81
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:117:31-43
[opt-env-conf-test] @@ -114,7 +114,7 @@
[opt-env-conf-test]        Just (Rel rf) -> do
[opt-env-conf-test]          let dir = parent rf
[opt-env-conf-test]          let ad = baseDir </> dir
[opt-env-conf-test] -        let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +        let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]          (ds, fs) <- listDirForgiving ad
[opt-env-conf-test]          pure
[opt-env-conf-test]            ( map (fromRelDir . (dir </>)) $ filterHidden ds,
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:171:31-66
[opt-env-conf-test] @@ -168,24 +168,24 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test] -    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> pure []
[opt-env-conf-test] -      Just (Abs af) -> do
[opt-env-conf-test] -        let dir = parent af
[opt-env-conf-test] -        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] -        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] -        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] -      Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] -          then do
[opt-env-conf-test] -            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -            pure (map fromRelDir ds)
[opt-env-conf-test] -          else do
[opt-env-conf-test] -            let dir = parent rf
[opt-env-conf-test] -            let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] -            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +    dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> pure []
[opt-env-conf-test] +      Just (Abs af) -> do
[opt-env-conf-test] +        let dir = parent af
[opt-env-conf-test] +        let filterHidden = if hiddenRel (dirname af) then id else filter (not . hiddenRel)
[opt-env-conf-test] +        (ds, _) <- listDirForgiving dir
[opt-env-conf-test] +        pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test] +      Just (Rel rf) ->
[opt-env-conf-test] +        if fp == "."
[opt-env-conf-test] +          then do
[opt-env-conf-test] +            (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +            pure (map fromRelDir ds)
[opt-env-conf-test] +          else do
[opt-env-conf-test] +            let dir = parent rf
[opt-env-conf-test] +            let ad = baseDir </> dir
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +            pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test]      pure $
[opt-env-conf-test]        concat
[opt-env-conf-test] 
[opt-env-conf-test] CondFlip at src/OptEnvConf/Completer.hs:186:32-85
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if not (hiddenRel rf) then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if False then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:186:35-47
[opt-env-conf-test] @@ -183,7 +183,7 @@
[opt-env-conf-test]            else do
[opt-env-conf-test]              let dir = parent rf
[opt-env-conf-test]              let ad = baseDir </> dir
[opt-env-conf-test] -            let filterHidden = if hiddenRel rf then id else filter (not . hiddenRel)
[opt-env-conf-test] +            let filterHidden = if True then id else filter (not . hiddenRel)
[opt-env-conf-test]              (ds, _) <- listDirForgiving ad
[opt-env-conf-test]              pure (map (fromRelDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completer.hs:179:12-21
[opt-env-conf-test] @@ -176,7 +176,7 @@
[opt-env-conf-test]          (ds, _) <- listDirForgiving dir
[opt-env-conf-test]          pure (map (fromAbsDir . (dir </>)) $ filterHidden ds)
[opt-env-conf-test]        Just (Rel rf) ->
[opt-env-conf-test] -        if fp == "."
[opt-env-conf-test] +        if False
[opt-env-conf-test]            then do
[opt-env-conf-test]              (ds, _) <- listDirRel baseDir
[opt-env-conf-test]              pure (map fromRelDir ds)
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:157:30-73
[opt-env-conf-test] @@ -154,19 +154,19 @@
[opt-env-conf-test]  directoryPathFromDir baseDir prefix fp fp' = do
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test] -    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] -      Just (Abs ad) -> do
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -      Just (Rel rd) -> do
[opt-env-conf-test] -        let ad = baseDir </> rd
[opt-env-conf-test] -        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] -        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +    dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test] +      Just (Abs ad) -> do
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +      Just (Rel rd) -> do
[opt-env-conf-test] +        let ad = baseDir </> rd
[opt-env-conf-test] +        (ds, _) <- listDirForgiving ad
[opt-env-conf-test] +        pure (map (fromRelDir . (rd </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test]  
[opt-env-conf-test]      dirsFromPartialListing <- case parseSomeDir fp of
[opt-env-conf-test]        Nothing -> pure []
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completer.hs:158:18-21
[opt-env-conf-test] @@ -155,11 +155,11 @@
[opt-env-conf-test]    fmap (filterPrefix fp' . map (addPrefix prefix . dirResult)) $ do
[opt-env-conf-test]      let listDirForgiving d = fromMaybe ([], []) <$> forgivingAbsence (listDirRel d)
[opt-env-conf-test]      dirsFromParentListing <- case parseSomeDir fp of
[opt-env-conf-test] -      Nothing -> case fp of
[opt-env-conf-test] -        [] -> do
[opt-env-conf-test] -          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] -          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] -        _ -> pure []
[opt-env-conf-test] +      Nothing -> case fp of
[opt-env-conf-test] +        [] -> do
[opt-env-conf-test] +          (ds, _) <- listDirRel baseDir
[opt-env-conf-test] +          pure (map fromRelDir $ filter (not . hiddenRel) ds)
[opt-env-conf-test] +        _ -> pure []
[opt-env-conf-test]        Just (Abs ad) -> do
[opt-env-conf-test]          (ds, _) <- listDirForgiving ad
[opt-env-conf-test]          pure (map (fromAbsDir . (ad </>)) $ filter (not . hiddenRel) ds)
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Completion.hs:453:24-40
[opt-env-conf-test] @@ -450,7 +450,7 @@
[opt-env-conf-test]                          put as'
[opt-env-conf-test]                          pure $ Just []
[opt-env-conf-test]                    else do
[opt-env-conf-test] -                    if settingTryOption
[opt-env-conf-test] +                    if True
[opt-env-conf-test]                        then do
[opt-env-conf-test]                          -- First we try to consume the option so we don't suggest it if it's already been parsed
[opt-env-conf-test]                          case Args.consumeOption settingDasheds as of
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Completion.hs:435:21-51
[opt-env-conf-test] @@ -432,11 +432,11 @@
[opt-env-conf-test]                      -- consumeArgument) or because only the consume-nothing
[opt-env-conf-test]                      -- fallback matched.  In both cases, offer the
[opt-env-conf-test]                      -- completer if we are at the end.
[opt-env-conf-test] -                    case possibilities of
[opt-env-conf-test] -                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] -                      (_, as') : _ -> do
[opt-env-conf-test] -                        put as'
[opt-env-conf-test] -                        completeWithCompleterAtEnd
[opt-env-conf-test] +                    case possibilities of
[opt-env-conf-test] +                      [] -> completeWithCompleterAtEnd
[opt-env-conf-test] +                      (_, as') : _ -> do
[opt-env-conf-test] +                        put as'
[opt-env-conf-test] +                        completeWithCompleterAtEnd
[opt-env-conf-test]                else
[opt-env-conf-test]                  if isJust settingSwitchValue
[opt-env-conf-test]                    then do
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:370:15-16
[opt-env-conf-test] @@ -367,11 +367,11 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ headerChunks "Options",
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ headerChunks "Options",
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:373:17-39
[opt-env-conf-test] @@ -370,7 +370,7 @@
[opt-env-conf-test]                [ [ headerChunks "Options",
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ headerChunks "Environment Variables",
[opt-env-conf-test] 
[opt-env-conf-test] RemoveAction at src/OptEnvConf/Doc.hs:329:15-16
[opt-env-conf-test] @@ -326,11 +326,11 @@
[opt-env-conf-test]                | not (null commandDocs)
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test] -              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] -                  renderLongOptDocs optDocs
[opt-env-conf-test] -                ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] -              ],
[opt-env-conf-test] +              [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test] +                  renderLongOptDocs optDocs
[opt-env-conf-test] +                ]
[opt-env-conf-test] +              | not (nullDocs optDocs)
[opt-env-conf-test] +              ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test]                    renderEnvDocs envDocs
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:332:17-39
[opt-env-conf-test] @@ -329,7 +329,7 @@
[opt-env-conf-test]                [ [ [".Sh ", "OPTIONS"],
[opt-env-conf-test]                    renderLongOptDocs optDocs
[opt-env-conf-test]                  ]
[opt-env-conf-test] -              | not (nullDocs optDocs)
[opt-env-conf-test] +              | True
[opt-env-conf-test]                ],
[opt-env-conf-test]              concat
[opt-env-conf-test]                [ [ [".Sh ", "ENVIRONMENT VARIABLES"],
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:568:9-20
[opt-env-conf-test] @@ -565,21 +565,21 @@
[opt-env-conf-test]        [] -> []
[opt-env-conf-test]        [d] -> go isTopLevel d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        case setDocHelp d of
[opt-env-conf-test] -          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] -          Just h ->
[opt-env-conf-test] -            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -             in concat
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat
[opt-env-conf-test] -                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] -                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] -                            [[]]
[opt-env-conf-test] -                          ]
[opt-env-conf-test] -                      | not isTopLevel
[opt-env-conf-test] -                      ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] -                  ]
[opt-env-conf-test] +        case setDocHelp d of
[opt-env-conf-test] +          Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] +          Just h ->
[opt-env-conf-test] +            let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +             in concat
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat
[opt-env-conf-test] +                          [ indent $ renderSetDocHeader (Just h),
[opt-env-conf-test] +                            indent $ concatMap renderSetDocWithoutHeader $ d : sds,
[opt-env-conf-test] +                            [[]]
[opt-env-conf-test] +                          ]
[opt-env-conf-test] +                      | not isTopLevel
[opt-env-conf-test] +                      ],
[opt-env-conf-test] +                    goOr isTopLevel rest
[opt-env-conf-test] +                  ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:581:26-36
[opt-env-conf-test] @@ -578,7 +578,7 @@
[opt-env-conf-test]                            ]
[opt-env-conf-test]                        | not isTopLevel
[opt-env-conf-test]                        ],
[opt-env-conf-test] -                    goOr isTopLevel rest
[opt-env-conf-test] +                    goOr True rest
[opt-env-conf-test]                    ]
[opt-env-conf-test]        (d : ds) -> go isTopLevel d ++ goOr isTopLevel ds
[opt-env-conf-test]      goSameHelp :: Help -> [AnyDocs SetDoc] -> ([SetDoc], [AnyDocs SetDoc])
[opt-env-conf-test] 
[opt-env-conf-test] Negate at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf-test]      goOr isTopLevel = \case
[opt-env-conf-test]        [] -> []
[opt-env-conf-test] -      [d] -> go isTopLevel d
[opt-env-conf-test] +      [d] -> go not (isTopLevel) d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:566:17-27
[opt-env-conf-test] @@ -563,7 +563,7 @@
[opt-env-conf-test]      goOr :: Bool -> [AnyDocs SetDoc] -> [[Chunk]]
[opt-env-conf-test]      goOr isTopLevel = \case
[opt-env-conf-test]        [] -> []
[opt-env-conf-test] -      [d] -> go isTopLevel d
[opt-env-conf-test] +      [d] -> go True d
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test]          case setDocHelp d of
[opt-env-conf-test]            Nothing -> go isTopLevel (AnyDocsSingle d) ++ goOr isTopLevel ds
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:588:12-34
[opt-env-conf-test] @@ -585,7 +585,7 @@
[opt-env-conf-test]      goSameHelp h = \case
[opt-env-conf-test]        [] -> ([], [])
[opt-env-conf-test]        (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -        if setDocHelp d == Just h
[opt-env-conf-test] +        if True
[opt-env-conf-test]            then
[opt-env-conf-test]              let (sds, rest) = goSameHelp h ds
[opt-env-conf-test]               in (d : sds, rest)
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:532:13-50
[opt-env-conf-test] @@ -529,12 +529,12 @@
[opt-env-conf-test]            [] -> []
[opt-env-conf-test]            [d] -> [go' d]
[opt-env-conf-test]            (AnyDocsSingle d : ds) ->
[opt-env-conf-test] -            case setDocHelp d of
[opt-env-conf-test] -              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] -              Just h ->
[opt-env-conf-test] -                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] -                    ne = d :| sds
[opt-env-conf-test] -                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test] +            case setDocHelp d of
[opt-env-conf-test] +              Nothing -> go' (AnyDocsSingle d) : goOr' ds
[opt-env-conf-test] +              Just h ->
[opt-env-conf-test] +                let (sds, rest) = goSameHelp h ds
[opt-env-conf-test] +                    ne = d :| sds
[opt-env-conf-test] +                 in AnyDocsSingle ne : goOr' rest
[opt-env-conf-test]            (d : ds) -> go' d : goOr' ds
[opt-env-conf-test]  
[opt-env-conf-test]  renderCommandDocs :: AnyDocs (Maybe SetDoc) -> [Chunk]
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:259:17-26
[opt-env-conf-test] @@ -256,18 +256,18 @@
[opt-env-conf-test]        concat
[opt-env-conf-test]          [ concatMap
[opt-env-conf-test]              ( \(key, schema) ->
[opt-env-conf-test] -                case jsonSchemaChunkLines schema of
[opt-env-conf-test] -                  [line] ->
[opt-env-conf-test] -                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] -                  ls ->
[opt-env-conf-test] -                    ["config:"]
[opt-env-conf-test] -                      : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] -                        )
[opt-env-conf-test] +                case jsonSchemaChunkLines schema of
[opt-env-conf-test] +                  [line] ->
[opt-env-conf-test] +                    [["config: ", confValChunk key, ": "] ++ line]
[opt-env-conf-test] +                  ls ->
[opt-env-conf-test] +                    ["config:"]
[opt-env-conf-test] +                      : indent
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test] +                        )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test]          | confs <- maybeToList setDocConfKeys
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:265:27-44
[opt-env-conf-test] @@ -262,11 +262,11 @@
[opt-env-conf-test]                    ls ->
[opt-env-conf-test]                      ["config:"]
[opt-env-conf-test]                        : indent
[opt-env-conf-test] -                        ( case ls of
[opt-env-conf-test] -                            [] -> [["TODO"]]
[opt-env-conf-test] -                            (l : ll) ->
[opt-env-conf-test] -                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] -                                : indent ll
[opt-env-conf-test] +                        ( case ls of
[opt-env-conf-test] +                            [] -> [["TODO"]]
[opt-env-conf-test] +                            (l : ll) ->
[opt-env-conf-test] +                              ([confValChunk key, ": "] ++ l)
[opt-env-conf-test] +                                : indent ll
[opt-env-conf-test]                          )
[opt-env-conf-test]              )
[opt-env-conf-test]              (NE.toList confs)
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:661:30-18
[opt-env-conf-test] @@ -658,29 +658,29 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              cs -> Just $ bracketise $ unwordsChunks $ intersperse [orChunk] cs
[opt-env-conf-test] -        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] -          Nothing -> Nothing
[opt-env-conf-test] -          Just OptDoc {..} ->
[opt-env-conf-test] -            Just
[opt-env-conf-test] -              $ ( if isJust optDocDefault
[opt-env-conf-test] -                    then bracketise
[opt-env-conf-test] -                    else id
[opt-env-conf-test] -                )
[opt-env-conf-test] -              $ unwordsChunks
[opt-env-conf-test] -              $ concat
[opt-env-conf-test] -                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                  | optDocTryArgument
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] -                  | optDocTrySwitch
[opt-env-conf-test] -                  ],
[opt-env-conf-test] -                  [ concat
[opt-env-conf-test] -                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] -                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] -                      ]
[opt-env-conf-test] -                  | optDocTryOption
[opt-env-conf-test] -                  ]
[opt-env-conf-test] -                ]
[opt-env-conf-test] +        AnyDocsSingle mOd -> case mOd of
[opt-env-conf-test] +          Nothing -> Nothing
[opt-env-conf-test] +          Just OptDoc {..} ->
[opt-env-conf-test] +            Just
[opt-env-conf-test] +              $ ( if isJust optDocDefault
[opt-env-conf-test] +                    then bracketise
[opt-env-conf-test] +                    else id
[opt-env-conf-test] +                )
[opt-env-conf-test] +              $ unwordsChunks
[opt-env-conf-test] +              $ concat
[opt-env-conf-test] +                [ [ [mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                  | optDocTryArgument
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat $ maybeToList $ dashedChunks optDocDasheds
[opt-env-conf-test] +                  | optDocTrySwitch
[opt-env-conf-test] +                  ],
[opt-env-conf-test] +                  [ concat
[opt-env-conf-test] +                      [ concat $ maybeToList $ dashedChunks optDocDasheds,
[opt-env-conf-test] +                        [" ", mMetavarChunk optDocMetavar]
[opt-env-conf-test] +                      ]
[opt-env-conf-test] +                  | optDocTryOption
[opt-env-conf-test] +                  ]
[opt-env-conf-test] +                ]
[opt-env-conf-test]  
[opt-env-conf-test]  orChunk :: Chunk
[opt-env-conf-test]  orChunk = fore cyan "|"
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf-test] @@ -650,10 +650,10 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            [c] -> Just c
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:653:11-77
[opt-env-conf-test] @@ -650,10 +650,10 @@
[opt-env-conf-test]            Nothing -> Just ["COMMAND"]
[opt-env-conf-test]            Just _ -> Just ["[COMMAND]"]
[opt-env-conf-test]          AnyDocsAnd ds ->
[opt-env-conf-test] -          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] -            [] -> Nothing
[opt-env-conf-test] -            [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +          case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test] +            [] -> Nothing
[opt-env-conf-test] +            [c] -> Just c
[opt-env-conf-test] +            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Doc.hs:656:30-31
[opt-env-conf-test] @@ -653,7 +653,7 @@
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test]              [c] -> Just c
[opt-env-conf-test] -            cs -> Just $ (if b then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test] +            cs -> Just $ (if False then parenthesise else id) $ unwordsChunks cs
[opt-env-conf-test]          AnyDocsOr ds ->
[opt-env-conf-test]            case mapMaybe (go False) (withoutNothings ds) of
[opt-env-conf-test]              [] -> Nothing
[opt-env-conf-test] 
[opt-env-conf-test] BoolLit at src/OptEnvConf/Doc.hs:637:38-43
[opt-env-conf-test] @@ -634,7 +634,7 @@
[opt-env-conf-test]      withoutNothings =
[opt-env-conf-test]        filter
[opt-env-conf-test]          ( \case
[opt-env-conf-test] -            AnyDocsSingle Nothing -> False
[opt-env-conf-test] +            AnyDocsSingle Nothing -> True
[opt-env-conf-test]              AnyDocsAnd [] -> False
[opt-env-conf-test]              AnyDocsOr [] -> False
[opt-env-conf-test]              _ -> True
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Doc.hs:822:13-52
[opt-env-conf-test] @@ -819,11 +819,11 @@
[opt-env-conf-test]        [exampleValuesChunks confDocExamples | not (null confDocExamples)],
[opt-env-conf-test]        concatMap
[opt-env-conf-test]          ( \(key, schema) ->
[opt-env-conf-test] -            case jsonSchemaChunkLines schema of
[opt-env-conf-test] -              [line] ->
[opt-env-conf-test] -                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] -              ls ->
[opt-env-conf-test] -                [confValChunk key, ":"] : indent ls
[opt-env-conf-test] +            case jsonSchemaChunkLines schema of
[opt-env-conf-test] +              [line] ->
[opt-env-conf-test] +                [[confValChunk key, ": "] ++ line]
[opt-env-conf-test] +              ls ->
[opt-env-conf-test] +                [confValChunk key, ":"] : indent ls
[opt-env-conf-test]          )
[opt-env-conf-test]          (NE.toList confDocKeys)
[opt-env-conf-test]      ]
[opt-env-conf-test] 
[opt-env-conf-test] BoolLit at src/OptEnvConf/Error.hs:66:40-45
[opt-env-conf-test] @@ -63,7 +63,7 @@
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] -  ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test] +  ParseErrorUnrecognisedCommand _ _ -> True
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test]    ParseErrorMissingCapability _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:34-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> True
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Error.hs:65:40-47
[opt-env-conf-test] @@ -62,7 +62,7 @@
[opt-env-conf-test]    ParseErrorEnvRead _ _ -> False
[opt-env-conf-test]    ParseErrorMissingConfVal _ -> True
[opt-env-conf-test]    ParseErrorConfigRead _ _ -> False
[opt-env-conf-test] -  ParseErrorMissingCommand cs -> not $ null cs
[opt-env-conf-test] +  ParseErrorMissingCommand cs -> not $ False
[opt-env-conf-test]    ParseErrorUnrecognisedCommand _ _ -> False
[opt-env-conf-test]    ParseErrorAllOrNothing _ -> False
[opt-env-conf-test]    ParseErrorUnrecognised _ -> False
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The foll     else consumeShortDashedShorthandOption (shortDasheds dasheds) cs
[opt-env-conf-test]  
[opt-env-conf-test] Testing mutation CondFlip at src/OptEnvConf/Args.hs:300:11-25
[opt-env-conf-test] @@ -297,9 +297,9 @@
[opt-env-conf-test]          else Nothing
[opt-env-conf-test]      else
[opt-env-conf-test]        let (mRest, c) = unsnocNE cs
[opt-env-conf-test] -       in if DashedShort c `elem` dasheds
[opt-env-conf-test] -            then Just mRest
[opt-env-conf-test] -            else Nothing
[opt-env-conf-test] +       in if DashedShort c `elem` dasheds
[opt-env-conf-test] +            then Just mRest
[opt-env-conf-test] +            else Nothing
[opt-env-conf-test]  
[opt-env-conf-test]  unsnocNE :: NonEmpty a -> (Maybe (NonEmpty a), a)
[opt-env-conf-test]  unsnocNE = go []
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf-test] @@ -201,7 +201,7 @@
[opt-env-conf-test]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test]                                       (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test] Testing mutation ListLit at src/OptEnvConf/Args.hs:204:65-82
[opt-env-conf-test] @@ -201,7 +201,7 @@
[opt-env-conf-test]                                  ++ [ (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test]                              _ ->
[opt-env-conf-test] -                              consumeArgument (Args (befores ++ [Live a, Live a']) rest)
[opt-env-conf-test] +                              consumeArgument (Args (befores ++ []) rest)
[opt-env-conf-test]                                  ++ [ (Just (renderArg a'), Args (befores ++ [Live a, Dead]) rest),
[opt-env-conf-test]                                       (Just (renderArg a), consumed)
[opt-env-conf-test]                                     ]
[opt-env-conf-test] owing settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Error.hs:83:7-65
[opt-env-conf-test] @@ -80,63 +80,63 @@
[opt-env-conf-test]  renderError :: ParseError -> [[Chunk]]
[opt-env-conf-test]  renderError ParseError {..} =
[opt-env-conf-test]    concat
[opt-env-conf-test] -    [ case parseErrorMessage of
[opt-env-conf-test] -        ParseErrorEmpty ->
[opt-env-conf-test] -          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] -        ParseErrorEmptySetting ->
[opt-env-conf-test] -          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] -        ParseErrorNoReaders ->
[opt-env-conf-test] -          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] -            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] -          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] -        ParseErrorMissingArgument o ->
[opt-env-conf-test] -          [ "Missing argument: "
[opt-env-conf-test] -              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] -          ]
[opt-env-conf-test] -        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] -          ["Failed to read argument: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingOption o ->
[opt-env-conf-test] -          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorMissingSwitch o ->
[opt-env-conf-test] -          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] -        ParseErrorOptionRead md errs ->
[opt-env-conf-test] -          ["Failed to read option: "]
[opt-env-conf-test] -            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] -            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] -          ["Missing env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -        ParseErrorEnvRead md errs ->
[opt-env-conf-test] -          ["Failed to read env var: "]
[opt-env-conf-test] -            : maybe [] renderEnvDoc md
[opt-env-conf-test] -            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] -        ParseErrorMissingConfVal md ->
[opt-env-conf-test] -          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] -        ParseErrorConfigRead md s ->
[opt-env-conf-test] -          ["Failed to parse configuration: "]
[opt-env-conf-test] -            : maybe [] renderConfDoc md
[opt-env-conf-test] -            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] -        ParseErrorMissingCommand cs ->
[opt-env-conf-test] -          ["Missing command, available commands:"]
[opt-env-conf-test] -            : availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] -          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] -            [fore blue "available commands:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ availableCommandsLines cs
[opt-env-conf-test] -        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] -          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] -            ["The following settings have been parsed:"]
[opt-env-conf-test] -          ]
[opt-env-conf-test] -            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] -        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] -          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] -        ParseErrorMissingCapability cap ->
[opt-env-conf-test] -          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test] +    [ case parseErrorMessage of
[opt-env-conf-test] +        ParseErrorEmpty ->
[opt-env-conf-test] +          [["Hit the 'empty' case of the Parser type, this should not happen."]]
[opt-env-conf-test] +        ParseErrorEmptySetting ->
[opt-env-conf-test] +          [["This setting has not been configured to be able to parse anything."]]
[opt-env-conf-test] +        ParseErrorNoReaders ->
[opt-env-conf-test] +          [ ["No readers were configured for an argument, option, or env."],
[opt-env-conf-test] +            ["You should not be seeing this error because the linting phase should have caught it."]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorCheckFailed _ err ->
[opt-env-conf-test] +          [["Check failed: "], [chunk $ T.pack err]]
[opt-env-conf-test] +        ParseErrorMissingArgument o ->
[opt-env-conf-test] +          [ "Missing argument: "
[opt-env-conf-test] +              : unwordsChunks (maybe [] renderOptDocLong o)
[opt-env-conf-test] +          ]
[opt-env-conf-test] +        ParseErrorArgumentRead md errs ->
[opt-env-conf-test] +          ["Failed to read argument: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingOption o ->
[opt-env-conf-test] +          ["Missing option: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorMissingSwitch o ->
[opt-env-conf-test] +          ["Missing switch: " : unwordsChunks (maybe [] renderOptDocLong o)]
[opt-env-conf-test] +        ParseErrorOptionRead md errs ->
[opt-env-conf-test] +          ["Failed to read option: "]
[opt-env-conf-test] +            : unwordsChunks (maybe [] renderOptDocLong md)
[opt-env-conf-test] +            : map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingEnvVar md ->
[opt-env-conf-test] +          ["Missing env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +        ParseErrorEnvRead md errs ->
[opt-env-conf-test] +          ["Failed to read env var: "]
[opt-env-conf-test] +            : maybe [] renderEnvDoc md
[opt-env-conf-test] +            ++ map (\err -> [chunk $ T.pack err]) (NE.toList errs)
[opt-env-conf-test] +        ParseErrorMissingConfVal md ->
[opt-env-conf-test] +          ["Missing config value: "] : maybe [] renderConfDoc md
[opt-env-conf-test] +        ParseErrorConfigRead md s ->
[opt-env-conf-test] +          ["Failed to parse configuration: "]
[opt-env-conf-test] +            : maybe [] renderConfDoc md
[opt-env-conf-test] +            ++ [[chunk $ T.pack s]]
[opt-env-conf-test] +        ParseErrorMissingCommand cs ->
[opt-env-conf-test] +          ["Missing command, available commands:"]
[opt-env-conf-test] +            : availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorUnrecognisedCommand c cs ->
[opt-env-conf-test] +          [ [fore red "Unrecognised command: ", fore yellow $ chunk (T.pack c)],
[opt-env-conf-test] +            [fore blue "available commands:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ availableCommandsLines cs
[opt-env-conf-test] +        ParseErrorAllOrNothing locs ->
[opt-env-conf-test] +          [ ["You are seeing this error because at least one, but not all, of the settings in an allOrNothing (or subSettings) parser have been defined."],
[opt-env-conf-test] +            ["The following settings have been parsed:"]
[opt-env-conf-test] +          ]
[opt-env-conf-test] +            ++ map (pure . srcLocChunk) (M.elems locs)
[opt-env-conf-test] +        ParseErrorUnrecognised leftovers ->
[opt-env-conf-test] +          ["Unrecognised args: " : unwordsChunks (map (pure . chunk . T.pack) (NE.toList leftovers))]
[opt-env-conf-test] +        ParseErrorMissingCapability cap ->
[opt-env-conf-test] +          ["Missing capability: " : [chunk $ T.pack $ show cap]],
[opt-env-conf-test]        maybe [] (pure . ("see " :) . pure . srcLocChunk) parseErrorSrcLoc
[opt-env-conf-test]      ]
[opt-env-conf-test]  
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:67:3-96
[opt-env-conf-test] @@ -64,10 +64,10 @@
[opt-env-conf-test]  
[opt-env-conf-test]  parserLintTest :: Parser a -> IO ()
[opt-env-conf-test]  parserLintTest parser =
[opt-env-conf-test] -  case lintParser parser of
[opt-env-conf-test] -    Nothing -> pure ()
[opt-env-conf-test] -    Just errs ->
[opt-env-conf-test] -      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test] +  case lintParser parser of
[opt-env-conf-test] +    Nothing -> pure ()
[opt-env-conf-test] +    Just errs ->
[opt-env-conf-test] +      expectationFailure $ T.unpack $ renderChunksText With24BitColours $ renderLintErrors errs
[opt-env-conf-test]  
[opt-env-conf-test]  settingsParserArgsTest :: (Show a, Eq a, HasParser a) => [String] -> a -> IO ()
[opt-env-conf-test]  settingsParserArgsTest = parserArgsTest settingsParser
[opt-env-conf-test] 
[opt-env-conf-test] RemoveCase at src/OptEnvConf/Test.hs:149:13-24
[opt-env-conf-test] @@ -146,14 +146,14 @@
[opt-env-conf-test]  
[opt-env-conf-test]  generatedFileComment :: CallStack -> T.Text
[opt-env-conf-test]  generatedFileComment cs =
[opt-env-conf-test] -  let loc = case getCallStack cs of
[opt-env-conf-test] -        (_, srcLoc) : _ ->
[opt-env-conf-test] -          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] -            <> ":"
[opt-env-conf-test] -            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] -        [] -> "unknown"
[opt-env-conf-test] +  let loc = case getCallStack cs of
[opt-env-conf-test] +        (_, srcLoc) : _ ->
[opt-env-conf-test] +          packageName (Stack.srcLocPackage srcLoc)
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> Stack.srcLocFile srcLoc
[opt-env-conf-test] +            <> ":"
[opt-env-conf-test] +            <> show (Stack.srcLocStartLine srcLoc)
[opt-env-conf-test] +        [] -> "unknown"
[opt-env-conf-test]     in T.pack $
[opt-env-conf-test]          unlines $
[opt-env-conf-test]            map
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:49-84
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && True
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True) v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:73-81
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || True) v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:60-69
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && elem '.' v && all (\c -> True || c == '.') v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:35-45
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (null v) && True && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:19-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = True && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:23-31
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not False && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] 
[opt-env-conf-test] ConstBool at src/OptEnvConf/Test.hs:180:24-30
[opt-env-conf-test] @@ -177,4 +177,4 @@
[opt-env-conf-test]        where
[opt-env-conf-test]          version = takeWhile (\c -> isDigit c || c == '.') rest
[opt-env-conf-test]      go (c : rest) = c : go rest
[opt-env-conf-test] -    isVersion v = not (null v) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] +    isVersion v = not (False) && elem '.' v && all (\c -> isDigit c || c == '.') v
[opt-env-conf-test] checkPhase completed in 8 minutes 24 seconds
[opt-env-conf-test] Phase: haddockPhase
[opt-env-conf-test] Phase: installPhase
[opt-env-conf-test] Installing library in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/opt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT
[opt-env-conf-test] Phase: fixupPhase
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] shrinking /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib/ghc-9.10.3/lib/x86_64-linux-ghc-9.10.3-05f6/libHSopt-env-conf-test-0.0.0.4-3sxOV7t65cdF98TgindIPT-ghc9.10.3.so
[opt-env-conf-test] checking for references to /build/ in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4...
[opt-env-conf-test] patching script interpreter paths in /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4
[opt-env-conf-test] stripping (with command strip and flags -S -p) in  /nix/store/svjsjah9pyn9jxx7dbkcrv9g2kmdal3j-opt-env-conf-test-0.0.0.4/lib
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
[opt-env-conf-test] checking for references to /build/ in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest...
[opt-env-conf-test] patching script interpreter paths in /nix/store/5ka16a1ac7jhjfq2d03bw3vf6jpq32lx-opt-env-conf-test-0.0.0.4-manifest
[opt-env-conf-test] shrinking RPATHs of ELF executables and libraries in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
[opt-env-conf-test] checking for references to /build/ in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report...
[opt-env-conf-test] patching script interpreter paths in /nix/store/51n9qks2xsqb9ik9nq29rcrnj3p5llin-opt-env-conf-test-0.0.0.4-report
Progress: 10 of 11 built